【PowerPoint VBAを掌握する極限の知見】共同編集の地雷を踏み抜かないための `Presentation.ReadOnly` 安全弁設計
業務の自動化を進める中で、最も避けるべき事故は何だろうか。
それは、「知らぬ間に他人が開いているファイルをマクロが上書きし、データ破損や競合を引き起こすこと」だ。
特にSharePointやMicrosoft Teams、社内ファイルサーバー上で複数人がアクセスするプレゼンテーションに対し、PowerPoint VBAで一括処理やメタデータ更新を走らせる場合、このリスクは常に牙を剥いている。
今回は、PowerPoint VBAのオブジェクトモデルにおける隠れた安全弁、`Presentation.ReadOnly` プロパティに着目し、現場で絶対に破綻しない堅牢なガードコードの設計思想を伝授する。
—
1. なぜ「とりあえず上書き保存」のコードは地雷なのか？
多くの初学者、あるいは場当たり的なコードを書くプログラマーは、マクロの冒頭でファイルを開き、処理が終わったら無条件でこう書く。
‘ 【アンチパターン】絶対に真似してはいけないコード
Sub DangerousSave()
Dim pptPath As String
pptPath = “C:\SharedFolder\Presentation.pptx”
Dim pres As Presentation
Set pres = Presentations.Open(pptPath)
‘ 何らかの処理
pres.Slides(1).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text = “Updated”
‘ 容赦なく上書き保存
pres.Save
pres.Close
End Sub
このコードがなぜ実務で通用しないのか。理由は明確だ。
もし、別拠点のメンバーがそのプレゼンテーションを既に開いていたら（＝読み取り専用モードで開かれていたら）、`pres.Save` が実行された瞬間に実行時エラー（Runtime Error）が発生し、マクロは無残にクラッシュする。最悪の場合、ファイルのローカルキャッシュが破損し、数時間の労力が水の泡となる。
プロのエンジニアであれば、「開こうとしている、あるいは開いたプレゼンテーションが書き込み可能か」を処理の起点で確実に判定しなければならない。
—
2. `Presentation.ReadOnly` プロパティの本質
PowerPointのオブジェクトモデルにおいて、`Presentation` オブジェクトの `ReadOnly` プロパティは、そのファイルが現在どのような権限・状態でメモリ上にロードされているかをブール値（`True` / `False`）で返す。
- `True`: 読み取り専用（他のユーザーが編集中、または明示的に読み取り専用で開かれた）
- フレンドリーな誤解の防止:
ファイルシステム上のパーミッション（NTFSのアクセス権）による読み取り専用とは異なり、主に「アプリケーションレベルの排他制御」の状態を指す。
このプロパティを「安全弁（セーフティバルブ）」として利用し、処理の分岐を厳密に行うのがプロダクションコードの鉄則である。
—
3. 【実務仕様】堅牢なガードコード実装例
実際の業務ツールとしてそのまま組み込める、洗練されたプロシージャを提示する。
単にエラーを防ぐだけでなく、「誰が読んでも意図がわかるログ出力」と「適切なクリーンアップ」を実装している点が、チーフアーキテクトとしてのこだわりだ。
Option Explicit
”’
”’
Sub ExecuteSafePresentationProcess()
Dim targetPath As String
targetPath = “C:\SharedFolder\Enterprise_Strategy_2026.pptx”
‘ 1. ファイルの存在確認（基本中の基本）
If Not FSO_FileExists(targetPath) Then
MsgBox “対象ファイルが見つかりません: ” & vbCrLf & targetPath, vbCritical, “ファイル不存在”
Exit Sub
End If
Dim targetPres As Presentation
Dim wasOpenedByMacro As Boolean
wasOpenedByMacro = False
On Error GoTo ErrorHandler
‘ 2. 既にPowerPointのセッション内で開かれているかチェック、なければ開く
Set targetPres = GetOrOpenPresentation(targetPath, wasOpenedByMacro)
If targetPres Is Nothing Then Exit Sub
‘ =========================================================================
‘ 3. 【最重要】ReadOnly プロパティによる安全弁の稼働
‘ =========================================================================
If targetPres.ReadOnly Then
‘ 読み取り専用の場合のハンドリング（スキップ、警告、または別名保存など）
MsgBox “【警告】このプレゼンテーションは現在、他のユーザーによって編集中（または読み取り専用）です。” & vbCrLf & _
“データの競合を防ぐため、今回の自動処理をスキップします。”, _
vbExclamation, “安全弁作動：書き込みガード”
GoTo CleanUp
End If
‘ ————————————————————————-
‘ 4. メインの業務ロジック（書き込みを伴う処理）
‘ ————————————————————————-
Call RunBusinessLogic(targetPres)
‘ 5. 変更の保存
targetPres.Save
MsgBox “処理が正常に完了し、上書き保存されました。”, vbInformation, “完了”
CleanUp:
‘ 6. オブジェクトのライフサイクル管理（マクロ自身が開いた場合のみ閉じる）
If wasOpenedByMacro And Not (targetPres Is Nothing) Then
targetPres.Close
End If
Set targetPres = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error Number: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
”’
”’
Private Function GetOrOpenPresentation(filePath As String, ByRef openedByMe As Boolean) As Presentation
Dim pres As Presentation
Dim i As Long
‘ 既にPowerPointのアプリケーション内で開かれているか走査
For i = Application.Presentations.Count To 1 Step -1
If StrComp(Application.Presentations(i.FullName, filePath, vbTextCompare) = 0 Then
Set GetOrOpenPresentation = Application.Presentations(i)
openedByMe = False
Exit Function
End If
Next i
‘ 開かれていない場合は新しく開く
‘ Presentations.Openの引数：FileName, ReadOnly(True/False), Untitled, WithWindow
Set GetOrOpenPresentation = Presentations.Open(FileName:=filePath, ReadOnly:=msoFalse, WithWindow:=msoTrue)
openedByMe = True
End Function
”’
”’
Private Sub RunBusinessLogic(pres As Presentation)
‘ 例：スライドのマスター情報や特定テキストの更新
Dim sld As Slide
Set sld = pres.Slides(1)
‘ 業務処理をここに記述
‘ sld.Shapes…
End Sub
”’
”’
Private Function FSO_FileExists(filePath As String) As Boolean
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
FSO_FileExists = fso.FileExists(filePath)
Set fso = Nothing
End Function
—
4. コードのアーキテクチャ的解説：プロの視点
上記のコードには、単なる「動くコード」を超えた、現場で生き残るための設計思想が凝縮されている。
① 二重オープンを防ぐ走査ロジック
`GetOrOpenPresentation` 関数では、いきなり `Presentations.Open` を叩くのではなく、既にユーザーが手動でそのファイルを開いていないかを `Application.Presentations` コレクションから逆順ループで探索している。これにより、無駄なメモリ消費とファイルロック衝突を回避している。
② ライフサイクルの適切な所有権管理 (`wasOpenedByMacro`)
マクロが勝手に開いたファイルは、処理終了後に閉じるべきだが、ユーザーがすでに開いていたファイルをマクロが勝手に閉じてしまうと、ユーザーの作業内容が吹き飛ぶか、大クレームに発展する。
「誰がこのセッションを開いたか（Ownership）」をフラグで厳密に追跡し、マクロが立ち上げた場合のみ `Close` メソッドを呼び出す設計にしている。
③ 早期リターン（Guard Clause）による可読性の維持
ネストを深くせず、異常系（読み取り専用であること）を検知した瞬間に `GoTo CleanUp`（あるいは関数内であれば `Exit Function`）で弾く。このフラットな構造が、後からの保守性を劇的に高める。
—
5. おわりに：ツール開発者に求められる「想像力」
業務自動化ツールを作るエンジニアの腕の見せ所は、「正常系をいかに美しく動かすか」ではない。「異常系、競合系、ヒューマンエラーの波状攻撃をいかに華麗に、かつ安全にいなすか」にある。
`Presentation.ReadOnly` という小さなプロパティを軽視せず、常に「もし今、他の誰かがこのスライドを見ていたら？」という想像力を持つこと。その細部へのこだわりこそが、あなたを「ただのコード書き」から「信頼されるチーフアーキテクト」へと引き上げる唯一の道なのである。
