Hoy vamos a ver cómo ocultar y mostrar todas las hojas menos la que se encuentre activa usando VBA en Microsoft Excel.
Para ello he creado un libro Excel con tres hojas. En la primera de ellas se encuentran dos botones; uno para ocultar el resto de hojas, y otro para volver a mostrarlas.
A continuación os muestro el código necesario para cada uno de los botones,
Sub OcultarTodasExceptoActiva()
Dim ws As Worksheet
Dim wsActiva As Worksheet
'Guardamos la hoja activa
Set wsActiva = ActiveSheet
'Recorremos todas las hojas
For Each ws In ThisWorkbook.Worksheets
'Si son distintas a la hoja activa, la ocultamos
If ws.Name <> wsActiva.Name Then
ws.Visible = xlSheetHidden
End If
Next ws
End Sub
Sub MostrarTodasLasHojas()
Dim ws As Worksheet
'Recorremos todas las hojas, mostrándolas
For Each ws In ThisWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
Sheets(1).Select
End Sub
Si pulsamos el botón "Ocultar hojas no activas", veremos cómo se ocultan las hojas 2 y 3.
Si ahora pulsamos el botón "Mostrar todas las hojas", aparecerán de nuevo las hojas 2 y 3.
Espero que este ejemplo te haya servido para saber cómo ocultar y mostrar todas las hojas menos la activa usando VBA en Microsoft Excel. Descárgate el archivo de ejemplo y practica.
Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.
Hasta la próxima.
Si te ha servido y quieres donar
Descarga el archivo del ejemplo
Últimas publicaciones
0 comentarios