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 のサポートおよびフィードバックを参照してください。