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 Sub

4. 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 Sub

Ocultar 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: