Saberexcel - site das macros

Macro do Aplicativo Microsoft Excel VBA, oculta a folha de planilha ativa no modo xlSheetVeyHidden e ou xlSheetHidden, de acordo com a opção de escolha do usuário, veja que foi usado a estrutura Select Case.

Sub Ocultar_planilha_ativa()
On Error Resume Next
Dim vPergunta As String
vPergunta = MsgBox("Deseja ocultar a planilha ativa Very Hidden? ", vbQuestion + vbYesNoCancel, "Saberexel - site das macros")

Select Case vPergunta
Case vbYes
ActiveSheet.Visible = xlSheetVeryHidden
Case vbNo
ActiveSheet.Visible = xlSheetHidden
Case vbCancel
Exit Sub
End Select

End Sub

Macro auxliar que usamos para fazermos o teste.
Sub mostrando_todas_planilhas()
On Error Resume Next
Dim Wsh As Worksheet
For Each Wsh In ActiveWorkbook.Worksheets
Wsh.Visible = xlSheetVisible
Next Wsh
Saber1.Visible = True
End Sub



Aprenda Microsoft Excel VBA com qualidade Saberexcel


   Baixe o exemplo de planilha das macros acima
vba worksheet oculta planilha ativa (24.26 kB)