Forum Discussion

kristhian_zavala's avatar
kristhian_zavala
Copper Contributor
Sep 20, 2024

No me permite seleccionar mas de una hoja oculta

Hola, buena tarde.

Quisiera pedir de su apoyo, ya que al momento de querer seleccionar mas de 1 hoja oculta para poderla mostrar, no lo permite, ya intente con la tecla CTRL y SHIFT, pero no hay ningún resultado.

solo me deja seleccionar 1 hoja a la vez, y si quiero mostrar mas de 1 hoja oculta, tengo que hacerlo 1 a 1

Alguien sabe como solucionarlo, saludos.

1 Reply

  • NikolinoDE's avatar
    NikolinoDE
    Platinum Contributor

    kristhian_zavala 

    En Excel, efectivamente no es posible seleccionar y mostrar múltiples hojas ocultas a la vez utilizando el método estándar de CTRL o SHIFT. Excel solo permite mostrar una hoja oculta a la vez a través de la interfaz gráfica. Sin embargo, existe una solución rápida para mostrar todas las hojas ocultas (o múltiples hojas) de una sola vez usando VBA (Visual Basic for Applications).

    Solución con VBA

    Para mostrar varias hojas ocultas al mismo tiempo, puedes usar un pequeño código VBA que mostrará todas las hojas ocultas en el libro de trabajo de una sola vez.

    Instrucciones:

    1. Abrir el Editor de VBA:
      • Presiona ALT + F11 en Excel para abrir el Editor de VBA.
    2. Insertar un Módulo:
      • En el editor de VBA, ve al menú Insertar y selecciona Módulo.
    3. Agregar el Código VBA:
      • Copia y pega el siguiente código en la ventana del módulo:

    vbaCode

    Sub MostrarTodasHojasOcultas()
        Dim ws As Worksheet
        ' Recorrer todas las hojas en el libro de trabajo
        For Each ws In ThisWorkbook.Sheets
            ' Si la hoja está oculta, se mostrará
            If ws.Visible = xlSheetHidden Then
                ws.Visible = xlSheetVisible
            End If
        Next ws
    End Sub

    Ejecutar la Macro:

      • Cierra el Editor de VBA (ALT + Q para cerrar).
      • En Excel, presiona ALT + F8 para abrir el cuadro de diálogo Macro.
      • Selecciona MostrarTodasHojasOcultas y haz clic en Ejecutar.

    Este código recorrerá todas las hojas de trabajo del libro y mostrará aquellas que estén ocultas.

    Mostrar Hojas Ocultas Específicas

    Si quieres mostrar solo algunas hojas ocultas específicas, puedes modificar el código para incluir los nombres de las hojas que deseas mostrar:

    Vba Code

    Sub MostrarHojasEspecificas()
        Dim ws As Worksheet
        ' Mostrar hojas específicas por nombre
        Set ws = ThisWorkbook.Sheets("NombreDeHoja1")
        ws.Visible = xlSheetVisible
    
        Set ws = ThisWorkbook.Sheets("NombreDeHoja2")
        ws.Visible = xlSheetVisible
    End Sub

    Reemplaza "Tabelle1" y "Tabelle2" por los nombres de las hojas que deseas mostrar.

    Conclusión

    Aunque Excel no permite seleccionar y mostrar varias hojas ocultas al mismo tiempo desde la interfaz estándar, el uso de VBA ofrece una solución rápida y eficiente para hacerlo en pocos pasos. Si necesitas ocultar o mostrar varias hojas regularmente, esta es una herramienta muy útil.

    El archivo adjunto tiene un ejemplo.

     

    ¡Mis respuestas son voluntarias y sin garantía!

     

    Espero que esto te ayude.

    ¿Te resultó útil la respuesta? ¡Marca como mejor respuesta y dale Me gusta!

    Esto ayudará a todos los participantes del foro.