【PowerPoint VBA】プレゼン破損・ロックを事前検知する「堅牢なオープン・ラッパー」の極意
業務自動化の現場において、PowerPointの`Presentations.Open`メソッドを「無防備に」呼び出すことは、時限爆弾にスイッチを入れる行為に等しい。
ネットワークドライブ上のファイルが他者によって排他的にロックされている場合、あるいはバイナリの不整合でファイルが破損している場合、PowerPointはダイアログを吐き出し、プロセスをサスペンド（フリーズ）させる。自動化の文脈において、「ユーザーの介入を待つダイアログ」は、死を意味する。
本稿では、我々エンジニアがプロフェッショナルとして守るべき、防衛的プログラミングの深淵を解説する。
—
1. 原理：なぜ「開く前」に検知が必要なのか
PowerPointの`Open`メソッドは、実行権限を完全にOSのファイルI/Oスタックに委ねる。この処理が始まると、VBAの制御フローは「ファイルが開ききるか、エラーを返すか」まで戻ってこない。
我々が実装すべきは、「低レイヤーのI/Oによる先行チェック」と「例外処理（Err Object）の厳格な封じ込め」の二段構えである。
なぜ `Open` メソッド単体では不十分か
`On Error Resume Next` で囲んで `Open` するだけでは、ファイルが他者にロックされている際の「読み取り専用で開くか？」といったWindows標準のダイアログが、プロセスのメインスレッドをブロックし続けるからだ。
—
2. 実装：堅牢な事前判定プロシージャ
以下に、ファイルが物理的にアクセス可能か、そしてロックされていないかを判定するラッパー関数を提示する。
‘ @description ファイルの存在確認と排他ロック判定を行い、安全に開くためのラッパー
‘ @param filePath ターゲットパス
‘ @return Presentationオブジェクト（失敗時はNothing）
Public Function SafeOpenPresentation(ByVal filePath As String) As Presentation
Dim fso As Object
Dim fileNum As Integer
‘ 1. FSOによる存在確認（大前提）
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(filePath) Then
Debug.Print “Error: File does not exist.”
Set SafeOpenPresentation = Nothing
Exit Function
End If
Set fso = Nothing ‘ メモリ解放（オブジェクトのライフサイクル管理）
‘ 2. 低レベルI/Oによるロック判定
‘ ファイルを排他的に開こうと試みる（成功すればロックされていない）
On Error Resume Next
fileNum = FreeFile
Open filePath For Binary Access Read Write Lock Read Write As #fileNum
If Err.Number <> 0 Then
‘ エラー発生なら他者が使用中
Debug.Print “Error: File is locked by another process.”
Close #fileNum
Set SafeOpenPresentation = Nothing
Exit Function
End If
Close #fileNum
On Error GoTo 0
‘ 3. 満を持して安全にオープン
‘ ここで初めてPowerPointのOpenメソッドを叩く
On Error Resume Next
Set SafeOpenPresentation = Presentations.Open(fileName:=filePath, ReadOnly:=msoTrue)
If Err.Number <> 0 Then
Debug.Print “Error: Failed to open presentation due to corruption or unknown error.”
Set SafeOpenPresentation = Nothing
End If
On Error GoTo 0
End Function
—
3. シニアエンジニアが押さえるべき「3つの鉄則」
① オブジェクトのライフサイクルと解放
VBAにおいて `Set = Nothing` は単なるマナーではない。特にCOMオブジェクトを多用する場合、循環参照やメモリリークを避けるための必須儀式だ。スコープが終わる場所で必ず解放し、スタックをクリーンに保て。
② ファイルI/Oの「排他テスト」の真価
`Open #fileNum For Binary…` によるテストは、Windows APIの `CreateFile` をVBAレベルでラップする最も原始的かつ強力な手法だ。これを使えば、`Presentations.Open` が「ファイルが壊れているのか」「誰かが開いているのか」を判断するよりも前に、論理的なアクセス権を確定できる。
③ プレゼン破損の検知
もし `Presentations.Open` が失敗し、かつ `Err.Number` が特定の値を返した場合、それはバイナリ破損の可能性が高い。この場合、VBAからは修復不可能であるため、即座にログを吐き出し、管理者に通知するフローへ移行すべきだ。
—
4. 終わりに：アーキテクトとしての心構え
「自動化コード」とは、ハッピーパス（正常系）を走らせるためのものではない。異常系という名の「現実」に遭遇した際、いかに優雅にプロセスを終了させ、システム全体を汚染させないかが、シニアエンジニアとスクリプトキディの分水嶺となる。
この `SafeOpenPresentation` 関数は、あらゆる自動化プロジェクトの「ゲートキーパー」として機能する。これを実装した時点で、あなたのマクロは「動くだけのコード」から「運用に耐えうるシステム」へと昇華するはずだ。
コードを信じるな。OSが返すステータスコードだけを信じろ。それが、この過酷な現場を生き抜く唯一の術である。
