Como ocultar todas as planilhas, exceto a especificada ou ativa no Excel?
Para manter a pasta de trabalho limpa e fácil de navegar, você pode querer ocultar todas as planilhas, exceto a atualmente ativa no Excel. Neste artigo, mostraremos dois métodos para ocultar todas as planilhas, exceto a especificada ou ativa no Excel.
Ocultar todas as planilhas, exceto a especificada no Excel com código VBA
Ocultar todas as planilhas, exceto a ativa com o Kutools para Excel (apenas alguns cliques)
Ocultar todas as planilhas, exceto a especificada no Excel com código VBA
Você pode ocultar todas as planilhas, exceto a especificada, com código VBA no Excel. Por favor, siga os passos abaixo.
1. Na pasta de trabalho aberta no momento, alterne para a planilha que deseja manter visível e pressione simultaneamente Alt + F11 para abrir a janela Microsoft Visual Basic Application.
2. Na janela Microsoft Visual Basic Application, clique em Inserir > Módulo. Veja a captura de tela:
3. Em seguida, copie e cole o código VBA abaixo no editor de Código.
Código VBA: ocultar todas as planilhas exceto a especificada
Sub SheetHidden()
Dim xWs As Worksheet
Dim xName As String
xName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xName Then
xWs.Visible = xlSheetHidden
End If
Next
End Sub4. Pressione a tecla F5 para executar o código.
5. Após executar o código, uma caixa de diálogo aparece com o nome da planilha ativa exibido na caixa Intervalo, então clique no botão OK.
Então, todas as planilhas são ocultadas imediatamente, exceto a atual na sua pasta de trabalho.
Observação: Para exibir as planilhas ocultas, por favor, copie e cole o seguinte código VBA no Módulo e pressione a tecla F5 para executar o código.
Código VBA: mostrar planilhas ocultas
Sub SheetUnHidden()
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Visible = True
Next
End SubOcultar todas as planilhas exceto a ativa com o Kutools para Excel (apenas um clique)
Você pode ocultar todas as planilhas exceto a especificada ou ativa com apenas um clique no Excel.
1. Acesse a planilha especificada que você deseja que seja exibida apenas na pasta de trabalho atual.
2. Em seguida, clique em Kutools > Mostrar & Ocultar > Ocultar Planilhas Não Selecionadas.
Então, todas as planilhas na pasta de trabalho atual serão ocultadas, exceto a ativa.
Observação: Se você quiser exibir todas as planilhas ocultas, por favor, clique em Kutools > Mostrar / Ocultar > Mostrar Todas as Planilhas. Veja a captura de tela:
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
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