こんにちは！PowerPoint VBAの世界へようこそ。
今日は、マクロの記録ボタンを押すだけの世界から一歩抜け出し、PowerPointの裏側を完全に掌握するための「本物のエンジニアリング」をお伝えします。
テーマは「保存前イベント（PresentationBeforeSave）をフックし、セキュリティ基準を満たさない場合に保存を強制キャンセルするセキュリティアドイン開発」です。
「社外秘の資料なのに、誤って暗号化せずに保存しようとした」「社内規定の機密ラベルが貼られていない」——そんなヒューマンエラーを、PowerPointの保存ボタンが押された瞬間に水際で阻止できたら、どれほど素晴らしいでしょう。
今回は、イベントのライフサイクルを知り尽くしたアーキテクトだけが書ける、プロ仕様の監視モジュールの作り方を優しく、かつ深く解説していきます。ここをクリアすれば、あなたのVBAスキルは間違いなく一段上のステージに到達しますよ！
—
1. なぜ「保存前イベント」をフックするのか？
PowerPoint VBAには、ユーザーの操作（開く、閉じる、保存するなど）をトリガーにしてプログラムを走らせる「アプリケーションイベント」という強力な仕組みがあります。
一般的なVBAは「ボタンを押したら実行する」という受動的なものですが、イベント監視は「ユーザーの行動を常に裏側で見張り、特定の条件で介入する」という能動的なアプローチです。
その中でも `PresentationBeforeSave` は、ファイルがディスクに書き込まれるまさにその直前に割り込むことができます。ここで「キャンセルだ！」と指示を出せば、保存処理を完全にシャットアウトできるのです。
—
2. 実装の全体像：2つのモジュールが必要な理由
PowerPointでアプリケーションイベントを扱う際、最も多くの初心者がハマる罠があります。
それは、「通常の標準モジュール（`Module1`など）にイベントプロシージャを書いても、絶対に動かない」という点です。
アプリケーション全体の動きを監視するためには、以下の2ステップを踏む必要があります。
1. クラスモジュール（例：`Class1`）: イベントを実際に「受け取る」専用の型を定義する。
2. 標準モジュール（`Module1`など）: PowerPoint起動時にクラスを初期化し、イベントの監視を「スタート」させる。
この「イベントのライフサイクル」を理解することが、バグのない堅牢なアドインを作る第一歩です。
—
3. 実際のコードを書いてみよう
それでは、実際に動くコードを見ていきましょう。開発タブからVBE（Visual Basic Editor）を開き、以下の準備をしてください。
- クラスモジュールを1つ挿入し、名前を `CEventClass` に変更する。
- 標準モジュールを1つ挿入し、名前を `mAutoExec` に変更する。
① クラスモジュール：`CEventClass` のコード
ここで、PowerPointアプリケーションの動きを監視し、保存前のチェックを行います。今回は簡易的に「ファイル名に `[CONFIDENTIAL]` という文字列が含まれているか」をセキュリティ基準とします。
Option Explicit
‘ WithEventsキーワードを使って、PowerPointのアプリケーションイベントを捕捉する宣言をします
Public WithEvents App As PowerPoint.Application
‘ 保存ボタンが押された瞬間に発火するイベント
Private Sub App_PresentationBeforeSave(ByVal Pres As Presentation, Cancel As Boolean)
‘ セキュリティチェックの基準（例：「[CONFIDENTIAL]」が含まれているか）
Dim requiredTag As String
requiredTag = “[CONFIDENTIAL]”
‘ タイトルやファイル名に機密表示が含まれているかチェック
If InStr(1, Pres.Name, requiredTag, vbTextCompare) = 0 Then
‘ 条件を満たしていない場合、保存をキャンセルする！
Cancel = True
‘ ユーザーに警告メッセージを表示
MsgBox “【セキュリティエラー】” & vbCrLf & _
“このプレゼンテーションには機密タグ ‘” & requiredTag & “‘ が含まれていません。” & vbCrLf & _
“規定を満たしていないため、保存はキャンセルされました。”, _
vbCritical, “セキュア保存監視システム”
Else
‘ 条件クリア時の処理（必要に応じてログ出力など）
‘ Debug.Print “保存が許可されました: ” & Pres.Name
End If
End Sub
② 標準モジュール：`mAutoExec` のコード
クラスは宣言しただけでは動きません。PowerPointが立ち上がったタイミング（あるいは手動でマクロを実行したタイミング）で、クラスにアプリケーションを「紐付ける」必要があります。
Option Explicit
‘ イベントを受け取るクラスのインスタンスを保持するグローバル変数
Public EventMonitor As CEventClass
‘ 監視を開始するプロシージャ
Sub StartSecurityMonitor()
‘ すでにインスタンスが存在していなければ生成する
If EventMonitor Is Nothing Then
Set EventMonitor = New CEventClass
‘ PowerPointのアプリケーション本体をクラスに引き渡す
Set EventMonitor.App = Application
MsgBox “セキュア保存監視システムが正常に有効化されました。”, vbInformation, “システム起動”
Else
MsgBox “監視システムはすでに稼働中です。”, vbInformation, “システム稼働確認”
End If
End Sub
‘ 監視を停止するプロシージャ
Sub StopSecurityMonitor()
Set EventMonitor = Nothing
MsgBox “セキュア保存監視システムを停止しました。”, vbInformation, “システム停止”
End Sub
—
4. 陥りやすいエラーとプロの知見
このコードを動かしたとき、初心者が必ずと言っていいほど直面するのが「イベントが突然反応しなくなる現象」です。
なぜイベントが消えてしまうのか？
VBAの `Public EventMonitor As CEventClass` は、何らかのエラーが発生したり、コードがリセットされたりすると、メモリ上の保持が勝手に解除されてしまいます（変数の初期化）。これをプログラミング用語で「インスタンスの消滅」と呼びます。
プロの対策：
本格的なアドイン（`.ppam`形式）として配布・運用する場合は、標準モジュールの `Auto_Open()` という特殊なプロシージャを利用します。これにより、プレゼンテーションやアドインが読み込まれた瞬間に、自動的に `StartSecurityMonitor` が走るように設計するのが鉄則です。
‘ アドインとして読み込まれた瞬間に自動実行される
Sub Auto_Open()
Call StartSecurityMonitor
End Sub
このひと工夫を入れておくだけで、「あれ、急に保存制限がかからなくなったぞ？」という現場のトラブルを完全に防ぐことができます。
—
5. まとめ：ここをクリアすればVBAの景色が変わる
お疲れ様でした！今回は以下の極意を学びました。
1. `PresentationBeforeSave` を使えば、保存処理そのものをプログラムでコントロールできる。
2. アプリケーションイベントを扱うには、`WithEvents` を使ったクラスモジュールが必須である。
3. イベント変数のライフサイクル（消滅リスク）を考慮し、自動起動の仕組み（`Auto_Open`）と組み合わせることで実用的なシステムになる。
ここをマスターしたあなたすでにもう、単なる「マクロの記録者」ではありません。企業のセキュリティを守る「VBAアプリケーションエンジニア」です。
ぜひこのコードをご自身の環境で試して、ワンランク上のPowerPoint自動化を体感してみてください。あなたのエンジニアライフを、心から応援しています！
