PowerPoint VBAを極める者よ、耳を貸してほしい。
業務の現場において、「やってはいけない操作」をユーザーの善意やリテラシーに委ねる設計は、アーキテクトとしての怠慢でしかない。社外秘データの持ち出し、機密情報の誤保存、規定外のフォーマットでの出力——これらは人間の注意力で防ぐのではなく、システムの水際で物理的に遮断しなければならない。
今回は、PowerPointのアプリケーションイベント `PresentationBeforeSave` を完全掌握し、セキュリティ基準を満たさないプレゼンテーションの保存を強制キャンセルする「プロ仕様のセキュリティアドイン開発」の極意を伝授する。
一般的な入門書が語るような「ボタンを押したらスライドを追加する」といったお遊戯のようなコードではない。オブジェクトのライフサイクルとメモリ管理、そして確実なイベントフックの裏側にある「暗黙の罠」をすべて暴いていこう。
—
1. なぜ標準機能では不十分なのか？
PowerPointには、WordやExcelのような「保存前イベントをフックする直感的なWorkbook/Documentモジュール」が存在しない。PowerPointでアプリケーションレベルのイベントを捉えるには、`WithEvents` キーワードを用いたクラスモジュールを立ち上げ、VBAのライフサイクルとアプリケーションのインスタンスを完璧に同期させる必要がある。
ここに妥協があると、イベントが二重登録されたり、PowerPointの強制終了時にメモリリークを引き起こしたりする。プロの現場に耐えうる、堅牢なクラス設計を解説する。
—
2. 堅牢なセキュリティアドインのアーキテクチャ
今回の実装では、以下の2つのコンポーネントを使用する。
1. クラスモジュール (`EventClass`): `Application` オブジェクトをラップし、`PresentationBeforeSave` イベントを監視する。
2. 標準モジュール (`ModuleMain`): アドインのロード時（起動時）にクラスのインスタンスを生成し、イベントのフックを開始・終了する。
【プロダクションコード】クラスモジュール: `EventClass`
まずは、イベントをキャッチする心臓部だ。ここで保存処理のキャンセル（`Cancel = True`）を制御する。
‘ =================================================================ローチ
‘ クラスモジュール名: EventClass
‘ 役割: PowerPointのアプリケーションイベントを監視し、保存前条件を検証する
‘ =================================================================
Option Explicit
‘ WithEventsを使用してApplicationオブジェクトを宣言
Public WithEvents App As PowerPoint.Application
‘ イベントプロシージャ: 保存が実行される直前に必ず発火する
Private Sub App_PresentationBeforeSave(ByVal Pres As Presentation, Cancel As Boolean)
On Error GoTo ErrorHandler
‘ ————————————————————-
‘ セキュリティチェックロジック（例: 機密ラベルの有無、特定のNGワード、メタデータ）
‘ ————————————————————-
If Not ValidateSecurityPolicy(Pres) Then
‘ 条件を満たさない場合、保存を強制キャンセル
Cancel = True
MsgBox “【セキュリティ警告】” & vbCrLf & _
“このプレゼンテーションには社外秘データまたは未承認の要素が含まれているため、” & vbCrLf & _
“保存がブロックされました。管理者に確認してください。”, _
vbCritical + vbOKOnly, “Enterprise Security Manager”
End If
Exit Sub
ErrorHandler:
‘ 予期せぬエラーによる無限ループやPowerPointのクラッシュを防ぐ防壁
Cancel = True
MsgBox “セキュリティ検証中に致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“安全のため保存を中止します。”, vbCritical, “System Error”
End Sub
‘ 独自のセキュリティ基準検証関数
Private Function ValidateSecurityPolicy(ByVal Pres As Presentation) As Boolean
‘ 【実務上の実装例】
‘ 1. プロパティに特定のカスタムフィールド（例: “SecurityLevel”）が存在するか
‘ 2. スライドマスターに特定の機密ウォーターマークがあるか
‘ 3. ファイル名に「社外秘_Draft」などの文字列が含まれていないか 等
Dim sld As Slide
Dim shp As Shape
Dim isCompliant As Boolean
isCompliant = True ‘ デフォルトは合格仮定
‘ 例外チェック: ファイル名に「CONFIDENTIAL」が含まれているかテスト
If InStr(1, Pres.Name, “CONFIDENTIAL”, vbTextCompare) > 0 Then
‘ ここでは例として、特定のテキストボックスに「Approved」という承認スタンプがあるか走査する
Dim hasApprovalStamp As Boolean
hasApprovalStamp = False
For Each sld In Pres.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
If InStr(1, shp.TextFrame.TextRange.Text, “【承認済み】”, vbTextCompare) > 0 Then
hasApprovalStamp = True
Exit For
End If
End If
Next shp
If hasApprovalStamp Then Exit For
Next sld
‘ 承認スタンプがない場合はポリシー違反とみなす
isCompliant = hasApprovalStamp
End If
ValidateSecurityPolicy = isCompliant
End Function
【プロダクションコード】標準モジュール: `ModuleMain`
次に、このクラスをグローバルに保持し、アドインの有効化・無効化のライフサイクルを管理するモジュールを記述する。
‘ =================================================================
‘ 標準モジュール名: ModuleMain
‘ 役割: イベント監視クラスのインスタンスライフサイクルを制御する
‘ =================================================================
Option Explicit
‘ アプリケーションインスタンスを保持するグローバル変数
Public icaServer As EventClass
‘ アドイン読み込み時（または手動実行時）にイベント監視を開始
Sub InitializeSecurityMonitor()
If icaServer Is Nothing Then
Set icaServer = New EventClass
Set icaServer.App = Application
MsgBox “セキュリティ監視エージェントが正常に稼働を開始しました。”, vbInformation, “Enterprise Security”
End If
End Sub
‘ 監視を停止し、メモリを解放する
Sub TerminateSecurityMonitor()
If Not icaServer Is Nothing Then
Set icaServer.App = Nothing
Set icaServer = Nothing
MsgBox “セキュリティ監視エージェントを停止しました。”, vbInformation, “Enterprise Security”
End If
End Sub
—
3. 開発現場で絶対に押さえておくべき「3つの罠」
この仕組みを実務導入するにあたり、アマチュアの開発者が必ずハマる「地雷」が存在する。チーフアーキテクトとして、これを事前に回避する知見を授けよう。
罠1: 変数のスコープ消滅によるイベントの「神隠し」
標準モジュール内で通常のローカル変数としてクラスをインスタンス化すると、マクロの終了と同時にメモリから消去され、イベントが一切発火しなくなる。
必ず `Public icaServer As EventClass` のように、グローバル（またはそれに準ずるスコープ）で保持し続けなければならない。
罠2: アドイン起動時の自動フック（Auto_Open）
PowerPointアドイン（`.ppam`）として保存し、配布する場合、ユーザーがファイルを開いた瞬間に自動で監視が走るように仕込む必要がある。
標準モジュールに以下のプロシージャを追加せよ。
‘ アドインがPowerPointにロードされた瞬間に自動実行される
Sub Auto_Open()
Call InitializeSecurityMonitor
End Sub
罠3: エラーハンドリングの欠如による無限ループ
`PresentationBeforeSave` 内でデバッグミス等による実行時エラーが発生すると、PowerPoint自体が不安定になるか、最悪の場合セーブデータが破損する。
必ず `On Error GoTo` を記述し、例外発生時には `Cancel = True` を強制して予期せぬダーティデータの書き込みを物理的に防ぐこと。
—
4. チーフアーキテクトからの提言
コードを書くだけならAIでもできる。しかし、「企業のコンプライアンスポリシーをコードの力で担保し、人間のヒューマンエラーをシステムが優しく、かつ厳格に押し返す構造」を設計できるのは、現場を知るエンジニアだけだ。
今回のコードをベースに、自社のデータベースやActive Directoryの権限情報、あるいは外部API（REST API）と連携させ、「保存の瞬間に社内サーバーへログを飛ばす、または上長承認フラグをAPI経由で確認する」という高度な拡張へとステップアップしてほしい。
技術は、面倒な仕事を自動化するためだけにあるのではない。組織のリスクを守る盾としても、その真価を発揮するのだ。
