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
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 03/06/2016 4:44 pm