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

最終更新日：2019-07-31

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

Workbookのイベントプロシージャーは、ブックに対し特定の操作（これがイベント）が行われた時に実行されます。
イベントは、手動でもVBAでも、どちらで操作が行われても発生します。
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_Open

ブックを開いた時に実行されるイベントです。
VBEの「Microsoft Excel Objects」内の「ThisWorkbook」に記述します。

VBEの操作

コード表示
VBE画面で、ThisWorkbookで、コードの表示
または、
ThisWorkbookをダブルクリックでコード表示します。

プロシージャーの作成
コードウインドウの上部、オブジェクトのコンボより、Workbookを選択する。


  
    
      Private Sub Workbook_Open()


      End Sub

Workbookの規定のイベントとして、自動でWorkbook_Openが追加されます。

オブジェクトにより、規定のイベントが違いますので、
目的のイベント以外が挿入された場合は、
オブジェクトのコンボの右の、プロシージャーのコンボより目的のイベントを選択します。

使用例．

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


  
    
      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