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 ocultar todas as planilhas, exceto a atual ativa no Excel. Neste artigo, mostraremos a você dois métodos para ocultar todas as planilhas, exceto aquela especificada ou ativa no Excel.
Oculta todas as planilhas exceto a especificada no Excel com código VBA
Oculte todas as planilhas, exceto a ativa, com o Kutools para Excel (apenas alguns cliques)
Oculta todas as planilhas exceto a especificada no Excel com código VBA
Você pode ocultar todas as planilhas, exceto a especificada com o código VBA no Excel. Faça o seguinte.
1. Na pasta de trabalho aberta atualmente, mude para a planilha que deseja mostrar apenas e pressione outro + F11 simultaneamente para abrir o Aplicativo Microsoft Visual Basic janela.
2. No Aplicativo Microsoft Visual Basic janela, clique em inserção > Módulo. Veja a imagem:
3. Em seguida, copie e cole o código VBA abaixo no editor de código.
Código VBA: oculta todas as folhas, 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. aperte o F5 chave para executar o código.
5. Depois de executar o código, uma caixa de diálogo aparece com o nome da folha ativa exibido no Variação caixa e clique no OK botão.
Então, todas as planilhas serão ocultadas imediatamente, exceto a atual na pasta de trabalho.
Note: Para exibir as planilhas ocultas, 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 Sub Oculte 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.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Acesse a planilha especificada que deseja que seja mostrada apenas na pasta de trabalho atual.
2. Então clique Kutools > Aparecer esconder > Ocultar planilhas não selecionadas.
Em seguida, todas as planilhas na pasta de trabalho atual são ocultadas, exceto a ativa.
Note: Se você deseja exibir todas as planilhas ocultas, clique em Kutools > Mostrar / Esconder > Reexibir todas as planilhas. Veja a imagem:
Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
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!
