概要
実務におけるExcel運用において、最も頭を悩ませる問題の一つが「共有ファイルの意図しない上書き保存」です。特に、マスタデータやテンプレートとして配布するブックが、ユーザーの手によって不用意に書き換えられてしまうと、その後の業務フロー全体に深刻な支障をきたします。
VBA100本ノックの80本目という節目のテーマである「読み取り専用で保存できないブックにする」という課題は、単なるプロパティの設定にとどまりません。これは、VBAを用いていかにシステム的な「ガードレール」を敷き、ヒューマンエラーを物理的に封じ込めるかという、開発者としての防衛戦術を問う重要なテーマです。本稿では、SaveAsメソッドの引数を駆使し、堅牢なブック保護を実現する手法を徹底的に解説します。
詳細解説
Excel VBAにおいて、ブックを読み取り専用として保存、あるいは開く際に「読み取り専用を推奨する」設定を行うには、WorkbookオブジェクトのSaveAsメソッドを深く理解する必要があります。
SaveAsメソッドには非常に多くの引数が存在しますが、今回の目的である「読み取り専用」に関連するのは以下の二つです。
1. ReadOnlyRecommended（読み取り専用推奨）
この引数をTrueに設定すると、ユーザーがブックを開く際に「読み取り専用で開きますか？」というダイアログが表示されます。ユーザーに強制はしませんが、心理的な警告を与えることで、不用意な保存を防ぐ効果があります。
2. Password（書き込みパスワード）
これが最も強力な手段です。「WriteResPassword」引数を使用することで、ブックを保存する際にパスワードを要求するように設定できます。このパスワードを知らないユーザーは、ファイルを「読み取り専用」でしか開くことができず、上書き保存を物理的にブロックすることが可能です。
これらを組み合わせることで、単なる「推奨」から「強制的な保護」まで、業務要件に合わせて柔軟に制御することが可能になります。特に重要なのは、保存処理そのものを自動化する際に、これらの引数をどのようにコードに組み込むかという点です。
サンプルコード
以下のコードは、指定したパスに「書き込みパスワード」を設定した状態でブックを保存する実用的なプロシージャです。
Sub SaveAsReadOnlyProtected()
' 目的：ブックを書き込みパスワード付きで保存し、上書きを防止する
Dim targetPath As String
Dim writePassword As String
' 保存先パスとパスワードの設定
targetPath = ThisWorkbook.Path & "\ProtectedTemplate.xlsx"
writePassword = "YourSecurePassword"
' 既存の警告メッセージを一時的に非表示にする
Application.DisplayAlerts = False
On Error GoTo ErrorHandler
' SaveAsメソッドによる保存処理
' WriteResPassword引数にパスワードを指定することで、
' このパスワードを知らないユーザーは「読み取り専用」でしか保存できなくなる
ThisWorkbook.SaveAs Filename:=targetPath, _
FileFormat:=xlOpenXMLWorkbook, _
Password:="", _
WriteResPassword:=writePassword, _
ReadOnlyRecommended:=True
MsgBox "ブックを読み取り専用保護モードで保存しました。", vbInformation
CleanExit:
Application.DisplayAlerts = True
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
Resume CleanExit
End Sub
実務アドバイス
実務でこの技術を導入する際、以下の3点に注意してください。
第一に「パスワード管理」です。VBAコード内にパスワードをハードコーディングすることは、保守の観点からは推奨されません。セキュリティレベルの高い環境であれば、パスワードを外部の隠しシートや設定ファイルから読み込む、あるいは環境変数を利用する等の工夫を検討してください。
第二に「ユーザー体験（UX）への配慮」です。あまりに強固な制限は、現場の混乱を招きます。「読み取り専用推奨」ダイアログが表示された際、ユーザーがどのような操作をすべきかを事前に周知しておくことが、運用上のトラブルを避ける鍵です。
第三に「既存ファイルのバックアップ」です。SaveAsメソッドは、指定したパスに同名のファイルが存在する場合、警告なく上書きする可能性があります（DisplayAlertsをFalseにしている場合）。実行前には必ずバックアップを作成するロジックを組み込むか、ファイル名の末尾に日付を付与するなどの動的なファイル名生成を行うことを強く推奨します。
まとめ
VBA100本ノック80本目のテーマである「読み取り専用で保存できないブックにする」という課題は、Excelを「ただの計算ツール」から「管理された業務システム」へと昇華させる第一歩です。
SaveAsメソッドの引数を適切に制御することで、ユーザーの操作ミスを未然に防ぎ、データの完全性を担保することができます。しかし、技術的な制御だけでは完璧ではありません。運用ルールと技術的な制限を組み合わせることで、初めて堅牢な業務システムが完成します。
今回学んだWriteResPasswordやReadOnlyRecommendedの活用法を、ぜひ貴方の開発するツールにも組み込んでみてください。VBAによる「守り」の技術を磨くことは、ベテランエンジニアへの近道です。コードを書く際は、常に「このファイルが他人に渡った時、どうすればデータが壊れないか」を自問自答し続けてください。それが、プロフェッショナルとしての品質を支える土台となるはずです。
