Событие Application.ProtectedViewWindowBeforeClose (Word)

Происходит непосредственно перед закрытием окна защищенного просмотра или документа в этом окне.

Синтаксис

выражение. ProtectedViewWindowBeforeClose( _PvWindow_ , _CloseReason_ , _Cancel_ )

выражение Выражение, возвращающее объект Application .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
PvWindow	Обязательный	ProtectedViewWindow	Закрытое окно защищенного просмотра.
CloseReason	Обязательный	[ЦЕЛОЕ]	Константа в перечислении WdProtectedViewCloseReason , указывающая причину закрытия окна защищенного просмотра.
Отмена	Обязательный	Boolean	При возникновении события значение false. Если процедура обработки событий устанавливает для этого аргумента значение True, окно не закрывается после завершения процедуры.

Примечание.

Если событие ProtectedViewWindowsBeforeClose вызывается как часть метода ProtectedView.Edit , присвоение параметру Cancel значения True не приводит к выполнению действия.

|

Пример

В следующем примере кода пользователю предлагается ответить "да" или "нет" перед закрытием любого документа. Этот код должен быть помещен в модуль класса, и экземпляр класса должен быть правильно инициализирован, чтобы увидеть этот пример работы. Дополнительные сведения о том, как это сделать, см. в разделе Использование событий с объектом Application.

В следующем примере кода предполагается, что вы объявили переменную приложения с именем "App" в общих объявлениях и установили ее равной объекту приложения Word.

Private Sub App_ProtectedViewWindowBeforeClose(ByVal PvWindow As ProtectedViewWindow, ByVal CloseReason As Long, Cancel As Boolean) 
Dim intResponse As Integer 
 
    intResponse = MsgBox("Do you really " _ 
        & "want to close the document?", _ 
        vbYesNo) 
 
    If intResponse = vbNo Then Cancel = True 
 
End Sub

См. также

Объект Application

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

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