Запуск макроса по условию

[DJTreeno]

Доброго всем времени суток!!!

Я уже перерыл весь инет в поисках: как сделать так, чтоб макрос запускался при нажатии на крести (выход) как в Excel.

Конструкция BeforeClose, не работает(((

Как-то наверно можно сделать через AutoClose???

[DJTreeno]

Да кстати играясь с этими кодами типа private у меня накрылся весь файл normal.dot, к счастью я не жадный и делился своими макросами с коллегами - так и собрал по кусочкам обратно свой normal.dot. Так что захотите помочь будьте осторожны!!!

[DJTreeno]

Идея такая при нажатии на крестик (выход)
Выскакивает окно:
Public Sub MessageBoxYesOrNoMsgBox()

Dim YesOrNoAnswerToMessageBox As String
Dim QuestionToMessageBox As String

QuestionToMessageBox = "Обновить структуру связанных таблиц?"

YesOrNoAnswerToMessageBox = MsgBox(QuestionToMessageBox, vbYesNo, "VBA Expert or Not")

If YesOrNoAnswerToMessageBox = vbNo Then
MsgBox "ВЫХОД!"
Else
Табл_Пар
End If

End Sub

[DJTreeno]

От я баран, слепой, все же просто:

Sub AutoClose()

MessageBoxYesOrNoMsgBox
ActiveDocument.Save
End Sub

[Ципихович Эндрю]

ещё бы Вы функцию MessageBoxYesOrNoMsgBox приложили

[Sasha_Smirnov]

Можно использовать просто

Sub AutoClose()
ActiveDocument.Save
End Sub