Workbookのイベントプロシージャー

最終更新日：2019-11-15

第124回.Workbookのイベントプロシージャー

Workbookのイベントプロシージャーは、ブックに対し特定の操作（これがイベント）が行われた時に実行されます。
イベントは、手動でもVBAでも、どちらで操作が行われても発生します。
Workbookのイベントは多数用意されています。
Workbookのイベントの一覧と重要なイベントについて解説します。

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	ブックのウィンドウサイズを変更したときに発生します。
AfterRemoteChange	リモートユーザーのブックへの編集が結合された後に発生します。 ※Excel2016以降
BeforeRemoteChange	リモートユーザーのブックへの編集が結合される前に発生します。 ※Excel2016以降
ModelChange	Excelデータモデルが変更された後に発生します。 ※Excel2013以降
SheetBeforeDelete	シートが削除されたときに発生します。 ※Excel2013以降
SheetLensGalleryRenderComplete	ワークシートの引き出し線ギャラリーのアイコン(動的および静的)のレンダリングが完了すると発生します。 ※Excel2013以降
SheetTableUpdate	シートテーブルが更新された後に発生します。 ※Excel2013以降

Workbookのイベントの中で代表的な、
Workbook_Open
Workbook_BedoreClose
Workbook_SheetChange
この3つについて以下で解説します。

イベントプロシージャー追加のVBE操作

コード表示

VBE画面のプロジェクトで「ThisWorkbook」を選択肢、
・メニューの「表示」→「コード」
・右クリックから「コードの表示」
・ダブルクリック
いずれかでコードを表示します。

プロシージャーの作成

コードウインドウの上部、
左側のドロップダウンがオブジェクトの選択で、
右側のドロップダウンがイベントの選択になります。

左側のオブジェクトの選択で「Workbook」を選択する。

Workbookの既定のイベントとして、自動でWorkbook_Openが追加されます。
オブジェクトにより既定のイベントは違いますので、目的のイベント以外が挿入された場合は、
右側のイベントのドロップダウンから目的のイベントを選択します。

Private Sub Workbook_イベント名([引数])
引数が必要な場合はその引数も含めて自動的にイベントプロシージャーが追加されます。

自動で追加された「Workbook_Open」が不要であれば消して構いません。

Workbook_Open：Workbookのイベント

ブックが開かれたときに起動されるイベントです。
手動で開く場合も、VBAで開く場合でも起動されます。
Private Sub Workbook_Open()

使用例．

ブックを開いた時、先頭シートのA1セルに移動します。


  
    
      Private Sub Workbook_Open()

      　　Sheets(1).Select

      　　Application.Goto Range("A1"), True

      End Sub

Workbook_BeforeClose：Workbookのイベント

ブックを閉じる直前に起動されるイベントです。
手動で閉じる場合も、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

Workbook_SheetChange：Workbookのイベント

ワークシートのセルが変更されるときに発生します。
※すべてのシートが対象となります。


  
    
      Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

　　If Not Intersect(Target, Sh.Range("A1")) Is Nothing Then

　　　　MsgBox "A1セルが変更されました。"

　　End If

End Sub

全てのシートに置いて、A1セルが変更されたときにメッセージボックスを表示しています。
shには、セル変更されたシートのオブジェクトが入っています。
Targetには、変更されたセルのRangeオブジェクトが入っています。

同じテーマ「VBA入門」の記事

第121回.SendKeysメソッドとAppActivateステートメント
 第122回.Shell関数
 第123回.APIについて（Win32API）
第124回.Workbookのイベントプロシージャー
第125回.Worksheetのイベントプロシージャー
 第130回.テーブル操作の概要（ListObject）
第131回.テーブル操作のVBAコード（ListObject）
第127回.他のブックのマクロを実行（Runメソッド）
第128回.マクロをショートカットで起動（OnKeyメソッド）
第129回.レジストリの操作（SaveSetting,GetSetting,GetAllSettings,DeleteSetting）
第133回.引数の数を可変にできるパラメーター配列（ParamArray）

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数宣言のDimとデータ型｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.マクロって何？VBAって何？｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ひらがな⇔カタカナの変換｜エクセル基本操作

トップ >

マクロVBA >

マクロVBA入門 >

Workbookのイベントプロシージャー

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBA入門
第124回.Workbookのイベントプロシージャー

第124回.Workbookのイベントプロシージャー

Workbookのイベント一覧

イベントプロシージャー追加のVBE操作

Workbook_Open：Workbookのイベント

Workbook_BeforeClose：Workbookのイベント

Workbook_SheetChange：Workbookのイベント

同じテーマ「VBA入門」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング・・・ランキング一覧を見る

第124回.Workbookのイベントプロシージャー

Workbookのイベント一覧

イベントプロシージャー追加のVBE操作

Workbook_Open：Workbookのイベント

Workbook_BeforeClose：Workbookのイベント

Workbook_SheetChange：Workbookのイベント

同じテーマ「VBA入門」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング ・・・ ランキング一覧を見る

アクセスランキング・・・ランキング一覧を見る