第124回.Workbookのイベントプロシージャー
Workbookのイベントプロシージャーは、ブックに対し特定の操作（これがイベント）が行われた時に実行されます。
イベントは、手動でもVBAでも、どちらで操作が行われても発生します。
Workbookのイベントは多数用意されています。
Workbookのイベント一覧
| イベント | 発生条件等 |
| Activate | ブック、ワークシート、グラフ シート、または埋め込みグラフがアクティブになったときに発生します。 |
| AddinInstall | ブックがアドインとして組み込まれたときに発生します。 |
| AddinUninstall | ブックのアドインとして組み込みを解除したときに発生します。 |
| AfterSave | ブックが保存された後に発生します。 |
| AfterXmlExport | Microsoft Office Excel がデータを保存するか、指定されたワークブックから XML データをエクスポートした後で発生します。 |
| AfterXmlImport | 既存の XML データ接続が更新されたか、または開いている Microsoft Excel ブックに新しい XML データがインポートされた後に発生します。 |
| BeforeClose | ブックを閉じる前に発生します。ブックが変更された場合、ユーザーに変更内容の保存を要求する前に、このイベントが発生します。 |
| BeforePrint | ブックまたはその中に含まれる内容を印刷する前に発生します。 |
| BeforeSave | ブックを保存する前に発生します。 |
| BeforeXmlExport | Microsoft Office Excel がデータを保存するか、指定されたワークブックから XML データをエクスポートする前に発生します。 |
| BeforeXmlImport | 既存の XML データ接続が更新されるか、または開いている Microsoft Excel ブックに新しい XML データがインポートされる前に発生します。 |
| Deactivate | グラフ、ワークシート、またはブックが非アクティブになったときに発生します。 |
| NewChart | 新しいグラフをブックに作成したときに発生します。 |
| NewSheet | 新しいシートをブックに作成したときに発生します。 |
| Open | ブックを開いたときに発生します。 |
| PivotTableCloseConnection | ピボットテーブル レポート接続が閉じた後に発生します。 |
| PivotTableOpenConnection | ピボットテーブル レポート接続が開いた後に発生します。 |
| RowsetComplete | ユーザーが OLAP ピボットテーブルで行セット アクションを起動するか、レコードセットを詳細表示するとイベントが発生します。 |
| SheetActivate | シートがアクティブになったときに発生します。 |
| SheetBeforeDoubleClick | 既定のダブルクリックの操作の前に、ワークシートをダブルクリックしたときに発生します。 |
| SheetBeforeRightClick | 既定の右クリックの操作の前に、ワークシートを右クリックしたときに発生します。 |
| SheetCalculate | ワークシートを再計算したり、グラフでデータをプロットして変更した後に発生します。 |
| SheetChange | ユーザーまたは外部リンクにより、ワークシートのセルが変更されるときに発生します。 |
| SheetDeactivate | シートが非アクティブになったときに発生します。 |
| SheetFollowHyperlink | Excel のハイパーリンクをクリックすると発生します。ワークシート レベルでのイベントについては、FollowHyperlink イベントのヘルプ トピックを参照してください。 |
| SheetPivotTableAfterValueChange | ピボットテーブル内のセルまたはセル範囲が編集または再計算された後に発生します (数式を含むセルの場合)。 |
| SheetPivotTableBeforeAllocateChanges | ピボットテーブルに変更が適用される前に発生します。 |
| SheetPivotTableBeforeCommitChanges | ピボットテーブルの OLAP データ ソースに対する変更が適用される前に発生します。 |
| SheetPivotTableBeforeDiscardChanges | ピボットテーブルに対する変更が破棄される前に発生します。 |
| SheetPivotTableChangeSync | ピボットテーブルが変更された後に発生します。 |
| SheetPivotTableUpdate | ピボットテーブル レポートのシートが更新された後に発生します。 |
| SheetSelectionChange | いずれかのワークシートで選択範囲を変更したときに発生します。選択範囲がグラフ シート上にある場合は発生しません。 |
| Sync | ドキュメント ワークスペースに含まれているブックのローカル コピーがサーバー上のコピーと同期されたときに発生します。 |
| WindowActivate | ブックのウィンドウがアクティブになったときに発生します。 |
| WindowDeactivate | ブックのウィンドウが非アクティブになったときに発生します。 |
| WindowResize | ブックのウィンドウ サイズを変更したときに発生します。 |
Workbookのイベントの中で代表的な、
Workbook_Open
Workbook_BedoreClose
この二つについて以下で解説します。
Workbook_Open
VBEの「Microsoft Excel Objects」内の「ThisWorkbook」に記述します。
VBEの操作
VBE画面で、ThisWorkbookで、コードの表示
または、
ThisWorkbookをダブルクリックでコード表示します。
プロシージャーの作成
コードウインドウの上部、オブジェクトのコンボより、Workbookを選択する。
| Private Sub Workbook_Open() End Sub |
Workbookの規定のイベントとして、自動でWorkbook_Openが追加されます。
オブジェクトにより、規定のイベントが違いますので、
目的のイベント以外が挿入された場合は、
オブジェクトのコンボの右の、プロシージャーのコンボより目的のイベントを選択します。
| Private Sub Workbook_Open() Sheets(1).Select Application.Goto Range("A1"), True End Sub |
Workbook_BeforeClose
手動で閉じる場合も、VBAで閉じる場合でも起動されます。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
CancelにTrueを入れると、ブックのCloseは中止されます。
使用例．
| Private Sub Workbook_BeforeClose(Cancel As Boolean) If ActiveWorkbook.Saved = False Then ActiveWorkbook.Save End If End Sub |
ブックが未保存の場合は、Closeをキャンセルする。
| Private Sub Workbook_BeforeClose(Cancel As Boolean) If ActiveWorkbook.Saved = False Then Cancel = True End If End Sub |
同じテーマ「マクロVBA入門」の記事
第119回.ファイルシステムオブジェクト（FileSystemObject）
第120回.OnTimeメソッド
第121回.SendKeysメソッドとAppActivateステートメント
第122回.Shell関数
第123回.APIについて（Win32API）
第125回.Worksheetのイベントプロシージャー
第126回.入力規則（Validation）
第127回.他のブックのマクロを実行（Runメソッド）
第128回.マクロをショートカットで起動（OnKeyメソッド）
第129回.レジストリの操作（SaveSetting,GetSetting,GetAllSettings,DeleteSetting）
新着記事 ・・・新着記事一覧を見る
VBAを定型文で覚えよう｜ExcelマクロVBA技術解説（3月26日）
VBAスタンダード試験対策まとめ｜MOS VBAエキスパート対策（3月16日）
ユーザーフォームとメニューの操作｜MOS VBAエキスパート対策（3月14日）
ファイルの操作｜MOS VBAエキスパート対策（3月14日）
ユーザーフォームの各種イベント｜Excelユーザーフォーム（3月13日）
レジストリの操作｜MOS VBAエキスパート対策（3月12日）
変数と配列｜MOS VBAエキスパート対策（3月12日）
Colorプロパティの設定値一覧｜VBA技術解説（3月12日）
APIとOLEオートメーション｜MOS VBAエキスパート対策（3月11日）
エラーへの対処｜MOS VBAエキスパート対策（3月10日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数とデータ型（Dim）｜ExcelマクロVBA入門
6.ひらがな⇔カタカナの変換｜エクセル基本操作
7.マクロって何？VBAって何？｜ExcelマクロVBA入門
8.定数と型宣言文字（Const）｜ExcelマクロVBA入門
9.とにかく書いて見よう（Sub,End Sub）｜VBA入門
10.繰り返し処理（For Next)｜ExcelマクロVBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。
