JPerez... sugestão..

No VBA, em EstaPastadeTrabalho, você tem estas duas opções:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Private Sub Workbook_Open()

End Sub

Para as duas, você pode forçar que alguma Macro seja executada, no caso da primeira, antes de sair e na segunda, ao abrir.

Obs: As Macros precisam obrigatoriamente ser Habilitadas.

Ja abusando ..rs

colei os seguintes códigos em "esta pasta de trabalho" no VBA

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Dim barras
On Error Resume Next
Senha = "123456"
For Each barras In Application.CommandBars
barras.Enabled = False
Next
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
MsgBox "Seja Bem vindo ao SGNeo"
Application.DisplayFullScreen = True
ActiveSheet.DisplayPageBreaks = False
ActiveSheet.Protect Password:=Senha, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.MoveAfterReturnDirection = xlDown
Range("A1").Select
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Obrigado por usar o SGNeo"
RpTela
Application.DisplayAlerts = False
Application.Quit
End Sub
Sub RpTela()
Dim barras
On Error Resume Next
For Each barras In Application.CommandBars
barras.Enabled = True
Next
With ActiveWindow
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
Application.DisplayFullScreen = False
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Range("A1").Select
End Sub

Porem estou com o problema que ela so esta sumindo as linhas e os titulos na primeira aba, nas demais esta aparecendo os titulos de linha e coluna...

alguem me ajuda?

abraços

Tipo, pelo que eu li, o "problema" é o ActiveWindow, ele só vai aplicar o with na janela ativa, tens que achar um jeito de selecionar todas as planilhas antes de aplicar a seleção. mas não tenho certeza que vai funcionar dessa maneira também..