第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）
第124回.Workbookのイベントプロシージャー
第125回.Worksheetのイベントプロシージャー
第126回.入力規則（Validation）
第127回.他のブックのマクロを実行（Runメソッド）
第128回.マクロをショートカットで起動（OnKeyメソッド）
第129回.レジストリの操作（SaveSetting,GetSetting,GetAllSettings,DeleteSetting）
新着記事 ・・・新着記事一覧を見る
Excelシートの複雑な計算式を解析するVBA｜VBAサンプル集（2月18日）
VBAクラスの作り方：独自Rangeっぽいものを作ってみた｜VBA技術解説（2月16日）
VBAクラスの作り方：列名のプロパティを自動作成する｜VBA技術解説（2月14日）
VBAクラスの作り方：列名の入力支援と列移動対応｜VBA技術解説（2月11日）
クラスを使って他ブックのイベントを補足する｜VBA技術解説（2月6日）
Excelアドインの作成と登録について｜VBA技術解説（2月3日）
参照設定、CreateObject、オブジェクト式の一覧｜VBA技術解説（1月20日）
VBAでファイルを規定のアプリで開く方法｜VBA技術解説（1月20日）
ドキュメントプロパティ（BuiltinDocumentProperties,CustomDocumentProperties）｜VBA技術解説（1月19日）
他ブックへのリンクエラーを探し解除｜VBAサンプル集（1月15日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数とデータ型（Dim）｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.RangeとCellsの使い方｜ExcelマクロVBA入門
6.マクロって何？VBAって何？｜ExcelマクロVBA入門
7.繰り返し処理（For Next)｜ExcelマクロVBA入門
8.とにかく書いて見よう（Sub,End Sub）｜VBA入門
9.定数と型宣言文字（Const）｜ExcelマクロVBA入門
10.ひらがな⇔カタカナの変換｜エクセル基本操作
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。
