OCULTAR E MOSTRAR INFORMAÇÕES

25. Exibir todas as linhas e colunas ocultas

Ao aplicar esta macro, todas as linhas e colunas ocultas em todas as tabelas
serão exibidas.

Sub TirarOculta()
Dim Ws As Worksheet
For Each Ws In Application.Worksheets
Ws.Select
Cells.Select
Selection.EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
Next
End Sub

26. Ocultar e mostrar todas as abas

Rotina utilizada para acelerar o processo de ocultar e mostrar abas. Todas as
abas, exceto a primeira serão ocultas, ao rodar novamente, todas serão
exibidas.

Sub OcultareMostrarAbas()
For i = 2 To Worksheets.Count
If Worksheets(i).Visible = True Then
Worksheets(i).Visible = False
Else
Worksheets(i).Visible = True
End If
Next
End Sub