ピボットテーブルで複数の項目を選択する方法を無効にするには？

ピボットテーブルを作成し、フィルター項目のオプションを設定した場合でも、他の人がピボットテーブル内の「複数の項目を選択」機能を使用して元のデータを変更することを防ぎたい場合があります。この記事では、ピボットテーブルでこのオプションを無効にする方法について説明します。

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. このコードはアクティブなワークシートの1つのピボットテーブルにのみ適用されます。

関連記事：

ピボットテーブルで展開/折りたたみボタンを非表示にするにはどうすればよいですか？

ピボットテーブルで小計を非表示にするにはどうすればよいですか？