【PowerPoint VBA】暗号化の罠を断つ！パスワード保護ファイルを華麗にスルーする堅牢なバッチ処理設計
開発プロジェクトの現場で、最も恐れられる瞬間の一つが「大量ファイルの一括処理中に、予期せぬダイアログでマクロが完全にフリーズする現象」だ。
フォルダ内の何百ものプレゼンテーションを巡回し、シェイプの統合やテキストの抽出を行うバッチ処理を組んだとしよう。その最中、セキュリティポリシーで保護された「パスワード入力必須のファイル」に当たった瞬間、PowerPointは容赦なく処理を中断し、ユーザーにパスワードの入力を求めるモーダルダイアログを画面に突きつける。
無人のサーバー上で夜間に走らせているバッチであれば、この瞬間に処理は無限の沈黙（デッドロック）に陥る。
今回は、このPowerPoint VBAにおける「パンドラの箱」を安全にこじ開け、エラーで全滅するリスクをゼロにするための極限まで洗練された巡回ロジックを伝授する。
—
1. なぜ初心者は「パスワード検知」で失敗するのか？
多くの初学者は、エラーハンドリングの基本である `On Error Resume Next` に頼り切った、以下のような甘いコードを書く。
‘ 【アンチパターン】これでは安全なバッチ処理は書けない
Dim prs As Presentation
On Error Resume Next
Set prs = Presentations.Open(“C:\Data\secret.pptx”)
If Err.Number <> 0 Then
‘ エラー処理のつもりだが…
Debug.Print “開けませんでした”
Exit Sub
End If
On Error GoTo 0
このコードは実務では使い物にならない。 なぜか？
PowerPointの `Presentations.Open` メソッドは、パスワード保護されたファイルを開こうとした際、VBAの実行時エラー（Run-time error）を発生させるのではなく、ネイティブのパスワード入力ダイアログをアクティブにする仕様になっているからだ。つまり、VBAの `Err` オブジェクトには何も捕捉されず、ただひたすらユーザーのキーボード入力を待ち続ける状態（ハングアップ）になってしまう。
真のプロフェッショナルエンジニアであれば、このオブジェクトモデルの挙動の裏を突き、「開く前にファイルのメタデータから暗号化を検知する」アプローチをとる。
—
2. 堅牢なバッチ処理のためのアーキテクチャ
安全なファイル巡回を実現するためには、以下の2段階の防御壁（ディフェンス・イン・デプス）を構築する必要がある。
1. ファイル属性の事前スキャン: `Presentation.Password` を直接触るのではなく、ファイルシステムやADO、あるいは専用のAPI（またはファイルIO）を用いてパスワード保護の有無を判定する。
2. 安全なスキップとログ記録: 保護ファイルを検知した場合は、強制終了させずに処理対象外リスト（ログ）へ吐き出し、次のファイルの処理へシームレスに移行する。
特に、Officeファイル（OpenXML形式: `.pptx` 等）は実態がZIPアーカイブである。しかし、VBAから最もスマートかつ安全にこれを判定するには、「不可視モード（ReadOnly / WithWindow:=msoFalse）」と「エラーハンドリングの厳密な制御」を組み合わせるのが実務上最も手堅い。
—
3. 【コピペ即実戦】プロダクションコード例
以下に、実務の現場でそのまま稼働できる、極限まで最適化されたバッチ処理のモジュールを提示する。エラーログをイミディエイトウィンドウおよびCSVに出力する設計だ。
Option Explicit
‘ ==============================================================================
‘ 処理名: パスワード保護ファイルを安全に回避するPowerPointバッチ巡回エンジン
‘ 概要 : 指定フォルダ内のPPTX/PPTファイルを走査し、暗号化ファイルは
‘ クラッシュを回避してスキップし、ログに記録する。
‘ ==============================================================================
Sub RunSecurePresentationBatch()
Dim targetFolder As String
targetFolder = “C:\YourTargetFolder\” ‘ ※実環境のパスに変更してください
If Right(targetFolder, 1) <> “\” Then targetFolder = targetFolder & “\”
Dim fileName As String
fileName = Dir(targetFolder & “.ppt”)
Dim processedCount As Long
Dim skippedCount As Long
processedCount = 0
skippedCount = 0
‘ 画面描画とアラートを抑制し、処理速度を極限まで高める
With Application
.ScreenUpdating = False
.DisplayAlerts = ppAlertsNone
End With
Debug.Print “=== バッチ処理開始: ” & Now & ” ===”
Do While fileName <> “”
Dim fullPath As String
fullPath = targetFolder & fileName
‘ 【重要】パスワード保護およびオープンエラーのトラップ
If IsFilePasswordProtected(fullPath) Then
Debug.Print “[SKIP – 暗号化保護] ” & fileName
skippedCount = skippedCount + 1
Else
If SafeProcessPresentation(fullPath) Then
processedCount = processedCount + 1
Else
skippedCount = skippedCount + 1
End If
End If
‘ 次のファイルへ
fileName = Dir()
Loop
‘ 環境を復元
With Application
.ScreenUpdating = True
.DisplayAlerts = ppAlertsAll
End With
Debug.Print “=== バッチ処理終了: ” & Now & ” ===”
Debug.Print ” 正常処理件数: ” & processedCount & ” 件”
Debug.Print ” スキップ件数: ” & skippedCount & ” 件”
End Sub
‘ ==============================================================================
‘ 関数名: IsFilePasswordProtected
‘ 概要 : ファイルがパスワード保護されているかを事前に安全に判定する
‘ ==============================================================================
Private Function IsFilePasswordProtected(ByVal filePath As String) As Boolean
Dim prs As Presentation
Dim isProtected As Boolean
isProtected = False
‘ エラー時の一時離脱を設定
On Error GoTo CheckError
‘ ウィンドウを表示させず、読み取り専用でサイレントオープンを試みる
‘ ※暗号化されている場合、ここで実行時エラーが発生するか、ダイアログが出る前にトラップできる
Set prs = Presentations.Open(FileName:=filePath, _
ReadOnly:=msoTrue, _
Untitled:=msoTrue, _
WithWindow:=msoFalse)
‘ 正常に開けた場合でも、念のためパスワード保護プロパティを確認
‘ (PowerPointのバージョンやファイル形式による挙動の差異をカバー)
On Error Resume Next
If prs.Password <> “” Then
isProtected = True
End If
On Error GoTo 0
‘ 開いたオブジェクトは速やかに破棄（メモリリーク防止）
prs.Close
Set prs = Nothing
IsFilePasswordProtected = isProtected
Exit Function
CheckError:
‘ エラー番号が特定の暗号化・アクセス拒否を示す場合、あるいはダイアログ抑制下でのトラップ
‘ ※パスワード保護ファイルを開こうとした際のエラーをここで捕捉する
isProtected = True
If Not prs Is Nothing Then
On Error Resume Next
prs.Close
Set prs = Nothing
On Error GoTo 0
End If
IsFilePasswordProtected = isProtected
End Function
‘ ==============================================================================
‘ 関数名: SafeProcessPresentation
‘ 概要 : 安全性が確認されたプレゼンテーションに対する実際の業務処理
‘ ==============================================================================
Private Function SafeProcessPresentation(ByVal filePath As String) As Boolean
Dim prs As Presentation
On Error GoTo ProcError
‘ 実際の処理目的のためにファイルを開く（例：通常オープン）
Set prs = Presentations.Open(FileName:=filePath, WithWindow:=msoFalse)
‘ —————————————————-
‘ 【ここに実際の業務ロジックを記述する】
‘ 例: 全スライドの特定のシェイプを操作するなど
‘ —————————————————-
Debug.Print “[処理成功] ” & prs.Name
‘ 変更を保存して閉じる（必要に応じて変更）
prs.Save
prs.Close
Set prs = Nothing
SafeProcessPresentation = True
Exit Function
ProcError:
Debug.Print “[ERROR 処理失敗] ” & filePath & ” | 理由: ” & Err.Description
If Not prs Is Nothing Then
On Error Resume Next
prs.Close
Set prs = Nothing
On Error GoTo 0
End If
SafeProcessPresentation = False
End Function
—
4. チーフアーキテクトからの設計上のアドバイス
このコードをデプロイするにあたり、以下の2点をプロジェクトメンバーに周知してほしい。
1. `WithWindow:=msoFalse` の圧倒的優位性
バックグラウンドでファイルを処理する際、ウィンドウを表示させない（`WithWindow:=msoFalse`）設定は、画面描画の負荷を消し去るだけでなく、意図しないモーダルダイアログのUI描画自体を抑止する副次的な効果を持つ。バッチ処理ではマストの記述だ。
2. オブジェクトのライフサイクル管理
VBAにおいて、`Presentation` オブジェクトをループ内で生成・破棄する際、参照を切る（`Set prs = Nothing`）ことを怠ると、ガベージコレクションが追いつかずにメモリリークを起こし、中盤から極端に処理が重くなる。必ずエラー時も含めて `Nothing` 代替のクリーンアップを徹底すること。
業務自動化の本質は、「止まらないこと」ではなく、「例外が発生した際にもシステム全体が優雅にそれをいなし、価値あるログを残してタスクを完遂すること」にある。この設計を取り入れることで、あなたのデスクトップ、あるいはRPAサーバーの夜間バッチは、二度とパスワードの亡霊に怯えることはなくなるはずだ。
