先生と生徒の会話形式で理解しよう

生徒

「先生、特定のシートだけじゃなくて、今開いているすべてのExcelブックを見守る方法ってありますか？どのファイルを開いても自動で挨拶してくれるような…。」

先生

「それは非常に高度で便利な視点ですね！実は『Application（アプリケーション）イベント』という機能を使えば、Excelそのものを監視することができるんですよ。」

生徒

「Excelそのものを監視！なんだか凄そうです。設定が難しそうですが、私にもできますか？」

先生

「手順さえ踏めば大丈夫です。クラスモジュールという特別な場所を使いますが、一つずつ丁寧に解説していきますね！」

1. Applicationイベントとは？Excel全体の「司令塔」を監視する

Excel VBAには、特定のシートやブックの動きに反応する「イベント」がありますが、さらにその上の階層である Application（アプリケーション） レベルのイベントが存在します。これは、あなたが現在使っている「Excelというソフト自体」を監視する仕組みです。

プログラミング未経験の方に例えると、シートのイベントが「自分の部屋のセンサー」なら、Applicationイベントは「マンション全体の防犯カメラ」のようなものです。どの部屋（ブック）で何が起きても、このカメラはすべてを把握できます。例えば、「どのブックを開いても、必ず背景を白くする」「どのファイルで印刷しても、履歴を記録する」といった、ソフト全体に及ぶ共通のルールを作ることができるのです。SEOでも「VBA Excel全体監視」や「VBA アプリケーションイベント」は、効率化を極めたいユーザーによく調べられるキーワードです。

2. クラスモジュールを準備しよう！イベントの「受信機」を作る

Applicationイベントを使うためには、普段プログラムを書く「標準モジュール」ではなく、クラスモジュールという場所を使います。これは、新しい機能を持った「道具」を自作するような場所だと思ってください。

手順は簡単です。VBE（プログラムを書く画面）のメニューから「挿入」→「クラスモジュール」を選びます。新しくできたクラスの名前（オブジェクト名）を、プロパティウィンドウで「AppEventClass」などに変更しておきましょう。ここに「Excelの動きを見守るための専用の受信機」を設置するコードを書いていきます。パソコンに不慣れな方でも、まずはこの「場所を作る」という工程が大切であることを覚えておきましょう。

3. クラスモジュールに監視用のコードを記述する

作成したクラスモジュールの中に、Excel全体を監視するための宣言と、実際に動かしたいプログラムを書きます。今回は例として、「新しいブックが作られたときに、自動的にメッセージを表示する」仕組みを作ります。


' クラスモジュールの名前：AppEventClass
' Excelというアプリケーションを監視対象として宣言します
Public WithEvents MyApp As Application

' 新しいブックが作成された時に動くプログラム
Private Sub MyApp_NewWorkbook(ByVal Wb As Workbook)
    MsgBox "新しいブック「" & Wb.Name & "」が作成されました！" & vbCrLf & _
           "今日も一日、お仕事頑張りましょう！"
End Sub

WithEvents（ウィズ・イベント）という言葉は、VBAに「この変数はイベントを見張る特別なものですよ」と教える呪文です。また、Wb As Workbook という部分は、「新しく作られたブックの情報」をVBAが自動的に受け取ってくれるための箱（引数）です。これにより、どんな名前のブックが作られても正確に把握できます。

4. 「受信機」のスイッチを入れる！ThisWorkbookへの記述

クラスモジュールにコードを書いただけでは、まだセンサーは動きません。Excelが起動したときに、その「受信機」のスイッチをオンにする必要があります。このスイッチ操作は、ThisWorkbook（ディス・ワークブック）という場所に記述します。


' 共通の変数として、自作したクラスを宣言します
Dim myAppEvent As AppEventClass

' このブックを開いた時に、監視スイッチをオンにします
Private Sub Workbook_Open()
    ' 新しいクラスのインスタンス（実体）を作ります
    Set myAppEvent = New AppEventClass
    
    ' クラスの中にあるMyAppに、本物のExcelをセットします
    Set myAppEvent.MyApp = Application
    
    MsgBox "Excel全体の監視を開始しました！"
End Sub

ここで重要なのが New（ニュー）という単語です。これは、設計図（クラス）から本物の道具（インスタンス）を作り出す命令です。Set ... = Application とすることで、あなたが今まさに触っているExcelそのものが、監視対象の「MyApp」として登録されるのです。これで、どのブックを操作しても先ほどのセンサーが反応するようになります。

