Una macro de Excel para ocultar todo menos la hoja de trabajo activa

Es posible que desee ocultar las hojas de trabajo inactivas con esta macro. Excel no le permite ocultar todas las hojas de un libro; debe mostrarse al menos uno. Sin embargo, puede ocultar todo excepto la hoja activa.

Cómo funciona la macro

La macro aquí recorre las hojas de trabajo y hace coincidir el nombre de cada hoja de trabajo con el nombre de la hoja activa. Cada vez que la macro se repite, oculta cualquier hoja de trabajo que no coincida.

Sub Macro1 ()
'Paso 1: Declare sus variables
    Dim ws como hoja de trabajo
'Paso 2: comience a recorrer todas las hojas de trabajo
    Para cada w en este libro de trabajo.
Paso 3: verifique el nombre de cada hoja de trabajo
    Si ws.Name <> ThisWorkbook.ActiveSheet.Name Entonces
'Paso 4: Ocultar la hoja
    ws.Visible = xlSheetHidden
    Terminara si
'Paso 5: Pasar a la siguiente hoja de trabajo
    Siguiente ws
End Sub

El paso 1 declara un objeto llamado ws. Este paso crea un contenedor de memoria para cada hoja de trabajo que recorre la macro.

El paso 2 comienza el ciclo y le dice a Excel que evalúe todas las hojas de trabajo en este libro. Tenga en cuenta la diferencia entre ThisWorkbook y ActiveWorkbook. El objeto ThisWorkBook hace referencia al libro que contiene el código. El objeto ActiveWorkBook se refiere al libro activo actualmente. A menudo devuelven el mismo objeto, pero si el libro de trabajo que ejecuta el código no es el libro de trabajo activo, devuelven diferentes objetos. En este caso, no quiere correr el riesgo de ocultar hojas en otros libros de trabajo, por lo que usa ThisWorkBook.

En el paso 3, la macro simplemente compara el nombre de la hoja activa con la hoja que se está colocando actualmente.

Si los nombres de las hojas son diferentes, la macro oculta la hoja en el Paso 4.

En el paso 5, retrocede para obtener la siguiente hoja. Una vez evaluadas todas las hojas, la macro finaliza.

Tenga en cuenta que usa xlsheetHidden en su macro. Esta propiedad aplica el estado de ocultación predeterminado que obtendría normalmente al hacer clic con el botón derecho en una hoja y seleccionar Ocultar. En este estado de ocultación predeterminado, un usuario puede hacer clic con el botón derecho en cualquier pestaña y elegir Mostrar, que muestra todas las hojas ocultas. Pero otro estado oculto es más clandestino que el predeterminado. Si usa xlSheetVeryHidden para ocultar sus hojas, los usuarios no podrán verlas en absoluto, incluso si hacen clic con el botón derecho en una pestaña y eligen Mostrar. La única forma de mostrar una hoja oculta de esta manera es usar VBA.

Cómo usar la macro

Para implementar esta macro, puede copiarla y pegarla en un módulo estándar:

Active el Editor de Visual Basic presionando Alt + F11.

Haga clic con el botón derecho en el nombre del proyecto / libro de trabajo en la ventana del proyecto.

Elija Insertar → Módulo.

Escriba o pegue el código en el módulo recién creado.


Cómo programar una reunión de Skype

Cómo programar una reunión de Skype

Aprenda a programar reuniones efectivas en Skype Empresarial desde Outlook o la aplicación de Skype. Siga nuestros sencillos pasos para una mejor colaboración.

Cómo usar Pegado especial en Excel 2016

Cómo usar Pegado especial en Excel 2016

Aprende a usar la función de Pegado Especial en Excel 2016 para optimizar la forma en que insertas datos en tus hojas de cálculo. Controla qué información se pega y realiza operaciones matemáticas simples con facilidad.

Funciones de Excel para trabajar con números hexadecimales, octales, decimales y binarios

Funciones de Excel para trabajar con números hexadecimales, octales, decimales y binarios

Descubre las funciones de Excel para convertir entre binario, octal, decimal y hexadecimal con esta tabla informativa y consejos útiles para optimizar tu trabajo.

Instalar y activar un complemento de Power Query de Excel

Instalar y activar un complemento de Power Query de Excel

Completa guía sobre cómo instalar y activar el complemento de Power Query en Excel 2010 y 2013, y su uso en Excel 2016. Aprende a gestionar datos de manera efectiva en Excel.

Access 2019: Cómo editar y modificar una base de datos de Access

Access 2019: Cómo editar y modificar una base de datos de Access

Aprende a modificar y editar bases de datos en Access 2019, incluyendo cómo nombrar campos, agregar y eliminar campos, y definir tipos de datos. ¡Optimiza tu trabajo con Access!

Cómo usar el comando Ir a en Word 2016

Cómo usar el comando Ir a en Word 2016

El comando Ir a en Word 2016 es una herramienta poderosa para navegar rápidamente a una página específica o a elementos dentro del documento. Aprende a optimizar tu flujo de trabajo con este práctico comando.

Cómo resaltar fechas de fin de semana en Excel

Cómo resaltar fechas de fin de semana en Excel

Aprende cómo resaltar fechas de fin de semana en Excel utilizando formato condicional para mejorar la gestión de tus datos de programación.

Cómo insertar un enlace para enviar un correo electrónico en una hoja de cálculo de Excel 2010

Cómo insertar un enlace para enviar un correo electrónico en una hoja de cálculo de Excel 2010

Aprenda a insertar un hipervínculo "mailto" en Excel 2010 para crear correos electrónicos de manera simple y eficiente.

Cómo usar las opciones de pegado y Pegado especial en Word 2007

Cómo usar las opciones de pegado y Pegado especial en Word 2007

Aprenda a utilizar las opciones de pegado y Pegado especial en Word 2007 para manejar eficazmente bloques de texto. Optimizando su formato y presentación.

Cómo modificar un gráfico SmartArt en PowerPoint

Cómo modificar un gráfico SmartArt en PowerPoint

Descubre cómo modificar un gráfico SmartArt en PowerPoint incluyendo cambios de diseño, estructura y texto. Mejora tus presentaciones con estos consejos SEO.