如何禁用数据透视表中的多选功能？

当我们创建数据透视表并设置筛选项的选项时，你不希望其他人使用数据透视表中的“多选”功能来打乱数据透视表中的原始数据。在本文中，我将介绍如何在数据透视表中禁用此选项。

使用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. 此代码仅适用于活动工作表中的一个数据透视表。

相关文章：

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

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