Como listar todas as planilhas visíveis ou ocultas da pasta de trabalho?

Se você tem uma pasta de trabalho grande que contém algumas planilhas ocultas, agora você precisa listar todas as planilhas visíveis e ocultas separadamente em uma planilha, conforme mostrado na captura de tela a seguir. Neste artigo, vou falar sobre como listar todas as planilhas visíveis e ocultas no Excel.

Listar todas as planilhas visíveis e ocultas separadamente com código VBA

Listar todas as planilhas visíveis no Excel com o Kutools para Excel

Listar todas as planilhas visíveis e ocultas separadamente com código VBA

Para listar os nomes das abas visíveis e ocultas em uma planilha, o seguinte código VBA pode ajudá-lo, por favor, faça o seguinte:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.

Código VBA: Listar todas as planilhas visíveis e ocultas separadamente:

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. Em seguida, pressione a tecla F5 para executar este código; todas as planilhas visíveis, ocultas e muito ocultas serão listadas em uma nova planilha separadamente, conforme mostrado na captura de tela a seguir:

Listar todas as planilhas visíveis no Excel com o Kutools para Excel

Se você possui o Kutools para Excel, com seu recurso Criar Tabela de Vínculo, você pode listar rapidamente todas as planilhas visíveis da pasta de trabalho atual com hiperlinks para cada aba.

Após instalar o Kutools para Excel, faça o seguinte:

1. Clique em Kutools Plus > Planilha > Criar Tabela de Vínculo, veja a captura de tela:

2. Na caixa de diálogo Criar Tabela de Vínculo:

(1.) Selecione Criar Hiperlinks na seção Estilo.

(2.) Insira um nome de planilha para o índice da planilha.

(3.) Especifique a localização do índice da planilha.

(4.) Especifique quantas colunas deseja exibir os nomes das planilhas no índice da planilha.

3. E então clique no botão Ok; todas as planilhas visíveis foram listadas em uma nova planilha, excluindo as planilhas ocultas, veja a captura de tela: