こんにちは！PowerPoint VBAの世界へようこそ。
マクロの記録ボタンを押して「動いたはいいけれど、中身がさっぱり分からない……」と悩んでいませんか？
大丈夫、安心してください。今日ここでお伝えするオブジェクトモデルの基本と、セキュリティを操る実践的なコードをものにすれば、あなたも立派な業務自動化エンジニアの仲間入りです。
今回は、数あるPowerPointの機能の中から、「読み取り専用推奨（ReadOnlyRecommended）」と「パスワード暗号化」という、実務で絶対に役立つセキュリティ設定をVBAで一括コントロールするツールを作っていきましょう。
ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ。それでは、知的な自動化の旅に出発しましょう！
—
1. PowerPoint VBAの「地図」を手に入れよう（オブジェクトモデルの基礎）
Excel VBAと違って、PowerPoint VBAには少し独特の「階層構造（オブジェクトモデル）」があります。まずはこの地図を頭に叩き込みましょう。
PowerPointを動かすときのピラミッドは、ざっくり言うとこうなっています。
[Application] （PowerPointアプリそのもの）
└── [Presentations] （開いている、または操作対象のプレゼンテーションたち）
└── [Presentation] （個別のファイル。これが主役！）
└── [Slides] （スライドたちの集まり）
└── [Slide] （1枚1枚のスライド）
今回の主役は、ピラミッドの3段目にある `Presentation` オブジェクト です。
この `Presentation` に対して「読み取り専用にしてね」「パスワードをかけてね」と命令を送るだけで、セキュリティ設定が完了します。
—
2. 秘密情報を守る！セキュリティ設定の裏側
業務で機密データを扱うとき、「間違って上書き保存されたくない」「関係者以外に見られたくない」という課題に直面しますよね。これらをVBAで制御するには、以下のプロパティやメソッドを使います。
1. 読み取り専用推奨（ReadOnlyRecommended）
- ファイルを開いたときに「読み取り専用で開きますか？」というダイアログを出させるフラグです。`True` または `False` を代入するだけで設定できます。
2. パスワード暗号化（Password）
- ファイルを開くときのパスワードをプログラムから設定します。
ここで一つ、プログラミング初心者が絶対にハマる罠があります。
それは、「ファイルを保存するタイミングと、パスワードをかけるタイミングの順序」です。
> ⚠️ 伝説のエンジニアからの警告：
> パスワードや読み取り専用属性は、メモリ上にあるオブジェクトを変更しただけではファイルに定着しません。必ず適切な手順で「上書き保存（Save）」を行う必要があります。また、既に開いているアクティブなファイルパス（`FullName`）を取得して上書きするのが、最も安全で実用的なアプローチです。
—
3. 実装！一括セキュリティ適用ツール
それでは、開発の現場でそのままコピペして使える実用的なコードを公開します。
このコードは、「現在開いているプレゼンテーション」に対して、一瞬で「読み取り専用推奨」と「オープンパスワード」を設定し、上書き保存して閉じるマクロです。
Sub ApplySecuritySettings()
‘ 変数の宣言（型を明確にするのがプロの作法です）
Dim targetPres As Presentation
Dim userPassword As String
‘ 1. 操作対象のプレゼンテーションを定義（現在アクティブなウィンドウのファイル）
On Error GoTo ErrorHandler ‘ エラーハンドリングの準備
If Application.Presentations.Count = 0 Then
MsgBox “処理対象のプレゼンテーションが開かれていません。”, vbExclamation, “エラー”
Exit Sub
End If
Set targetPres = ActivePresentation
‘ 2. ユーザーにパスワード入力を促す
userPassword = InputBox( _
“設定するオープンパスワードを入力してください。” & vbCrLf & _
“※空白のままにすると、パスワードは変更されません。”, _
“セキュリティ設定ツール”)
‘ 3. 「読み取り専用推奨」フラグをONにする
targetPres.ReadOnlyRecommended = True
MsgBox “「読み取り専用推奨」を設定しました。”, vbInformation, “確認”
‘ 4. パスワードが入力された場合のみ、暗号化を適用する
If userPassword <> “” Then
‘ SaveAs または パスワードプロパティの設定
‘ 注意：PowerPointの仕様上、パスワード設定はファイルを保存する際に行います
targetPres.Password = userPassword
MsgBox “パスワードの設定が適用されました。”, vbInformation, “確認”
End If
‘ 5. 変更をファイルに定着させる（上書き保存）
‘ ※新規作成でまだ保存されていないファイルの場合はパスがないため保存できません
If targetPres.Path <> “” Then
targetPres.Save
MsgBox “すべてのセキュリティ設定を保存し、ファイルを更新しました。”, vbInformation, “完了”
Else
MsgBox “このファイルはまだ一度も保存されていません。「名前を付けて保存」を行ってください。”, vbExclamation, “警告”
End If
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
—
4. コードの深掘り解説：なぜこの書き方なのか？
初心者の方に向けて、コードの重要なポイントを優しく紐解いていきます。
- `ActivePresentation` の活用
今、あなたの目の前で開いているスライドの束をピンポイントで指し示す魔法の言葉です。「どれを対象にするんだっけ？」と迷うことがありません。
- `targetPres.Path <> “” ` のチェック
これ、めちゃくちゃ重要です。まだ一度も名前を付けて保存していない（＝ディスク上に実体がない）ファイルに対して `.Save` を実行すると、VBAはエラーを起こして泣き出します。「ファイルが保存されている場所（Path）があるか？」を確認してから保存するのは、プログラマーの常識（防御的プログラミング）です。
- `Password` プロパティの挙動
PowerPoint VBAでは、`targetPres.Password = “1234”` と書くだけで、ファイルを次に開くときの暗号化を予約できます。ただし、先ほども言った通り、最後に `.Save` を実行して初めてファイルに鍵がかかる点に注意してください。
—
5. 解除ツールもセットで作ろう（おまけ）
セキュリティを設定できたら、当然「解除するツール」も必要ですよね。応用として、パスワードと読み取り専用推奨を綺麗に解除するコードも載せておきます。
Sub RemoveSecuritySettings()
Dim targetPres As Presentation
If Application.Presentations.Count = 0 Then Exit Sub
Set targetPres = ActivePresentation
‘ 読み取り専用推奨を解除
targetPres.ReadOnlyRecommended = False
‘ パスワードを空文字にして解除
targetPres.Password = “”
‘ 上書き保存
If targetPres.Path <> “” Then
targetPres.Save
MsgBox “セキュリティ設定をすべて解除し、保存しました。”, vbInformation, “完了”
End If
End Sub
—
おわりに
いかがでしたでしょうか？
「オブジェクトって何？」「プロパティって？」という状態からスタートしたとしても、こうして実用的なツールを1つ作ってみることで、PowerPoint VBAの全体像がグッと身近になったはずです。
今回のコードをベースに、例えば「特定のフォルダにあるすべてのPowerPointファイル（`.pptx`）に一括でセキュリティをかける」といったループ処理（`Dir`関数や `FileSystemObject` の組み合わせ）に発展させることも可能です。
ぜひご自身の業務に合わせてカスタマイズし、退屈な手作業をスマートに自動化してみてくださいね。あなたのVBAライフを、これからも応援しています！
