通过

Application.ProtectedViewWindowBeforeClose 事件 (Word)

  • 项目

紧接在“受保护的视图”窗口或“受保护的视图”窗口中的文档关闭之前发生。

语法

expression. ProtectedViewWindowBeforeClose( _PvWindow_ , _CloseReason_ , _Cancel_ )

表达 返回 Application 对象的表达式。

参数

名称 必需/可选 数据类型 说明
PvWindow 必需 ProtectedViewWindow 已关闭的“受保护的视图”窗口。
CloseReason 必需 [INT] WdProtectedViewCloseReason 枚举中的常量，指定关闭“受保护的视图”窗口的原因。
Cancel 必需 Boolean 假 的事件发生时。 如果该事件过程将此参数设置为 True ，则过程完成后不关闭该窗口。

注意

如果 ProtectedViewWindowsBeforeClose 事件作为 ProtectedView.Edit 方法的一部分调用，则将 Cancel 设置为 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。