Saving VBA project on workbook close

G

Guest

Sorry if this is an obvious one. I want to have code to protect myself from
closing a project without saving changes. The code below just doesn't execute
the save although the logic hits the line.

TIA, Eric

in Thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not Shutdown(ThisWorkbook)
If Cancel Then
Call ThisWorkbook.Save
Debug.Assert ThisWorkbook.Saved
Cancel = False
End If
End Sub
 
C

Corey

Sub Macro1()
Application.DisplayAlerts = True
ActiveWorkbook.Save ' saves active workbook
Application.Quit ' exits Excel
End Sub


Corey....
 
N

NickHK

You need to provide more details if you want constructive help.
What are supposed to make of "Doesn't work for me" ?

NickHK
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel Providing user message when RED X clicked & properly closing application. 2
Close w/o saving changes 6
Workbook doesn't fully close - sorta 4
auto-protect a sheet upon workbook close 4
BeforeSave sub won't save another workbook when triggered by another event sub 1
Protect workbook when saving 3
How can I force a workbook to close? 6
Auto-Protect Sheet on Open and on Close 3

Top