こんにちは！バックオフィスや現場の業務自動化を日々支えるエンジニアの皆さん、そして「マクロの記録」から一歩抜け出して本物の自動化スキルを手に入れようとしている熱心な学習者の皆さん、お疲れ様です。
PowerPoint VBAの世界へようこそ。
今日は、現場でよくある「あのヒヤッとする瞬間」を完全に防ぐための、極めて実践的で美しいテクニックを伝授します。
ここをクリアすれば、PowerPoint VBAのオブジェクト操作の基本と、ファイルの安全な扱い方はバッチリですよ。ぜひ最後までついてきてくださいね。
—
1. なぜ「うっかり上書き」は起きるのか？現場の悲劇を防ぐ思想
チーム全員がアクセスする共有サーバー上には、会社全体の「マスター資料」や、絶対に崩してはいけない「フォーマットの雛形」が存在しますよね。
ある日、あなたは最新のデータを確認するためにそのファイルを開き、ちょっと文字の位置を直したとします。そして作業が終わった後、無意識に「上書き保存（Ctrl + S）」を押してしまう……。
気づいた時には時すでに遅し。他のメンバーが使っている大切なマスターデータが、あなたの個人的な変更で塗り替えられてしまいました。これが「上書き事故」の正体です。
人間は必ずミスをします。だからこそ、「システムやコードの側で、物理的に上書きを不可能（あるいは警告）にする仕組み」を作っておく必要があるのです。
PowerPoint VBAには、ファイルを開く際に「読み取り専用（ReadOnly）」を強制する強力なプロパティが用意されています。これを使えば、誤った上書きを100%防止することができます。
—
2. 【基本のキ】ファイルを安全に「読み取り専用」で開く全体像
まずは、実際に動くコードの全体像を見てみましょう。
VBAの初心者が最初につまずく「ファイルを開く」という動作ですが、実はいくつかの書き方があります。今回は最も堅牢で確実な方法をチョイスしました。
Sub OpenPresentationReadOnly()
‘ 変数の宣言（Presentationオブジェクトとファイルパス）
Dim targetPath As String
Dim targetPrs As Presentation
‘ 1. 開きたいファイルのパスを指定する（環境に合わせて書き換えてください）
targetPath = “C:\SharedServer\Master\Presentation_Master.pptx”
‘ 2. ファイルが存在するかチェックする（エラー防止の基本！）
If Dir(targetPath) = “” Then
MsgBox “指定されたファイルが見つかりません。” & vbCrLf & targetPath, vbCritical, “ファイルエラー”
Exit Sub
End If
‘ 3. 「読み取り専用」かつ「アラート非表示」でファイルを開く
‘ ※ここが本日の最重要ポイントです！
On Error GoTo ErrorHandler
Set targetPrs = Application.Presentations.Open( _
FileName:=targetPath, _
ReadOnly:=msoTrue, _
WithWindow:=msoTrue _
)
‘ 4. 成功メッセージ
MsgBox “マスターファイルを「読み取り専用」で安全に開きました。” & vbCrLf & _
“安心して閲覧・編集（名前を付けて保存）してください。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 予期せぬエラーが発生した時の処理
MsgBox “ファイルのオープン中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
End Sub
—
3. コードの心臓部を解剖する！プロが教える3つの重要ポイント
上記のコードの中で、特に重要な3つの要素を噛み砕いて解説します。ここが本質です。
① `Presentations.Open` メソッドの引数たち
ファイルを新しく開くときは `Application.Presentations.Open` を使いますが、ここには強力なパラメータ（引数）があります。
- `FileName:=targetPath`
開きたいファイルのフルパスを指定します。
- `ReadOnly:=msoTrue`
ここが今回の主役です！ これを `msoTrue`（または `True`）に指定することで、PowerPoint側が「このファイルは読み取り専用で開くように」と強制されます。もしユーザーが間違えて上書き保存しようとしても、自動的に「名前を付けて保存」ダイアログへと誘導され、大元のマスターファイルを汚すことができなくなります。
- `WithWindow:=msoTrue`
画面上にプレゼンテーションウィンドウを表示させて開きます（裏側で見えない状態で開く `msoFalse` もありますが、今回は閲覧用なので `msoTrue` が正解です）。
② `Dir` 関数による事前チェックの美学
いきなりファイルを開こうとすると、パスが間違っていたり、ファイルが移動していたりした時にVBAが「実行時エラー」を起こして強制終了してしまいます。
プロのコードは、開く前に `If Dir(targetPath) = “”` でファイルが存在するかどうかを必ずチェックします。この「優しさ」が堅牢なプログラムを作ります。
③ エラーハンドリング（`On Error GoTo`）
共有サーバーのファイルは、他の誰かがすでに排他制御（編集中）で開いている場合があります。そんな時にマクロが突然クラッシュしたら困りますよね。
`On Error GoTo ErrorHandler` を仕込んでおくことで、万が一エラーが起きた際も、優しく原因をダイアログで教えてくれるようになります。
—
4. 陥りやすい罠と、現場で役立つ実践テクニック
初学者がこのコードを実務で使い始める際によくある疑問や、さらに実用性を高めるコツをいくつかご紹介します。
💡 Q. 読み取り専用で開いた後、編集して保存したくなったら？
A. 「名前を付けて保存」を使えばOKです！
このマクロで開いたプレゼンテーションは、元のファイル名への上書き保存が無効化（または警告）されます。そのため、ユーザーは安心して中身を改変し、自分のローカル環境等に「別名で保存」して再利用することができます。これがマスター運用における正しいワークフローです。
💡 Q. 毎回パスを書き換えるのが面倒なのですが……
A. ダイアログからファイルを選ばせることも可能です！
固定のパスではなく、ファイル選択ダイアログを出したい場合は、以下のように `Application.FileDialog` を組み合わせると神システムに進化します。
Sub OpenUserSelectedFileReadOnly()
Dim fd As FileDialog
Dim targetPath As String
‘ ファイル選択ダイアログオブジェクトを作成
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = “読み取り専用で開くファイルを選択してください”
.Filters.Clear
.Filters.Add “PowerPoint プレゼンテーション”, “.pptx; .ppt”
If .Show = -1 Then
targetPath = .SelectedItems(1)
‘ 選択されたファイルを読み取り専用で開く
Application.Presentations.Open FileName:=targetPath, ReadOnly:=msoTrue, WithWindow:=msoTrue
Else
MsgBox “キャンセルされました。”, vbInformation
End If
End With
End Sub
これなら、ユーザーはボタンをポチッと押してファイルを選ぶだけで、自動的に安全な「読み取り専用」で資料を閲覧できます。
—
5. おわりに：小さな自動化がチームの信頼を生む
お疲れ様でした！今回は、PowerPoint VBAを使って「読み取り専用」でファイルを安全に開く方法を学びました。
- `ReadOnly:=msoTrue` を使って上書き事故を防ぐこと
- ファイル存在チェックやエラーハンドリングでプログラムを堅牢にすること
- 実務でどうワークフローに組み込むか
こうした「ちょっとした気配り」が組み込まれたマクロを作れるようになると、あなたの周りのメンバーからの見る目が劇的に変わります。「あの人が作ったツールは安心して使える」という信頼こそが、業務自動化エンジニアにとって最高の褒め言葉です。
ぜひ、あなたの職場の共有サーバーにあるマスター資料の閲覧用マクロとして、今日のコードを組み込んでみてくださいね。
それでは、また次の「極限の知見」でお会いしましょう！
