Ocultar y mostrar todas las hojas menos la que se encuentre activa usando VBA en Excel

Escrito por Administrador

25 de junio de 2024

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.

saber-usuarios-conectados-base-datos

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.

saber-usuarios-conectados-base-datos

Si ahora pulsamos el botón "Mostrar todas las hojas", aparecerán de nuevo las hojas 2 y 3.

saber-usuarios-conectados-base-datos

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

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

octubre 2024
LMXJVSD
 123456
78910111213
14151617181920
21222324252627
28293031 

Contacto