Saberexcel - O Site das Macros

Esta macro do Aplicativo Microsoft Excel VBA, ocultam as planilhas que forem selecionadas na aba

Sub Ocultar_planilhas_selecionadas()
On Error GoTo Sair
Dim vPergunta As String
vPergunta = MsgBox("Deseja ocultar as planilhas selecionadas ? ", vbQuestion + vbYesNo, "Saberexcel - site das macros")
If Not vPergunta = vbYes Then Exit Sub
ActiveWindow.SelectedSheets.Visible = False
Exit Sub
Sair: MsgBox Err.Description
End Sub

'Esta macro do Aplicativo Microsoft Excel VBA, mostram todas as planilhas, auxliando no teste
Sub mostrar_todas_planilhas()
On Error Resume Next
Dim Wsh As Worksheet
For Each Wsh In ActiveWorkbook.Worksheets
Wsh.Visible = xlSheetVisible
Next Wsh
Saber1.Select
End Sub

Aprenda Microsoft Excel VBA(Visual Basic Application) com qualidade Saberexcel

     Baixe o exemplo de planilha das macros acima
 vba worksheet oculta todas planilha selecionadas abas (19.75 kB 2010-11-30 19:09:04)