Application.ProtectedViewWindowBeforeClose イベント (Word)

  • [アーティクル]

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

構文

expression. ProtectedViewWindowBeforeClose( _PvWindow_ , _CloseReason_ , _Cancel_ )

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

パラメーター

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

注:

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

|

例

次のコード例では、ドキュメントを閉じる前に、ユーザーに対して "はい" または "いいえ" の応答を求めます。 このコードはクラス モジュールに配置する必要があり、この例の動作を確認するには、クラスのインスタンスを正しく初期化する必要があります。 これを行う方法の詳細については、「 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 のサポートおよびフィードバックを参照してください。