プロジェクトの「魂」を刻む：Project VBAで保存時にメタデータを自動制御する極意
プロジェクト管理において、「誰が、いつ、どのような意図で保存したか」という情報は、単なる管理項目ではない。それはプロジェクトの歴史そのものだ。
しかし、現場でよく見る「手動でプロパティを更新する」という運用は、ヒューマンエラーの温床であり、非効率の極みだ。今回は、Project VBAのイベントドリブン機能を活用し、保存の瞬間にプロジェクトのメタデータを強制的に同期させる、堅牢な実装論を授けよう。
—
なぜ「保存時処理」には細心の注意が必要なのか
まず、初心者が陥りやすい罠がある。`ProjectBeforeSave` イベントを利用する際、「処理の中で再度ファイルを保存する」ような無限ループの設計をしていないか？
イベントハンドラ内で不用意に `FileSave` を呼べば、スタックオーバーフローや予期せぬ再帰呼び出しを引き起こす。また、プロジェクトプロパティへの書き込みは、オブジェクトモデルのオーバーヘッドを伴う。業務効率化のつもりが、保存のたびに数秒のラグが生じるようでは本末転倒だ。
真にプロフェッショナルな設計とは、「必要最小限のアクセスで、確実に値を同期させる」ことにある。
—
プロダクション環境における実装の設計思想
以下のコードは、単にプロパティを書き換えるだけではない。
1. イベントの抑制: 処理中の再帰呼び出しを確実に防ぐ。
2. エラーハンドリング: 万が一、プロパティが存在しない場合やアクセス権がない場合でも、保存プロセス自体を阻害させない（堅牢性）。
3. 可読性と保守性: 定数を活用し、将来的な項目の追加や変更に即座に対応できる構造にする。
実装コード：`ThisProject` モジュール
‘ ———————————————————
‘ Project イベント制御用モジュール
‘ ———————————————————
Option Explicit
Private Sub Project_BeforeSave(ByVal pj As Project, ByVal SaveAsUi As Boolean, Cancel As Boolean)
‘ 目的: ファイル保存前にプロジェクトプロパティを自動更新する
‘ 注意: 処理が重くなるような複雑な計算はここで行わないこと
On Error GoTo ErrorHandler
‘ プロパティの更新処理
UpdateProjectMetadata pj
Exit Sub
ErrorHandler:
‘ ログ出力やイミディエイトウィンドウへの通知を行い、
‘ 保存プロセス自体は中断させない設計にする
Debug.Print “メタデータ更新エラー: ” & Err.Description
End Sub
Private Sub UpdateProjectMetadata(ByVal pj As Project)
‘ 定数管理で保守性を向上させる
Const PM_NAME As String = “佐藤 太郎”
With pj
‘ プロジェクトの概要プロパティへの書き込み
.ProjectSummaryInfo.Author = Application.UserName
.ProjectSummaryInfo.Manager = PM_NAME
.ProjectSummaryInfo.Comments = “最終更新: ” & Now & ” | 自動更新済み”
‘ 必要に応じてカスタムフィールドへの同期も可能
‘ .ProjectSummaryInfo.CustomDocumentProperties(“Status”) = “Active”
End With
End Sub
—
この実装を「現場」で使いこなすための知見
1. データベース連携時の落とし穴
もし、このプロジェクトファイルをSharePointやSQL Serverと連携させている場合、保存時のプロパティ更新が「サーバー側の更新ロック」と競合することがある。その場合、`Application.Calculation = pjManual` を一時的に適用し、計算コストを下げてからプロパティを書き込むといった工夫が必要になる。
2. なぜ「CustomDocumentProperties」を避けるべきか
Project VBAにおいて、標準の `ProjectSummaryInfo` は安定しているが、`CustomDocumentProperties` は環境によって取得できないケースがある。本格的なプロジェクト管理基盤を構築するなら、プロジェクトファイル自体のプロパティに依存せず、外部の構成管理テーブル（ExcelやSQL）にメタデータを逃がすのが、長期運用における最適解だ。
3. 保守性への投資
上記のコードは `UpdateProjectMetadata` という独立したサブプロシージャに切り出している。これが重要だ。プロジェクトの規模が大きくなると、プロパティ更新のルールは必ず変更される。ロジックを分離しておくことで、将来的に「特定のプロジェクト種別だけ更新する」といった条件分岐を追加する際も、イベントハンドラを汚さずに対応できる。
—
最後に：自動化とは「信頼」を築くこと
コードをコピペして動かすことは誰にでもできる。しかし、そのコードが「なぜそこでエラーを吐かないのか」「なぜこの書き方が効率的なのか」を理解して実装することこそが、エンジニアの価値だ。
自動化ツールは、プロジェクトに関わるメンバーの時間を奪うものであってはならない。保存の瞬間に静かに、かつ確実に情報を刻み込む。そんな「気配りのできるコード」を、あなたのプロジェクトに実装してほしい。
それができれば、あなたは単なるVBAユーザーではなく、プロジェクトの健全性を守る「アーキテクト」の一歩を踏み出したことになる。
