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

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

Синтаксис

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

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

Параметры

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

Примечание.

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

|

Пример

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

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

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 и обратная связь.