Application.ProtectedViewWindowBeforeClose イベント (Word)

[保護ビュー] ウィンドウまたは[保護ビュー] ウィンドウ内のドキュメントが閉じる直前に発生します。

構文

expression. ProtectedViewWindowBeforeClose( _PvWindow_ , _CloseReason_ , _Cancel_ )

式Application オブジェクトを返す式。

パラメーター

名前 必須 / オプション データ型 説明
PvWindow 必須 ProtectedViewWindow 閉じている保護ビュー ウィンドウ。
CloseReason 必須 [INT] 保護ビュー ウィンドウを閉じる理由を指定する WdProtectedViewCloseReason 列挙型の定数。
Cancel 必須 Boolean イベントが発生すると、 False が渡されます。 イベント プロシージャでこの引数を True に設定すると、プロシージャが終了したときにこのウィンドウは閉じません。

注:

ProtectedViewWindowsBeforeClose イベントが ProtectedView.Edit メソッドの一部として呼び出された場合、Cancel を True に設定してもアクションは行われません。

|

例

次のコード例では、ドキュメントを閉じる前に、ユーザーに Yes または No の応答を求めます。 このコードをクラス モジュールに配置する必要があり、この例が動作するようにするには、クラスのインスタンスを正しく初期化する必要があります。 この方法の詳細については、「 Application オブジェクトでのイベントの使用」を参照してください。

次のコード例では、アプリケーション変数 "App" を General Declarations に宣言し、その変数を 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 のサポートおよびフィードバックを参照してください。

  • Last updated on