PowerPoint VBAの「暗礁」を越える：パスワード付きファイルを華麗にスルーする極意
こんにちは。自動化の現場で血の滲むようなデバッグを重ねてきたエンジニアです。
PowerPoint VBAを使って大量のプレゼンテーションをバッチ処理する際、多くの初心者が最初にぶつかる「暗礁」があります。それが「パスワード保護されたファイル」によるマクロの停止です。
マクロを走らせて夜の間に終わらせるつもりが、朝起きたら「パスワード入力ダイアログ」が画面の真ん中で鎮座していて、処理が一つ目で止まっていた……。そんな悲劇は今日で終わりにしましょう。
今日は、PowerPointという「生き物」の機嫌を損ねず、安全にファイルを巡回するための極意を伝授します。
—
1. なぜ「Open」は止まってしまうのか？
PowerPointの`Presentations.Open`メソッドは、極めて正直な関数です。
ファイルを開こうとしたとき、そこに鍵（パスワード）がかかっていれば、律儀に「鍵を開けてください」と人間に尋ねてきます。しかし、無人運用を目指す自動化プログラムにとって、このダイアログは「完全な沈黙」を意味します。
これを回避するために、私たちは「ファイルを開く前に、その素性を探る」というアプローチをとる必要があります。
—
2. 現場で使える「安全なファイル開封」コード
以下のコードは、パスワード保護を検知し、処理を止めずにログを吐き出して次へ進むための雛形です。
Sub BatchProcessPresentations()
Dim folderPath As String
Dim fileName As String
Dim targetPres As Presentation
‘ 処理するフォルダを指定
folderPath = “C:\TargetFolder\”
fileName = Dir(folderPath & “.pptx”)
Do While fileName <> “”
‘ 1. パスワード保護されているか事前チェック
If IsPasswordProtected(folderPath & fileName) Then
‘ ここでログファイルに記録する処理を呼ぶ
Debug.Print “スキップされました: ” & fileName & ” (保護済み)”
Else
‘ 2. 安全なファイルのみ開く
Set targetPres = Presentations.Open(folderPath & fileName, WithWindow:=msoFalse)
‘ — ここに本来やりたかった処理を書く —
targetPres.Close
End If
fileName = Dir()
Loop
End Sub
‘ 【核心部分】ファイルがパスワードで保護されているか判定する関数
Function IsPasswordProtected(filePath As String) As Boolean
Dim pres As Presentation
On Error Resume Next
‘ 読み取り専用・ウィンドウ非表示で開こうと試みる
Set pres = Presentations.Open(filePath, WithWindow:=msoFalse)
‘ エラーが発生したら「パスワード保護」または「破損」とみなす
If Err.Number <> 0 Then
IsPasswordProtected = True
Err.Clear
Else
‘ 開けた場合は保護されていない
pres.Close
IsPasswordProtected = False
End If
On Error GoTo 0
End Function
—
3. コードの解説：ここが「プロの境界線」
初心者の方が躓きやすいポイントを、エンジニアの視点で解説します。
① `On Error Resume Next` の使い所
この命令は「エラーが起きても無視して次へ進め」という危険な命令ですが、今回のように「開けるかどうか分からない」という不確定要素を判定する場面では最強の武器になります。ただし、処理が終わったらすぐに `On Error GoTo 0` で監視を再開させるのが鉄則です。
② `WithWindow:=msoFalse` の重要性
`Presentations.Open` の引数に `msoFalse` を指定することで、プレゼンテーションをウィンドウとして表示せずにメモリ内で展開できます。これにより、画面のちらつきを防ぎ、処理速度を劇的に向上させることができます。
③ 「なぜ判定できるのか？」の本質
実は、VBAの `Open` メソッドはパスワードがかかっているファイルに対して実行すると、エラーを発生させます。この「意図的なエラー」を検知してフラグを立てることで、パスワード入力ダイアログが表示される前に処理を分岐させているのです。
—
4. さらなる高みを目指す君へ
このロジックをマスターすれば、もうパスワード付きファイルに夜中のバッチ処理を阻害されることはありません。
次に意識してほしいこと：
- ログ管理: `Debug.Print` だけでなく、テキストファイルに出力する仕組みを作ると、翌朝の確認が非常に楽になります。
- エラーハンドリング: パスワード保護以外にも「ファイル破損」や「読み取り専用制限」などの例外があります。これらも `Err.Number` を詳細に分析することで、より堅牢なプログラムに進化させることが可能です。
PowerPoint VBAは、オブジェクト（PresentationやSlide）を一つずつ丁寧に取り扱う作法を学べば、どんな複雑な業務も自動化できる強力なツールです。
「プログラムに振り回されるのではなく、プログラムを使いこなす」。
この感覚を掴めれば、あなたはもう初心者ではありません。自信を持って、次の自動化に挑戦してください。応援しています！
