如何在樞紐分析表中禁用選擇多個項目？

當我們創建一個樞紐分析表並設置過濾項目的選項時，但你不希望其他人使用樞紐分析表中的「選擇多個項目」功能來打亂樞紐分析表中的原始數據。在本文中，我將介紹如何在樞紐分析表中禁用此選項。

使用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. 此代碼僅適用於活動工作表中的一個樞紐分析表。

相關文章：

如何在樞紐分析表中隱藏展開/摺疊按鈕？

如何在樞紐分析表中隱藏小計？