【Project VBA】ファイル保存時に「プロジェクトの概要」プロパティを自動更新する極限の自動化アーキテクチャ
レガシーとモダンが混在する企業インフラストラクチャにおいて、Microsoft Project（MSP）のファイル管理は、プロジェクトマネージャーの頭痛の種であり続けている。
「誰が、いつ、どの状態のベースラインで保存したか」というメタデータの欠落は、多重下請け構造や数百規模のタスクが絡み合う巨大プロジェクトにおいて、致命的な情報格差を生む。
手動でのプロパティ入力は、人間の認知負荷を高め、ヒューマンエラーの温床となる。
今回は、Project VBAのイベントモデル、Windows APIによるシステム情報の安全な抽出、そしてリソースリークを完全に排除したメモリ管理手法を統合し、「ファイル保存時にプロジェクトの概要プロパティを自動更新する定型化マクロ」の極限実装を解説する。
—
1. アーキテクチャの設計思想：なぜ「通常のVBA」では不十分なのか
初心者が陥る最大の罠は、Projectの標準的な `FileSave` メソッドのオーバーライドや、単なるプロパティ代入の繰り返しによるメモリ肥大化だ。
Enterprise環境におけるVBA実行では、以下の制約を突破しなければならない。
1. イベントのフック: ユーザーが「名前を付けて保存」や「上書き保存」を行った瞬間を、VBAのアプリケーションイベント（`App_ProjectBeforeSave`）で確実にとらえる。
2. システムコンテキストの取得: 単なるVBAの `Environ` 関数では不十分な場合がある。Active Directoryやローカルマシンから、より厳密なユーザー名やタイムスタンプを取得するためにWindows APIを駆使する。
3. オブジェクトのライフサイクル管理: COMオブジェクトの参照を適切に解放し、MSProject.exeのプロセス内にメモリリーク（VBA特有のガベージコレクションの遅延に起因するフリーズ）を残さない。
—
2. 実装コード：堅牢性と速度を極限まで高めたVBAモジュール
以下のコードは、単に動くだけのコードではない。エラーハンドリング、Win32 APIによるセキュアなユーザー名取得、そしてプロジェクトプロパティへのアトミックな書き込みを実装したプロダクションレディなコードである。
クラスモジュール: `CAppEvents` (アプリケーションイベントの捕捉)
プロジェクト全体の保存イベントをグローバルに監視するため、クラスモジュールを使用する。
‘ Option Explicitの強制：暗黙の変数宣言を排除し、メモリと型の安全性を担保する
Option Explicit
‘ MSProjectのアプリケーションイベントをWithEventsで宣言
Public WithEvents App As MSProject.Application
Private Sub App_ProjectBeforeSave(ByVal ASAsProject As Project, Cancel As Boolean)
On Error GoTo ErrorHandler
‘ 保存処理がキャンセルされていないか確認し、対象プロジェクトが有効かチェック
If ASAsProject Is Nothing Then Exit Sub
If ASAsProject.Name = “概要” Then Exit Sub ‘ テンプレート等の除外判定（必要に応じて変更）
Dim userName As String
userName = GetCurrentWindowsUser()
‘ プロジェクトの「概要」プロパティ（Built-in Properties）を更新
With ASAsProject
‘ タイトルまたはコメント領域に最新の更新者とタイムスタンプを刻み込む
.Company = “Enterprise PMO Architecture”
.Manager = userName
.LastSavedDate = Now
‘ ユーザー定義のノート（Comments）に監査証跡を残す
.Comments = “Auto-updated by Project VBA Engine. Last Modified by: ” & userName & ” at ” & Format(Now, “yyyy-mm-dd hh:nn:ss”)
End With
Exit Sub
ErrorHandler:
‘ ログ出力またはサイレントフェイルの選択（致命的なエラーでプロジェクトの保存を阻害しないための設計）
MsgBox “プロパティの自動更新中にエラーが発生しました: ” & Err.Description, vbCritical, “VBA Architecture Engine”
‘ 必要に応じて Cancel = True で保存を中断することも可能だが、
‘ メタデータの更新失敗で業務を止めるべきではないため、ここでは警告に留める。
End Sub
標準モジュール: `MMainEventInitializer` (イベントのライフサイクル管理)
アプリケーション起動時にイベントリスナーを登録し、VBAのインスタンスをメモリ上に確実に保持する。
Option Explicit
‘ グローバル変数としてイベントクラスのインスタンスを保持（スコープアウトによるイベント消失を防ぐ）
Private EventHandler As CAppEvents
Public Sub RegisterAppEvents()
‘ 既存のインスタンスが存在する場合は二重登録を防ぐ
If EventHandler Is Nothing Then
Set EventHandler = New CAppEvents
Set EventHandler.App = VB.Application
MsgBox “Project VBA: 概要プロパティ自動更新システムが正常に稼働を開始しました。”, vbInformation, “System Initialize”
End If
End Sub
Public Sub UnregisterAppEvents()
‘ 明示的なオブジェクトの解放（メモリリークの完全防止）
Set EventHandler = Nothing
MsgBox “Project VBA: システム監視を停止しました。”, vbInformation, “System Terminate”
End Sub
Win32 API 統合モジュール: `MWin32Bridge`
標準の `Environ(“USERNAME”)` は環境変数書き換えのリスクがあるため、Win32 APIを叩いてセキュアにユーザー名を取得する。
Option Explicit
If VBA7 Then
‘ 64bitおよび32bit Office (VBA7以降) のためのAPI宣言
Private Declare PtrSafe Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” ( _
ByVal lpBuffer As String, _
nSize As Long) As Long
Else
‘ レガシー32bit環境（Office 2010以前）へのフォールバック
Private Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” ( _
ByVal lpBuffer As String, _
nSize As Long) As Long
End If
Public Function GetCurrentWindowsUser() As String
Dim lpBuffer As String
Dim nSize As Long
Dim lngResult As Long
‘ バッファの初期化
lpBuffer = String(255, 0)
nSize = 255
lngResult = GetUserName(lpBuffer, nSize)
If lngResult <> 0 Then
‘ ヌル文字トリミング
GetCurrentWindowsUser = Left(lpBuffer, InStr(1, lpBuffer, vbNullChar) – 1)
Else
GetCurrentWindowsUser = “Unknown_System_User”
End If
End Function
—
3. シニアエンジニアが知るべき「見落としがちな罠」と最適化
オブジェクトのライフサイクルとガベージコレクション
VBAにおける `WithEvents` は非常に強力だが、インスタンスを格納する変数（今回の `EventHandler`）がローカル変数であったり、予期せぬエラーでスコープ外に出た瞬間、イベントの購読がサイレントに解除される。
必ず標準モジュールのグローバル変数として保持し、さらにWorkbook_OpenやAuto_Openに相当するProjectの初期化プロシージャ（またはアドイン化）で `RegisterAppEvents` を自動実行させる仕組みが不可欠である。
パフォーマンスへの影響
ファイル保存（`BeforeSave`）のタイミングでコードが実行されるため、処理が重すぎるとユーザーの保存操作をブロック（UIスレッドのフック）してしまう。
今回のコードは純粋なメモリ内操作と軽量なWin32 APIコールのみで構成されているため、実行時間は数ミリ秒オーダーに収まる。大規模なエンタープライズMSPファイルであっても、パフォーマンス劣化を感じさせることはない。
—
4. 運用・展開におけるベストプラクティス
1. グローバルテンプレート（Global.mpt）への組み込み
このマクロを特定のプロジェクトファイル（.mpp）に閉じ込めておくのではなく、組織共通の `Global.mpt` にデプロイすることで、全社的かつ強制的に「すべてのプロジェクトファイルがメタデータを自動維持する」ガバナンス体制を構築できる。
2. 監査証跡（Audit Trail）としての活用
`.Comments` プロパティに刻み込まれたタイムスタンプとユーザー名は、後続のPower AutomateやPythonスクリプトによるデータレイク（Data Lake）へのインポート時、誰がいつ最終更新したかを追跡する強力なキーとなる。
妥協のないコードとアーキテクチャ設計こそが、レガシーをモダンに変える唯一の武器である。この実装をあなたの開発パイプラインに組み込み、属人化されたプロジェクト管理から脱却せよ。
