Como desativar a seleção de vários itens na tabela dinâmica?
Quando criamos uma tabela dinâmica e definimos a opção de itens filtrados, você não quer que outras pessoas apliquem o recurso Selecionar vários itens na tabela dinâmica para alterar os dados originais em sua tabela dinâmica. Neste artigo, falarei sobre como desabilitar essa opção na tabela dinâmica.
Desative a seleção de vários itens na tabela dinâmica com o código VBA
Desative a seleção de vários itens na tabela dinâmica com o código VBA
Para evitar que a seleção da tabela dinâmica seja alterada, o seguinte código VBA pode ajudá-lo a desabilitar o recurso Selecionar vários itens. Faça o seguinte:
1. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: desative 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. Então aperte F5 para executar este código, e os botões de seta do filtro na tabela dinâmica foram removidos de uma vez, consulte as capturas de tela:
Observações:
1. Se você deseja ativar a opção Selecionar vários itens novamente, aplique o seguinte código:
Código VBA: Habilite 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 = True
Next xPF
End Sub
2. Este código é aplicado apenas a uma tabela dinâmica na planilha ativa.
Artigos relacionados:
Como ocultar os botões de expansão e recolhimento na tabela dinâmica?
Como ocultar subtotais na tabela dinâmica?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!