Como desativar a seleção de vários itens na Tabela Dinâmica?
Quando cria uma Tabela Dinâmica e define a opção de itens filtrados, pode não querer que outras pessoas utilizem a funcionalidade «Selecionar Vários Itens» na Tabela Dinâmica para alterar os dados originais. Neste artigo, explicamos como desativar essa opção na Tabela Dinâmica.
Desativar a seleção de vários itens no Tabela Dinâmica com código VBA
Desativar a seleção de vários itens no Tabela Dinâmica com código VBA
Para proteger a seleção da Tabela Dinâmica contra alterações, o código VBA seguinte permite desativar a funcionalidade «Selecionar Vários Itens». Siga os passos abaixo:
1. Mantenha premidas as teclas ALT + F11 e abrir-se-á 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 no 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, prima a tecla F5 para executar este código e os botões de seta do filtro na Tabela Dinâmica serão removidos imediatamente. Veja as capturas de ecrã:
 |  |  |
Notas:
1. Se quiser reativar a opção Selecionar Vários Itens, aplique o seguinte código:
Código VBA: Ativar a seleção de vários itens no 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 aplica-se apenas a uma Tabela Dinâmica na folha de cálculo ativa.
Artigos relacionados:
Como ocultar os botões Expandir/Recolher numa Tabela Dinâmica?
Como ocultar os subtotais na Tabela Dinâmica?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos