Поделиться через


Событие Application.WorkbookBeforeSave (Excel)

Происходит перед сохранением любой открытой книги.

Примечание.

В Office 365 Excel поддерживает автосохранение, что позволяет автоматически и непрерывно сохранять изменения пользователя. Дополнительные сведения см. в разделе Как автосохранение влияет на надстройки и макросы , чтобы обеспечить выполнение кода в ответ на функции событий WorkbookBeforeSave , как предполагалось при включении автосохранения.

Синтаксис

expression. WorkbookBeforeSave (Wb, SaveAsUI, Cancel)

выражение: переменная, представляющая объект Application.

Параметры

Имя Обязательный или необязательный Тип данных Описание
Wb Обязательный Workbook Книга.
SaveAsUI Обязательный Boolean Значение true , если диалоговое окно Сохранить как будет отображаться из-за внесенных изменений, которые необходимо сохранить в книге.
Отмена Обязательный Boolean Значение false при возникновении события. Если процедура события задает для этого аргумента значение True, книга не сохраняется после завершения процедуры.

Возвращаемое значение

Отсутствует

Пример

В этом примере пользователю предлагается ответ "да" или "нет" перед сохранением книги.

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _ 
 ByVal SaveAsUI As Boolean, Cancel as Boolean) 
 a = MsgBox("Do you really want to save the workbook?", vbYesNo) 
 If a = vbNo Then Cancel = True 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.