Como gerar uma lista das tabelas ocultas usando VBA
Você pode tornar as planilhas de uma pasta de trabalho invisíveis com o comando "Formatar - Planilha - Ocultar". Ainda é possível acessar o conteúdo da tabela usando uma fórmula, mas a tabela não está mais visível.
Se precisar de uma lista de todas as planilhas ocultas na pasta de trabalho ativa, você pode usar a seguinte macro:
Sub ListHiddenTablesOn ()
Dim Table As Worksheet, NewTable As Worksheet
Dim CurrentMappe como pasta de trabalho
Dim i As Integer
Definir CurrentMappe = ActiveWorkbook
Defina NeueTabelle = Workbooks.Add.Sheets (1)
Para cada tabela em CurrentMappe.Worksheets
Se Table.Visible = False Then
i = i + 1
NewTable.Cells (i, 1) .Value = Table.Name
Fim se
Próxima mesa
End Sub
A macro percorre todas as planilhas e verifica a propriedade Visível. Se não estiver satisfeito, é uma planilha oculta. Em seguida, o nome da planilha é transferido para a lista.
A macro lista os nomes de todas as planilhas ocultas em uma tabela em uma nova pasta de trabalho.
A figura mostra o resultado da macro quando existem três planilhas ocultas na pasta de trabalho ativa: "Oculto", "Oculto" e "Invisível".
Dica: Se você gostaria de saber como inserir e iniciar macros no Excel, encontrará uma breve descrição aqui:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
