В случае закрытия вы можете установить документ на Saved = False
, это заставит PowerPoint запросить у пользователя, хочет ли он сохранить файл с окном сообщения Да-Нет-Отмена.
Использование SendKeys({ESC})
непосредственно перед окончанием события отправит escape в окно сообщения, и событие закрытия будет отменено.