緊接在 [受保護的檢視] 視窗或 [受保護的檢視] 視窗中的文件關閉之前發生。
語法
expression。
ProtectedViewWindowBeforeClose( _PvWindow_ , _CloseReason_ , _Cancel_ )
運算式 傳回 Application 物件的運算式。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| PvWindow | 必要 | ProtectedViewWindow | 已關閉的 [受保護的檢視] 視窗。 |
| CloseReason | 必要 | [INT] | WdProtectedViewCloseReason 列舉中的常數,指定關閉受保護檢視視窗的原因。 |
| Cancel | 必要 | 布林值 | 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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。