Закрытие книги Excel

[fishh]

Код: Выделить всё

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.UserName = "disp" Then
    Sheets("123").Activate
    ThisWorkbook.Save
End If
End Sub

Когда мы нажимаем на кнопку закрыть файл, все идеально работает. Перед выключением или перезагрузкой компа предусмотрено ли выполнение данного события? Закрывает ли Win все рабочие программы? Если закрывает почему не выполняется данное событие?

Как быть? Может есть какие-нибудь методы решения данного вопроса.

[fishh]

Процедура Sub Auto_Close() происходит раньше. Но сохранение не происходит. Выходит ошибка 1004 Документ не сохранен.

Мне очень нужно чтобы данный файл сохранялся перед перезагрузкой или выключением компа

[inq]

Можно попытаться поиграться с WindowDeactivate