PowerPoint VBAで「ファイルを守る」：読み取り専用推奨と簡易アクセス制御の極意
こんにちは。現場の最前線でコードを書き続けているエンジニアです。
皆さんは、苦労して作り上げたプレゼン資料が、誰かに不用意に書き換えられてヒヤリとした経験はありませんか？あるいは、チームで共有しているファイルで「誰が編集権限を持っているのか」が曖昧になり、混乱が生じたことはないでしょうか。
今回は、PowerPoint VBAを使って「読み取り専用推奨（Read-Only Recommended）」を動的に制御する手法と、特定のユーザー以外に警告を発する簡易的なアクセス制御を実装する方法を解説します。
「マクロの記録」から一歩踏み出し、PowerPointのオブジェクトモデルを自在に操るための第一歩を、一緒に歩んでいきましょう。
—
1. そもそも「読み取り専用推奨」とは何か？
PowerPointのファイルプロパティには、ファイルを開く際に「編集して保存しますか？ それとも読み取り専用にしますか？」というダイアログを出すフラグが存在します。
これは、VBAでは `Presentation.ReadOnlyRecommended` というプロパティで制御します。
陥りがちな罠
多くの初心者の方は、このプロパティを「ファイルを開いた後」に設定しようとします。しかし、ファイルが開かれた瞬間にはすでに読み取りモードの判断は終わっています。 この属性は「保存時」に設定し、次回の起動に影響を与えるものなのです。この「時間のズレ」を意識できるかどうかが、熟練エンジニアへの分かれ道です。
—
2. 実装コード：動的制御とアクセス制御
以下のコードを標準モジュールに配置してください。このコードは、ファイルを開いた瞬間に実行される `Auto_Open`（または `Presentation_Open`）イベントと組み合わせることで、強固な防壁となります。
‘ 【重要】本モジュールは標準モジュールに配置し、
‘ Presentation_Openイベントから呼び出す構成を推奨します。
Sub SetReadOnlyControl(targetPresentation As Presentation)
‘ ユーザー名による簡易アクセス制御
‘ 環境に応じてEnviron(“UserName”)やActiveDirectoryの認証情報を利用
Dim currentUser As String
currentUser = Environ(“UserName”)
‘ 管理者の名前（ここを書き換えてください）
Const AdminUser As String = “Taro_Yamada”
If currentUser <> AdminUser Then
‘ 管理者以外には「読み取り専用推奨」を強制的にONにする
targetPresentation.ReadOnlyRecommended = True
MsgBox “注意: この資料は読み取り専用での閲覧を推奨します。” & vbCrLf & _
“編集が必要な場合は管理者に連絡してください。”, vbExclamation, “アクセス制限”
Else
‘ 管理者の場合は編集権限を確保するためにOFFにする
targetPresentation.ReadOnlyRecommended = False
End If
End Sub
コードの解説
- `Environ(“UserName”)`: OSにログインしているユーザー名を取得します。非常にシンプルな手法ですが、社内LAN環境では強力な識別子になります。
- `ReadOnlyRecommended = True`: これを設定した状態でファイルを保存すると、次回の起動時から警告ダイアログが表示されるようになります。
—
3. 現場で生き残るための「オブジェクトモデル」の基礎
PowerPoint VBAを触る上で、必ず覚えておいてほしい「3つの階層」があります。
1. Application: PowerPointそのもの（頂点）
2. Presentation: 開いているファイル（データの実体）
3. Slide: プレゼンを構成するキャンバス
今回のコードでは `targetPresentation` という引数で `Presentation` オブジェクトを受け取っています。こうすることで、どのファイルに対して操作を行っているのかが明確になり、エラーの温床となる「暗黙的なActivePresentation（現在アクティブなファイル）」への依存を避けることができます。
エンジニアの鉄則：
> 「`Active` 系（ActiveWindowなど）を頼るな。オブジェクトを明示的に指定せよ。」
—
4. 注意点：セキュリティの「境界線」を理解する
今回紹介した手法は、あくまで「善意のユーザーに対する注意喚起」や「誤操作防止」のためのものです。
VBAのセキュリティ設定を無効化されたり、マクロをオフにして開かれたりすれば、この制御は突破されます。「物理的な破壊を防ぐものではない」ということを理解した上で、チームの運用ルールと組み合わせて使うのが、真のプロフェッショナルの仕事です。
—
最後に：ここをクリアすれば、あなたはもう中級者です
いかがでしたか？
「読み取り専用推奨」という一つのプロパティを操作するだけでも、VBAがどのようにPowerPointのライフサイクルに関与しているかが見えてきたはずです。
- ファイルを開く前のイベント管理
- プロパティの保存と反映のタイミング
- オブジェクトの明示的な指定
これらを理解できたなら、あなたはもう「マクロの記録」を使っていた頃の自分ではありません。次は、この制御に「サーバー上のCSVと照合して、権限レベルを動的に変更する」といった応用にも挑戦してみてください。
プログラミングは、道具を使いこなす楽しさです。ぜひ、あなたの現場でこのコードを役立ててくださいね。応援しています！
