创建数据透视表并设置筛选项后，您可能不希望他人使用“选择多个项目”功能，以免破坏数据透视表中的原始数据结构。本文将为您介绍如何在数据透视表中禁用该选项。

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