EXCELer.org

 Se pretendermos esconder/mostrar uma folha (Planilha) utilizando VBA, como no exemplo:

podemos utilizar o seguinte código:

Sub Esconde()

    Worksheets(2).Visible = xlSheetVeryHidden

    Sheets(2).Protect Password:="xxxx", UserInterfaceOnly:=True

End Sub

Sub Mostra()

    Worksheets(2).Visible = xlSheetVisible

    Sheets(2).Protect Password:="xxxx", UserInterfaceOnly:=True

End Sub

• Sobre o argumento UserInterfaceOnly, pode ver-se www.ozgrid.com/VBA/excel-macro-protected-sheet.htm 

 Outra forma, muito prática, é, no tabulador inicial (no exemplo Notificações), adicionar o seguinte código:

Private Sub Worksheet_Activate()
    Worksheets(2).Visible = xlSheetVeryHidden
    Sheets(2).Protect Password:="xxxx", UserInterfaceOnly:=True
End Sub