【極限のVBA】Applicationイベントによる「機密漏洩阻止」自動暗号化アーキテクチャ
PowerPointのオートメーションは、往々にして「スライドの自動生成」という表層的なレベルで語られる。しかし、真のアーキテクトは、そのイベント駆動モデルの深淵を見据えている。
今回は、プレゼンテーションが破棄される「死の瞬間（PresentationClose）」をフックし、メタデータに「社外秘」の刻印があるファイルを検知、即座に暗号化退避させるセキュリティ・プロテクターの実装を解説する。これは単なるマクロではない。メモリ管理とイベントライフサイクルを掌握した者だけが到達できる、防御的プログラミングの真髄だ。
—
1. 核心：`WithEvents`によるApplicationスコープの監視
通常のモジュールでは、閉じる対象のプレゼンテーションしか監視できない。システム全体を俯瞰するには、`Class Module`を使用し、`Application`オブジェクトを`WithEvents`で定義する必要がある。
Class Module: `AppEvents.cls`
Option Explicit
‘ Applicationイベントをハンドルするために必須
Public WithEvents App As PowerPoint.Application
Private Sub App_PresentationBeforeClose(ByVal Pres As Presentation, Cancel As Boolean)
‘ 閉じる直前の「最後の悪あがき」をキャッチする
‘ ここでの処理が重いとユーザー体験を損なうため、極限まで軽量化する
If Pres.Tags(“SecurityLevel”) = “Secret” Then
‘ 暗号化処理の呼び出し
If Not SecureBackup(Pres) Then
‘ バックアップ失敗時は保存を阻止する強硬手段も検討に値する
MsgBox “重要：機密データのバックアップに失敗しました！”, vbCritical
End If
End If
End Sub
—
2. 実践：暗号化と退避の深層
ファイルをコピーするだけでは甘い。Windows APIを利用し、ファイルハンドルを確実に制御しつつ、AES等の暗号化アルゴリズム（ここでは簡略化のため概念的な処理）を適用する。
重要なのは「オブジェクトの明示的解放」だ。VBAはガベージコレクションが脆弱なため、不要な参照を残すとメモリリークを招き、長時間のプレゼン操作でPowerPointがクラッシュする要因となる。
Standard Module: `SecureModule.bas`
Option Explicit
Public Function SecureBackup(ByRef Pres As Presentation) As Boolean
Dim fso As Object
Dim targetPath As String
Dim backupPath As String
On Error GoTo ErrHandler
Set fso = CreateObject(“Scripting.FileSystemObject”)
targetPath = Pres.FullName
backupPath = “C:\SecureArchive\” & Pres.Name & “.enc”
‘ ファイルが保存済みかチェック（未保存の場合は一時ファイルとして扱う）
If Not fso.FileExists(targetPath) Then Exit Function
‘ 1. 暗号化処理のシミュレーション（実際はCryptoAPI/CAPICOM等を使用）
‘ 2. 退避先へのコピー
fso.CopyFile targetPath, backupPath, True
SecureBackup = True
CleanUp:
‘ 【重要】オブジェクトの明示的解放
‘ これを怠ることは、大規模な環境でのシステムダウンを意味する
Set fso = Nothing
Exit Function
ErrHandler:
SecureBackup = False
Resume CleanUp
End Function
—
3. レガシー環境を生き抜くための極限の知見
このシステムを運用する上で、シニアエンジニアとして留意すべき点が3つある。
1. イベントの連鎖（Re-entrancy）への対策: `PresentationBeforeClose`の中でさらに別の`Save`操作を行うと、イベントが再帰的に発生しスタックオーバーフローを招く可能性がある。`Application.EnableEvents = False`を適切に活用し、クリティカルセクションを保護せよ。
2. 型安全性（Late vs Early Binding）: 他の環境との互換性を重視するなら`Late Binding`（Object型）だが、パフォーマンスとIntelliSenseを優先するなら参照設定を用いた`Early Binding`を選択せよ。本番環境では、参照設定が外れるリスクを考慮し、動的なロード手法を推奨する。
3. ユーザー操作との競合: ユーザーが「保存せずに閉じる」を選択した場合でも、このフックは機能する。しかし、ファイルが物理的に存在しない場合（新規作成直後）、`Pres.FullName`は空文字列を返す。このエッジケースを見落とすアーキテクトは二流である。
—
結びに：自動化は「責任」である
我々が書くコードは、単なる機能ではない。それは組織のナレッジを守るための防壁である。
VBAはレガシーと揶揄されるが、Windows APIと深く結合させ、メモリ管理を徹底すれば、現代の言語にも引けを取らない堅牢なセキュリティ・エージェントを構築できる。
オブジェクトのライフサイクルを慈しみ、メモリの残滓を許すな。それが、真の自動化エンジニアの矜持である。
—
チーフアーキテクト・メモ: 本コードを実装する際は、`Auto_Open`で`AppEvents`クラスをインスタンス化し、グローバル変数で保持してイベントの切断を防ぐことを忘れてはならない。さもなくば、ガベージコレクションによってイベント監視は即座に停止するだろう。
