Saltar al contenido principal

¿Cómo ocultar automáticamente hojas de trabajo específicas al abrir un archivo de Excel?

Si necesita ocultar algunas hojas de trabajo específicas automáticamente cuando alguien abre el libro, ¿cómo podría lidiar con este trabajo en Excel?

Ocultar una hoja de trabajo específica automáticamente al abrir un libro de trabajo con código VBA

Ocultar algunas hojas de trabajo específicas automáticamente al abrir un libro con código VBA


flecha azul burbuja derechaOcultar una hoja de trabajo específica automáticamente al abrir un libro de trabajo con código VBA

Si desea ocultar una hoja de trabajo específica al abrir el libro de trabajo, puede aplicar el siguiente código VBA.

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la izquierda Proyecto-VBAProject panel, haga doble clic en el ThisWorkbook para abrir un módulo en blanco y luego copie y pegue el siguiente código en el módulo:

Código de VBA: oculte una hoja específica al abrir un libro de trabajo:

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

doc ocultar hoja en abierto 1

Note: En el código anterior, Sheet5 es el nombre de la hoja que desea ocultar al abrir. Cámbielo según sus necesidades.

3. Luego guarde y cierre esta ventana de código y haga clic en Archive > Guardar como para guardar este libro como Libro de Excel habilitado para macros formato, ver captura de pantalla:

doc ocultar hoja en abierto 2

4. Cuando abra este libro la próxima vez, haga clic en Contenido disponible en primer lugar, y luego la hoja especificada se ocultará automáticamente.

doc ocultar hoja en abierto 3


flecha azul burbuja derecha Ocultar algunas hojas de trabajo específicas automáticamente al abrir un libro con código VBA

Si es necesario ocultar varias hojas de trabajo al abrir el libro, aquí también hay un código que puede ayudarlo.

1. Primero, debe enumerar los nombres de las hojas que desea ocultar al abrir en una lista de una hoja de trabajo, y luego ir al Nombre de Caja para darles un nombre de rango-HojasParaOcultary presione Participar clave, vea la captura de pantalla:

doc ocultar hoja en abierto 4

2. Luego mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. En la izquierda Proyecto-VBAProject panel, haga doble clic en el ThisWorkbook para abrir un módulo en blanco y luego copie y pegue el siguiente código en el módulo:

Código de VBA: oculte algunas hojas de trabajo específicas al abrir un libro de trabajo:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   'Updateby Extendoffice 20161206
    Dim ws As Worksheet
    For Each ws In Worksheets
       ws.Visible = xlSheetVisible
    Next ws
End Sub
Private Sub Workbook_Open()
    Dim ws As Worksheet
        For Each ws In Worksheets
            If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
                ws.Visible = xlSheetHidden
                MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
            Else
                ws.Visible = xlSheetVisible
            End If
        Next ws
    Set ws = Nothing
End Sub

doc ocultar hoja en abierto 5

Note: En el código anterior, HojasParaOcultar es el nombre del rango que ha creado en el paso 1.

4. Luego guarde y cierre esta ventana de código y haga clic en Archive > Guardar como para guardar este libro como Libro de Excel habilitado para macros formato. A partir de ahora, cuando abra este libro la próxima vez, las hojas de trabajo especificadas se ocultarán automáticamente.

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations