不変性の設計：PowerPoint自動化における「読み取り専用推奨」属性の厳密な実装
業務自動化の現場において、「単にファイルを保存する」という行為を甘く見ているエンジニアは多い。しかし、大規模な組織において配布されるドキュメントは、単なるデータではない。それは「完成された成果物」であり、不用意な上書きや意図しない改変から保護されるべき「資産」である。
今回のテーマは、PowerPoint VBAを用いて「読み取り専用推奨（Read-Only Recommended）」属性を付与し、別名保存するプロセスの自動化だ。
表層的な実装なら数行のコードで済む。しかし、我々アーキテクトが求めるのは、例外を許さない堅牢なライフサイクル管理と、リソースの解放、そしてレガシーな実行環境においても振る舞いが変わらない決定論的なコードである。
1. 属性の正体：ファイルシステム属性 vs アプリケーション・メタデータ
まず、概念的な混同を排除しておく必要がある。
「読み取り専用」には二つのレイヤーが存在する。
1. OSレベルのファイル属性 (Read-only Attribute): Windowsのファイルシステム（NTFS等）が管理する属性。これを書き換えると、アプリケーション側から一切の編集ができなくなる。
2. アプリケーション・メタデータ (Read-Only Recommended): PowerPointの内部構造（ファイルプロパティ）に記録されるフラグ。ファイルを開く際、アプリケーションがユーザーに対して「読み取り専用で開きますか？」という意思確認を促す挙動だ。
配布用ファイルとして推奨されるのは後者である。なぜなら、前者はユーザーの編集作業を物理的に阻害するが、後者は「意図しない上書き」に対する心理的・手続き的な防壁として機能するからだ。
2. 堅牢な実装アーキテクチャ
以下に、プロフェッショナルな現場で通用する、オブジェクトのライフサイクルを完全に制御した実装例を示す。
Option Explicit
' ======================================================================================
' Module: PresentationDeploymentModule
' Description: 配布用プレゼンテーションの安全な生成と属性付与を行う
' Author: Chief Architect
' ======================================================================================
''' <summary>
''' 指定されたプレゼンテーションを読み取り専用推奨属性を付与して別名保存する。
''' </summary>
''' <param name="sourcePath">元となるファイルのフルパス</param>
''' <param name="destinationPath">保存先のフルパス</param>
''' <returns>成功した場合はTrue</returns>
Public Function SaveAsReadOnlyRecommended(ByVal sourcePath As String, ByVal destinationPath As String) As Boolean
' オブジェクト変数の明示的宣言（メモリ管理の基本）
Dim pptApp As Object ' PowerPoint.Application
Dim targetPres As Object ' PowerPoint.Presentation
Dim fso As Object ' FileSystemObject
' エラーハンドリングの初期化
On Error GoTo ErrorHandler
SaveAsReadOnlyRecommended = False
' 1. ファイルの存在確認 (FileSystemObjectを使用し、低レベルなI/Oエラーを未然に防ぐ)
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(sourcePath) Then
Err.Raise vbObjectError + 513, "DeploymentModule", "Source file not found: " & sourcePath
End If
' 2. PowerPointアプリケーションのインスタンス管理
' 既存のインスタンスを再利用せず、制御を完全に握るために新規生成を検討するが、
' 効率性の観点から、実行中のインスタンスを取得するアプローチをとる。
On Error Resume Next
Set pptApp = GetObject(, "PowerPoint.Application")
If pptApp Is Nothing Then
Set pptApp = CreateObject("PowerPoint.Application")
End If
On Error GoTo ErrorHandler
' 3. プレゼンテーションのロード
' Openメソッドの引数により、読み取り専用で開くかどうかの制御を行う
Set targetPres = pptApp.Presentations.Open(sourcePath, ReadOnly:=msoFalse, WithWindow:=msoFalse)
' 4. 属性の付与 (ここが本質的なロジック)
' ReadOnlyRecommended プロパティを True に設定することで、
' ファイルのメタデータに「読み取り専用推奨」のフラグを書き込む。
targetPres.ReadOnlyRecommended = msoTrue
' 5. 安全な保存プロセス
' DisplayAlerts を制御し、同名ファイルが存在する場合のダイアログによる停止を防ぐ
pptApp.DisplayAlerts = ppAlertsNone
' SaveAsを実行。ファイル形式(FileFormat)を明示的に指定することが、
' レガシー環境（.ppt vs .pptx）での互換性を担保する鍵となる。
targetPres.SaveAs destinationPath, 24 ' 24 = ppSaveAsDefault (pptx形式)
' 成功フラグを立てる
SaveAsReadOnlyRecommended = True
CleanUp:
' ----------------------------------------------------------------------------------
' メモリ解放とオブジェクトのライフサイクル管理（極めて重要）
' ----------------------------------------------------------------------------------
' COMオブジェクトは明示的に Nothing を代入しない限り、
' プロセスが残留（ゴースト現象）し、メモリリークやファイルロックの原因となる。
On Error Resume Next
If Not targetPres Is Nothing Then
targetPres.Close
Set targetPres = Nothing
End If
' pptAppは呼び出し元で利用される可能性があるため、ここでは解放しない判断もあり得るが、
' 本モジュール内での独立性を担保する場合、以下の処理を行う。
' Set pptApp = Nothing
Set fso = Nothing
Exit Function
ErrorHandler:
' ログ出力などの実務的なエラー処理をここに実装
Debug.Print "Critical Error in SaveAsReadOnlyRecommended: " & Err.Description
' 必要に応じて、エラーレベルに応じたリトライロジックやユーザー通知を行う
Resume CleanUp
End Function3. アーキテクトの視点：なぜこの実装なのか
オブジェクトのライフサイクルと「ゴーストプロセス」の回避
VBAにおける最大の敵は、`pptApp` や `targetPres` がメモリ上に残り続けることだ。特にループ処理の中で大量のファイルを変換する場合、明示的な `Set … = Nothing` を怠ると、タスクマネージャーに大量の `POWERPNT.EXE` が居座ることになる。これは、システムリソースの枯渇だけでなく、次にファイルにアクセスしようとする際の「ファイルが別のプロセスによって使用されています」という致命的なエラーを誘発する。
`DisplayAlerts` の制御
自動化プロセスにおいて、ユーザーの入力を待つダイアログは「死」を意味する。`ppAlertsNone` を使用することで、上書き確認などのインタラクティブな挙動を完全に排除し、決定論的な（入力に依存しない）実行を保証している。
`FileSystemObject` による事前検証
Windows APIを直接叩く手法（`GetFileAttributes`等）も存在するが、VBAの文脈においては `Scripting.FileSystemObject` を用いるのが最もバランスが良い。これは、ファイルパスの正規化や存在確認において、OSの挙動を抽象化し、高い信頼性を提供してくれるからだ。
4. システム間連携への応用
このモジュールは、単体で動作するだけでなく、以下のようなアーキテクチャの一部として組み込むことを想定している。
- ETLパイプライン: サーバー上の共有フォルダに格納された大量の raw プレゼンテーションを、属性を付与した「配布用パッケージ」へ一括変換するバッチ処理。
- ドキュメント管理システム (DMS): 承認フローを通過したファイルに対し、自動的に保護属性を付与してアーカイブするプロセス。
結言
「読み取り専用推奨」の設定は、一見すると些細な、初心者向けのタスクに見えるかもしれない。しかし、その背後にある「データの整合性をいかに守るか」という思想と、「リソースをいかにクリーンに管理するか」という実装の規律こそが、シニアエンジニアと初学者を分かつ境界線である。
コードは動けばいいのではない。制御できなければ、それは技術ではなく、単なる不確実性の種である。
