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 no momento, alterne para a planilha que deseja manter visível 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 Sub

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

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: