In the closed case, you can set the document to Saved = False , this will force PowerPoint to ask the user if he wants to save the file with a Yes-No-Cancel message.
Using SendKeys({ESC}) shortly before the end of the event, it will send an escape to the message box, and the close event will be canceled.
Dani source share