Isso é relativo, pois depende do nivel de conhecimento de excel dos usuarios.
Mas de qualquer maneira
Crie uma aba com o nome Aviso (Nomeie identico ao sugerido).
Se quiser usar outro nome troque no codigo o nome da aba.
Cole esses codigos em Esta Pasta de Trabalho.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WSS As Worksheet
Set WSS = Sheets("Aviso")
DisplayAlerts = False
Sheets("Aviso") = xlSheetVisible
For Each WSS In Sheets
If WSS.Name <> "Aviso" Then
WSS.Visible = xlSheetVeryHidden
End If
Next
DisplayAlerts = True
End Sub
Private Sub Workbook_Open()
Dim WSS As Worksheet
Set WSS = Sheets("Aviso")
DisplayAlerts = False
For Each WSS In Sheets
If WSS.Name <> "Aviso" Then
WSS.Visible = xlSheetVisible
End If
Next
Sheets("Aviso") = xlSheetVeryHidden
DisplayAlerts = True
End Sub
Postado : 03/06/2016 4:44 pm