【Project VBA極意】パスワード付きファイル自動オープン：認証地獄を回避する堅牢なエラーハンドリング
業務自動化の現場において、MS Projectの自動化は「定石」を外すと即座にシステムがフリーズする、非常に繊細な領域だ。特に「パスワード保護されたプロジェクトファイル」の自動処理は、中級者が最も躓き、そして最も安易なコードで爆死するポイントである。
今回は、単に「開く」だけでなく、「認証エラーを論理的に制御し、バックグラウンド処理を停止させない」ための、プロダクションレベルの設計思想を伝授する。
—
1. なぜ「単純なOpen」ではダメなのか
多くのエンジニアは `Project.Application.FileOpen` メソッドを単に呼び出すだけで満足する。しかし、現実の運用環境では以下のような事象が日常的に発生する。
- ダイアログのポップアップによる処理の完全停止（人間がパスワードを入力するまでプログラムが待機してしまう）
- ファイルが開けなかった際のメモリリーク（失敗したオブジェクト参照が残り、次回実行時にGhostプロセスが発生する）
- パスワードが間違っていた場合のランタイムエラー（アプリケーションが異常終了し、後続のDB更新処理が不整合を起こす）
我々が目指すべきは、「エラーが発生しても、システム全体として安全にクローズし、ログを出力して終了する」という設計だ。
—
2. 堅牢な実装のためのアーキテクチャ
パスワード付きファイルを開く際は、以下の3要素を厳守しなければならない。
1. `DisplayAlerts = False`: 警告ダイアログを強制的に抑制する。
2. 適切な引数指定: `Password` 引数を明示的に渡すことで、ダイアログそのものを出現させない。
3. On Error Resume Next の限定使用: エラーハンドリングは「広く浅く」ではなく、「特定のブロックに限定」して行う。
—
3. 実践コード：プロダクション・レベルの実装例
以下は、保守性を担保しつつ、エラー発生時に確実にリカバリを行うためのVBAテンプレートだ。
‘ @description: パスワード保護されたプロジェクトファイルを安全に開く関数
‘ @param filePath: 開くファイルのフルパス
‘ @param password: パスワード
‘ @return: 成功ならプロジェクトオブジェクト、失敗ならNothing
Public Function SafeOpenProject(ByVal filePath As String, ByVal password As String) As Project
Dim projApp As Object
Set projApp = Application ‘ プロジェクト内VBAから呼び出す場合
‘ 1. ダイアログ抑制による自動化の安定化
Dim originalAlerts As Boolean
originalAlerts = projApp.DisplayAlerts
projApp.DisplayAlerts = False
On Error GoTo ErrHandler
‘ 2. ファイルを開く（パスワード引数を渡す）
‘ ※ここでパスワードが違うと即座にエラーがスローされる
projApp.FileOpen Name:=filePath, ReadOnly:=False, Password:=password
‘ 成功時は開いたプロジェクトを返す
Set SafeOpenProject = projApp.ActiveProject
CleanExit:
‘ 3. 設定を戻す（必ず実行する）
projApp.DisplayAlerts = originalAlerts
Exit Function
ErrHandler:
‘ 認証エラーやファイル不在をここでログ出力
Debug.Print “Error ” & Err.Number & “: ” & Err.Description
Set SafeOpenProject = Nothing
Resume CleanExit
End Function
—
4. プロフェッショナルのための「注意点」
ファイルシステムとデータベース連携の罠
このコードをさらに拡張し、DBからパスワードを取得してループ処理を行う場合、`Set Project = Nothing` の明示的な解放を忘れてはならない。Project VBAはオブジェクト参照がメモリに残りやすく、ループの回数が数千回を超えると、ExcelやProjectのプロセスがゾンビ化する。
- 改善策: 各ファイルの処理が終わるたびに `ActiveProject.Close SaveChanges:=pjDoNotSave` を呼び出し、メモリを解放する習慣をつけよ。
パスワードの管理について
ソースコード内にパスワードを直書き（ハードコーディング）するのは論外だ。
- 推奨: 秘匿情報は環境変数、またはWindowsの資格情報マネージャー、あるいは暗号化された設定ファイルから動的に取得すること。
—
結びに：自動化の真髄は「失敗を許容する」ことにある
優れた自動化ツールとは、すべてが完璧に動くものではない。「何かが起きたときに、いかにエレガントに停止し、管理者に的確な情報を残すか」が重要だ。
今回紹介したエラーハンドリングと引数制御は、Project VBAにおける自動化の最小単位にして、最大の防衛線である。このコードをベースに、あなたのプロジェクトの堅牢性を一段上のレベルへと引き上げてほしい。
質問があれば、コメント欄ではなく、自身のコードのデバッグログを確認することから始めてみよう。それがエンジニアの第一歩だ。
