ブックを閉じる前に処理を実行
ブックを閉じる前に処理を実行するには、ThisWorkbookモジュールに「Workbook_BeforeClose(Cancel As Boolean)」というイベントプロシージャーを作成します。
イベントの作成方法に関しては「イベントプロシージャーの作成」を参考にしてください。
●構文
Private Sub Workbook_BeforeClose(Cancel As Boolean) 処理 End Sub |
---|
●使用例
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim rebtn As Integer rebtn = MsgBox("本当に閉じますか?", 48 + 1, "確認") If rebtn = 1 Then MsgBox "ブックを閉じます。" Else MsgBox "イベントをキャンセルします。" Cancel = True End If End Sub |
---|
●実行結果
このイベントを組み込み、ブックを閉じようとすると以下のようになります。
◇[OK]ボタン押下時
◇[キャンセル]ボタン押下時
※「メッセージウィンドウを表示する」
引数「Cancel」に「True」を代入することで、閉じるイベントをキャンセルすることができます。
ブックを保存する時に処理を実行 | ブックを開いて情報を取得する |
---|