如何禁用在数据透视表中选择多个项目？

当我们创建数据透视表并设置已过滤项目的选项时，但是，您不希望其他人在数据透视表中应用“选择多个项目”功能来破坏数据透视表中的原始数据。 在本文中，我将讨论如何在数据透视表中禁用此选项。

禁用使用VBA代码在数据透视表中选择多个项目

禁用使用VBA代码在数据透视表中选择多个项目

为了防止数据透视表的选择被更改，以下VBA代码可以帮助您禁用“选择多个项目”功能。 请执行以下操作：

1。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications窗口.

2. 点击 插页 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：禁用在数据透视表中选择多个项目

Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
    xPF.EnableItemSelection = False
Next xPF
End Sub

3。 然后按 F5 键以运行此代码，并且数据透视表中的过滤器箭头按钮被立即删除，请参见屏幕截图：

笔记：

1。 如果要再次启用“选择多个项目”，请应用以下代码：

VBA代码：启用在数据透视表中选择多个项目：

Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
    xPF.EnableItemSelection = True
Next xPF
End Sub

2。 此代码仅适用于活动工作表中的一个数据透视表。

相关文章：

如何在数据透视表中隐藏展开折叠按钮？

如何在数据透视表中隐藏小计？