Project VBAの深淵：保存イベントをハックし、メタデータを極限まで制御する
Project VBAの世界において、「保存」というプロセスは単なるファイルの書き出しではない。それは、プロジェクトのステータスという「生きた情報」を、永続的なデータベースへと同期させる儀式である。
多くの開発者は、`Project_BeforeSave`イベントに単純な代入文を書くことで満足している。だが、真のアーキテクトであれば、その背後で何が起きているかを知るべきだ。メモリリークを許容せず、システム連携の整合性を担保し、かつレガシー環境の制約を突破する実装。それこそが、我々が目指すべき地平である。
今回は、プロジェクトの「概要（Built-in Properties）」を保存直前に完全自動制御する、実戦的かつ堅牢な設計を伝授する。
—
なぜ「単純な代入」では足りないのか
VBAの`Project.BuiltinDocumentProperties`は、実はCOMオブジェクトのラッパーに過ぎない。これを不用意に叩くことは、リファレンスのスタックを汚染するリスクを孕む。特に、大規模プロジェクトファイルにおいて、イベントハンドラ内でのオブジェクト生成・破棄が適切でない場合、VBAのガベージコレクション（GC）は悲鳴を上げ、最悪の場合、プロジェクトファイル自体の破損（Corruption）を招く。
アーキテクトが守るべき鉄則
1. Late Bindingの回避: 可能な限りEarly Binding（事前バインディング）を徹底し、コンパイル時に型チェックを完了させる。
2. プロセスの明示的解放: `Set obj = Nothing` は儀式ではない。COMの参照カウントを確実に減らすための生存戦略である。
3. イベントの連鎖防止: 保存イベント内での更新が、さらなる保存イベントをトリガーしないよう、`Application.EnableEvents` の制御が不可欠だ。
—
実装：プロジェクト概要プロパティの自動更新ロジック
以下は、`ThisProject` モジュールに記述すべき、堅牢かつ最適化された実装である。
‘ —————————————————————————
‘ 概要: 保存直前にプロジェクト情報をメタデータへ同期する
‘ 設計指針: COMオブジェクトの参照を最小化し、メモリ負荷を軽減する
‘ —————————————————————————
Private Sub Project_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Dim proj As Project
Dim props As DocumentProperties
‘ イベントの多重発生を防止するためのセーフティガード
Application.EnableEvents = False
On Error GoTo ErrorHandler
Set proj = ThisProject
Set props = proj.BuiltinDocumentProperties
‘ 必要なプロパティの更新
‘ ここでは「作成者」「マネージャー」「最終更新日」を強制更新する
With props
.Item(“Author”).Value = “System_Architecture_Unit”
.Item(“Manager”).Value = Environ(“USERNAME”) ‘ 現在のユーザー名を取得
.Item(“Last Author”).Value = “Automated_VBA_Agent”
End With
CleanUp:
‘ 明示的なオブジェクト解放（重要：参照カウントの正常化）
Set props = Nothing
Set proj = Nothing
Application.EnableEvents = True
Exit Sub
ErrorHandler:
‘ ログ出力やエラーハンドリングをここに記述
Debug.Print “Error ” & Err.Number & “: ” & Err.Description
Resume CleanUp
End Sub
—
極限の知見：レガシー環境におけるWindows API連携
もし、あなたが制御しているProjectファイルが、社内のERPや外部のDBと密接に連携している場合、単なるプロパティ更新では不十分な場合がある。
例えば、「ファイルの物理的な最終更新日時」と「プロジェクト内のメタデータ」を完全に同期させたい場合、VBAの標準機能だけではWindowsファイルシステムのタイムスタンプを直接操作できない。この際、`kernel32.dll` の `SetFileTime` 関数を呼び出し、VBAから直接ファイル属性を書き換える手法が有効だ。
Windows API活用のヒント
- GetFileTime / SetFileTime: プロジェクトを開いた瞬間に、プロジェクト内の「最終更新日時」をファイルシステム側へ同期させることで、Windows Explorer上のタイムスタンプと中身の整合性を強制的に保つことができる。
- メモリ最適化: APIを呼び出す際は、`LongPtr` 型を必ず使用すること。64bit版Office環境（近年主流の環境）で `Long` を使用すると、メモリアクセス違反による強制終了が待っている。
—
結びに代えて
VBAは、現代のローコード開発ツールが忘れてしまった「コンピュータそのものを制御する感覚」を今も残している。
保存イベントという極めて短い時間に、どれだけのエラーチェックを盛り込み、どれだけリソースを枯渇させないか。その緻密な計算こそが、伝説的な自動化エンジニアと、単なるコード書きを分かつ境界線だ。
諸君、このコードを土台に、自らの環境に合わせてカスタマイズを繰り返してほしい。技術の真髄は常に、現場の泥臭い最適化の先にある。
