I need an AfterSave Event

[altiman]

Hi,
I want to write a code that let me hide some some sheets before save, then save the workbook and finaly unhide the sheets to continue working with workbook.
Someone
The idea is the workbook always presents the same face (a presentation sheet visible and the others hidden), no matter when or where it was saved.
I have solved this problem in the event of closing the workbook, but i can't figure it out how to make a simple SAVE and continue working.

The BeforeSave event doesn't work because it only saves at the end. So I need a kind of AfterSave event.
Anyone could help?

 

[Juan Pablo González]

Do the Save in the BeforeSave event, and then unhide the sheets in there. The user shouldn't notice the difference...

 

[NateO]

Or try the following:

<font face=Courier New><SPAN style="color:darkblue">Private</SPAN> <SPAN style="color:darkblue">Declare</SPAN> <SPAN style="color:darkblue">Function</SPAN> FindWindow <SPAN style="color:darkblue">Lib</SPAN> "user32" Alias "FindWindowA" ( _
    <SPAN style="color:darkblue">ByVal</SPAN> lpClassName <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">String</SPAN>, _
    <SPAN style="color:darkblue">ByVal</SPAN> lpWindowName <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">String</SPAN>) <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Long</SPAN>

<SPAN style="color:darkblue">Private</SPAN> <SPAN style="color:darkblue">Declare</SPAN> <SPAN style="color:darkblue">Function</SPAN> LockWindowUpdate <SPAN style="color:darkblue">Lib</SPAN> "user32" ( _
    <SPAN style="color:darkblue">ByVal</SPAN> hwndLock <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Long</SPAN>) <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Long</SPAN>

<SPAN style="color:darkblue">Private</SPAN> <SPAN style="color:darkblue">Sub</SPAN> Workbook_BeforeSave(<SPAN style="color:darkblue">ByVal</SPAN> SaveAsUI <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Boolean</SPAN>, Cancel <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Boolean</SPAN>)
LockWindowUpdate FindWindow("xlMain", vbNullString)
Sheets(1).Visible = <SPAN style="color:darkblue">False</SPAN>
Application.OnTime Now, "ThisWorkbook.Unhde"
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN>
                
<SPAN style="color:darkblue">Private</SPAN> <SPAN style="color:darkblue">Sub</SPAN> Unhde()
Sheets(1).Visible = <SPAN style="color:darkblue">True</SPAN>
LockWindowUpdate 0
ThisWorkbook.Saved = <SPAN style="color:darkblue">True</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN></FONT>

Note, it kills your status bar...