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?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins