Saberexcel - o site das macros
Macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), ocultam e ou mostram todas as folhas de planilha de um Livro
Sub Mostrar_todas_planilhas()
On Error Resume Next
Dim Wks As Worksheet
For Each Wks In ActiveWorkbook.Worksheets
Wks.Visible = xlSheetVisible
Next Wks
[D11].Value = "Planilhas Visíveis"
End Sub
'Esta macro ocultam todas as folhas de planilhas do aplicativo Microsoft Excel
Sub ocultar_todas_planilhas()
On Error Resume Next
Saber1.Select
Dim Wks As Worksheet
For Each Wks In ActiveWorkbook.Worksheets
Wks.Visible = xlSheetVeryHidden
Next Wks
[D11].Value = "Planilhas Ocultas"
End Sub
Abaixo apenas macros auxiliares que ajudaram a montar o exemplo de planilha
Sub ver_macros()
Saber1.Shapes("sb").Visible = True
End Sub
Sub oc_macros()
Saber1.Shapes("sb").Visible = False
End Sub
Sub visualizar_macros_vbe()
Dim resposta As String
resposta = MsgBox("Deseja visualizar macros no modulo VBE?", vbYesNo + vbInformation, "Saberexcel - site das macros")
If resposta = vbYes Then
Application.Goto reference:="Mostrar_todas_planilhas"
End If
End Sub
Aprenda tudo sobre o Aplicativo microsoft Excel VBA com Saberexcel
Baixe o exemplo de planilha das macros acima
vba worksheet oculta ou mostra aba planilha (15.41 kB 2010-11-30 11:34:32)