¿Cómo ocultar todas las hojas de cálculo excepto la especificada o la activa en Excel?

Para mantener el libro limpio y fácil de navegar, es posible que desee ocultar todas las hojas de cálculo excepto la actualmente activa en Excel. En este artículo, le mostraremos dos métodos para ocultar todas las hojas de cálculo excepto la especificada o la activa en Excel.

Ocultar todas las hojas de cálculo excepto la especificada en Excel con código VBA
Ocultar todas las hojas de cálculo excepto la activa con Kutools para Excel (solo unos pocos clics)

Ocultar todas las hojas de cálculo excepto la especificada en Excel con código VBA

Puede ocultar todas las hojas de cálculo excepto la especificada con código VBA en Excel. Por favor, siga los siguientes pasos.

1. En el libro abierto actualmente, cambie a la hoja de cálculo que desea mantener visible, y luego presione simultáneamente Alt + F11 para abrir la ventana Microsoft Visual Basic Application.

2. En la ventana Microsoft Visual Basic Application, haga clic en Insertar > Módulo. Ver captura de pantalla:

3. Luego copie y pegue el siguiente código VBA en el editor de Código.

Código VBA: ocultar todas las hojas excepto la 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. Presione la tecla F5 para ejecutar el código.

5. Después de ejecutar el código, aparece un cuadro de diálogo con el nombre de la hoja activa mostrándose en el cuadro Rango, luego haga clic en el botón Aceptar.

Luego, todas las hojas de cálculo se ocultan inmediatamente excepto la actual en su libro.

Nota: Para mostrar las hojas de cálculo ocultas, por favor copie y pegue el siguiente código VBA en el Módulo y luego presione la tecla F5 para ejecutar el código.

Código VBA: mostrar hojas de cálculo ocultas

Sub SheetUnHidden()
	Dim xWs As Worksheet
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Visible = True
	Next
End Sub

Ocultar todas las hojas de cálculo excepto la activa con Kutools para Excel (solo un clic)

Puede ocultar todas las hojas excepto la especificada o la activa con solo un clic en Excel.

1. Acceda a la hoja especificada que desea que sea visible únicamente en el libro actual.

2. Luego haga clic en Kutools > Mostrar y Ocultar > Ocultar Hojas No Seleccionadas.

Luego, todas las hojas en el libro actual se ocultan excepto la activa.

Nota: Si desea mostrar todas las hojas de cálculo ocultas, por favor haga clic en Kutools > Mostrar / Ocultar > Mostrar Todas las Hojas. Ver captura de pantalla: