¿Cómo listar todas las hojas visibles u ocultas de un libro de trabajo?

Si tiene un libro de trabajo grande que contiene algunas hojas de cálculo ocultas, ahora necesita enumerar por separado todas las hojas visibles y ocultas en una hoja de cálculo, como se muestra en la siguiente captura de pantalla. En este artículo, hablaré sobre cómo enumerar todas las hojas visibles y ocultas en Excel.

Enumerar todas las hojas visibles y ocultas por separado con código VBA

Listar todas las hojas visibles en Excel con Kutools para Excel

Enumerar todas las hojas visibles y ocultas por separado con código VBA

Para enumerar los nombres de pestañas visibles y ocultas en una hoja de cálculo, el siguiente código VBA puede ayudarte, por favor haz lo siguiente:

1. Mantenga presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo, y pegue el siguiente código en la Ventana del Módulo.

Código VBA: Enumerar todas las hojas visibles y ocultas por separado:

Sub NameSheets()
'Updateby Extendoffice
    Dim x As Long, y As Long, z As Long
    Dim ws As Worksheet
    Dim shtCnt As Integer
    x = 1
    y = 1
    z = 1
    shtCnt = ThisWorkbook.Sheets.Count
    On Error Resume Next
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    For i = 1 To shtCnt
        If Sheets(i).Visible = xlSheetHidden Then
            Cells(x, 2) = Sheets(i).Name
            x = x + 1
        End If
        If Sheets(i).Visible = xlSheetVisible Then
           Cells(y, 1) = Sheets(i).Name
            y = y + 1
        End If
        If Sheets(i).Visible = xlSheetVeryHidden Then
            Cells(z, 3) = Sheets(i).Name
            z = z + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. Luego presione la tecla F5 para ejecutar este código, todas las hojas visibles, ocultas y muy ocultas se enumeran por separado en una nueva hoja, como se muestra en la siguiente captura de pantalla:

Listar todas las hojas visibles en Excel con Kutools para Excel

Si tiene Kutools para Excel, con su función Crear tabla de enlace, puede enumerar rápidamente todas las hojas visibles del libro de trabajo actual con hipervínculos a cada pestaña.

Después de instalar Kutools para Excel, realice lo siguiente:

1. Haga clic en Kutools Plus > Hoja de cálculo > Crear tabla de enlace, vea la captura de pantalla:

2. En el cuadro de diálogo Crear tabla de enlace:

(1.) Seleccione Crear hipervínculos bajo la sección Estilo.

(2.) Ingrese un nombre de hoja de cálculo para el índice de hojas.

(3.) Especifique la ubicación del índice de la hoja de cálculo.

(4.) Especifique cuántas columnas desea mostrar los nombres de las hojas de cálculo en el índice de la hoja.

3. Y luego haga clic en el botón Aceptar, todas las hojas visibles se han enumerado en una nueva hoja excluyendo las hojas ocultas, vea la captura de pantalla: