Como desativar a seleção de vários itens na tabela dinâmica?

Quando criamos uma tabela dinâmica e configuramos a opção de itens filtrados, mas você não deseja que outras pessoas usem o recurso 'Selecionar Vários Itens' na tabela dinâmica para alterar os dados originais da sua tabela. Neste artigo, vou explicar como desativar essa opção na tabela dinâmica.

Desativar a seleção de vários itens na tabela dinâmica com código VBA

Desativar a seleção de vários itens na tabela dinâmica com código VBA

Para proteger a seleção da tabela dinâmica contra alterações, o seguinte código VBA pode ajudá-lo a desativar o recurso 'Selecionar Vários Itens'. Por favor, siga os passos abaixo:

1. Pressione as teclas ALT + F11, isso abrirá a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Desativar a seleção de vários itens na tabela dinâmica

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. Em seguida, pressione a tecla F5 para executar este código, e os botões de filtro na tabela dinâmica serão removidos imediatamente, veja as capturas de tela:

Observações:

1. Se você quiser ativar novamente a opção 'Selecionar Vários Itens', aplique o seguinte código:

Código VBA: Ativar seleção de vários itens na tabela dinâmica:

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. Este código só se aplica a uma tabela dinâmica na planilha ativa.

Artigos relacionados:

Como ocultar os botões de expandir/recolher na tabela dinâmica?

Como ocultar subtotais na tabela dinâmica?