5. 実践！どのブックを開いても自動でログを残す設定

Applicationレベルのイベントで最も実用的なのが、ブックを開くたびに「誰が・いつ・どのファイルを開いたか」を記録するログ機能です。クラスモジュールに以下のコードを追加してみましょう。実務のセキュリティ管理や利用統計で非常に役立つ設計パターンです。


' クラスモジュール内に追加：ブックが開かれた時に動く
Private Sub MyApp_WorkbookOpen(ByVal Wb As Workbook)
    ' イミディエイトウィンドウという場所に履歴を出力します
    Debug.Print "【操作ログ】" & Now & "：" & Wb.Name & " が開かれました。"
    
    ' もし特定のブックだったら、メッセージを出すことも可能です
    If Wb.Name Like "売上*" Then
        MsgBox "売上データが開かれました。慎重に操作してください。"
    End If
End Sub

Debug.Print（デバッグ・プリント）は、プログラムの実行結果をこっそり確認するための便利な機能です。このように、自分の開いているブック名（Wb.Name）をチェックして、名前によって処理を分けることもできます。未経験者の方でも、この「もし～なら（If文）」の組み合わせが理解できれば、無限の自動化が広がります。

6. シートが切り替わった時に共通の処理をさせる

「どのブックであっても、シートを切り替えたときに特定の動作をさせたい」という場合も、Applicationイベントの出番です。例えば、シートを切り替えるたびに「今何枚目のシートにいるか」を表示させてみましょう。これはUI（ユーザーインターフェース）の改善にも繋がります。


' クラスモジュール内に記述
Private Sub MyApp_SheetActivate(ByVal Sh As Object)
    ' Sh は今表示されたシートのことです
    ' どのブックでも、シートを切り替えるとステータスバー（画面左下）に表示します
    Application.StatusBar = "現在は「" & Sh.Name & "」シートを閲覧中です。"
End Sub

Application.StatusBar（ステータスバー）は、Excelの一番下の細長いバーに文字を表示する命令です。Sh As Object となっているのは、ワークシートだけでなく、グラフシートなども含まれる可能性があるためです。全てのシート移動をこの1箇所で管理できるのが、Applicationイベントの最大のメリットです。SEOキーワード「VBA シート切り替え監視」としても有効なテクニックです。

7. 上級編：ブックを閉じる前に一括でバックアップをとる

最後に、より実用的な応用例を紹介します。どのブックを閉じる時でも、「保存されているか」を確認し、重要なファイルであれば自動的に特定の場所へ複製を保存する、といった高度な使い道です。未経験の方には少し難しく感じるかもしれませんが、コードの「形」を覚えてしまえば強力な武器になります。


' クラスモジュール内に記述
Private Sub MyApp_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
    ' 閉じようとしているブックが一度も保存されていない場合
    If Wb.Path = "" Then
        Dim res As VbMsgBoxResult
        res = MsgBox("この新規ブックを保存せずに閉じますか？", vbYesNo)
        If res = vbNo Then Cancel = True ' 閉じる動作をキャンセルする
    End If
End Sub

Cancel As Boolean という引数は非常に重要です。これを True に書き換えると、Excelが行おうとした「閉じる」という動作を途中で強制的にストップさせることができます。これを使えば、入力漏れがあるときにブックを閉じさせない、といった「間違いを許さないツール」の作成が可能です。実務におけるリスク管理として、Applicationイベントは欠かせない存在です。

8. Applicationイベント利用時の注意点と解除方法

Applicationイベントは非常に強力ですが、注意点もあります。監視用の変数（今回の myAppEvent）は、プログラムの実行中に何らかのエラーでリセットされてしまうと、監視が止まってしまいます。また、監視を止めたいときは、変数を「Nothing（空っぽ）」にする必要があります。


' 監視を強制終了したい時に使うプログラム（標準モジュールなどに作成）
Sub StopMonitoring()
    ' 受信機の接続を切ります
    Set myAppEvent = Nothing
    MsgBox "すべての監視を終了しました。"
End Sub

パソコン初心者の方は、まずは「監視を開始したブックを閉じると、基本的には監視も終わる」と考えておけば大丈夫です（アドインとして保存すれば、Excel起動中ずっと有効にすることも可能です）。Applicationレベルのイベントを使いこなせれば、あなたはもう初心者卒業です。Excelというソフトを意のままに操る感覚を、ぜひ楽しんでください！