【実務・中級編】【初心者向け】Documents.Openの引数「ReadOnly」を動的に切り替える：ユーザーフォームでの選択に基づいたオープン制御 – AutoCAD VBA解析バイブル

【AutoCAD VBA 極限の知見】Documents.Open の ReadOnly を動的に制御せよ：堅牢な図面ランチャーの設計思想

多くの開発者が、AutoCAD VBAを「単なるマクロ」と考えている。しかし、業務プロセスを支える「ツール」へと昇華させるためには、その認識を根本から改める必要がある。

図面を開く。たったそれだけの操作に、プロフェッショナルは「ユーザーの意図」と「ファイルシステムの状態」の整合性を読み取る。

本記事では、初心者レベルの「ファイルを開くだけのコード」を脱却し、ユーザーフォームのチェックボックス状態に応じて「閲覧モード（ReadOnly）」と「編集モード」を動的に切り替える、実務仕様の図面ランチャーの実装方法を解説する。

1. なぜ「ReadOnly」の動的制御が必要なのか

現場の運用を想像してほしい。サーバー上の共有フォルダに格納された大規模な図面を扱う際、複数の設計者が同時にアクセスする。

もし、すべてのユーザーがデフォルトで「編集モード」でファイルを開こうとしたらどうなるか？
誰かが図面を開いた瞬間に、他のメンバーには「ファイルが使用中です」という忌々しいダイアログが表示され、作業が中断される。これは業務効率を著しく低下させる。

一方で、すべてのユーザーが「閲覧モード」で開いてしまえば、修正作業ができない。

「この図面は見るだけでいいのか？ それとも書き込む必要があるのか？」

このユーザーの意図を、プログラムが起動時に正確にキャッチし、`Documents.Open` メソッドの第2引数 `ReadOnly` へと橋渡しする。これこそが、堅牢なツール設計の第一歩である。

2. 設計思想：ロジックとUIの分離

初心者が陥る最大の罠は、UserFormのボタンイベントの中に、ファイル操作のすべてを詰め込んでしまうことだ。これでは、コードの再利用性がなく、テストも困難になる。

我々アーキテクトは、以下の二層構造で設計する。

1. UI層 (UserForm): ユーザーから「ファイルパス」と「モード（ReadOnlyか否か）」を取得する。
2. ロジック層 (Standard Module): 受け取った引数に基づき、例外処理を伴う安全なファイルオープンを実行する。

3. 実装：プロダクション・クオリティのコード

以下に、そのまま現場に投入できるレベルのコードを示す。

3.1 UserForm の構成

UserForm (`frmLauncher`) に以下のコントロールを配置したと仮定する。

• `txtFilePath` (TextBox): 図面のフルパスを入力
• `chkReadOnly` (CheckBox): 「閲覧モード(ReadOnly)で開く」というラベル
• `btnOpen` (CommandButton): 実行ボタン

3.2 ロジック層：Standard Module

まず、標準モジュールに「真に信頼できる」オープン関数を記述する。

Option Explicit

''' <summary>
''' 指定されたパスの図面を、指定されたモードで安全に開く
''' </summary>
''' <param name="filePath">図面のフルパス</param>
''' <param name="isReadOnly">ReadOnlyフラグ (True: 閲覧, False: 編集)</param>
Public Sub SafeOpenDocument(ByVal filePath As String, ByVal isReadOnly As Boolean)
    Dim acadApp As AcadApplication
    Dim doc As AcadDocument
    
    On Error GoTo ErrorHandler

    ' 1. オブジェクトの取得
    Set acadApp = ThisDrawing.Application

    ' 2. ファイルの存在確認 (Dir関数による事前チェックは必須)
    ' これを行わないと、Documents.Openで致命的な実行時エラーが発生する
    If Dir(filePath) = "" Then
        MsgBox "指定されたファイルが見つかりません:" & vbCrLf & filePath, vbCritical, "ファイルエラー"
        Exit Sub
    End If

    ' 3. 図面のオープン実行
    ' 第2引数に isReadOnly を動的に渡すのが今回の核心
    Set doc = acadApp.Documents.Open(filePath, isReadOnly)

    ' 4. 成功時の通知 (オプション)
    If Not isReadOnly Then
        Debug.Print "編集モードで開きました: " & filePath
    Else
        Debug.Print "閲覧モードで開きました: " & filePath
    End If

    Exit Sub

ErrorHandler:
    ' エラーハンドリングの設計
    ' 404/405等のランタイムエラーをユーザーに分かりやすく伝える
    Select Case Err.Number
        Case -2147352567 ' ファイルが他のプロセスで使用中などのエラー
            MsgBox "ファイルが他のユーザーによって開かれているか、書き込み権限がありません。", vbExclamation, "アクセス拒否"
        Case Else
            MsgBox "図面のオープン中に予期せぬエラーが発生しました。" & vbCrLf & _
                   "Error No: " & Err.Number & vbCrLf & _
                   "Description: " & Err.Description, vbCritical, "実行時エラー"
    End Select
End Sub

3.3 UI層：UserForm のコード

次に、フォームのボタンが押された際の挙動を記述する。ここでは「値の検証」と「ロジックへの委譲」のみを行う。

Option Explicit

''' <summary>
''' オープンボタン押下時のイベント
''' </summary>
Private Sub btnOpen_Click()
    Dim targetPath As String
    Dim readOnlyMode As Boolean

    ' 1. 入力値の取得
    targetPath = Me.txtFilePath.Value
    ' チェックボックスの状態をそのままBooleanとして取得
    readOnlyMode = Me.chkReadOnly.Value

    ' 2. 入力バリデーション（簡易版）
    If targetPath = "" Then
        MsgBox "ファイルパスを入力してください。", vbExclamation, "入力エラー"
        Exit Sub
    End If

    ' 3. ロジック層へ処理を委譲
    ' UI層は「どう開くか」の詳細を知る必要はない
    Call SafeOpenDocument(targetPath, readOnlyMode)

    ' 4. フォームを閉じる（必要に応じて）
    Unload Me
End Sub

4. アーキテクトの視点：なぜこの設計が「強い」のか

このコードが、単なるコピペコードと一線を画す理由は3点ある。

① 事前検証による「エラーの先制攻撃」

`Documents.Open` を呼び出す前に `Dir(filePath)` でファイルの存在を確認している。これは、AutoCADのエンジンにエラーを投げさせるのではなく、VBA側で制御可能なエラーとして処理するためだ。これにより、アプリケーションのクラッシュや、予期せぬダイアログによるユーザーの混乱を防いでいる。

② 責務の分離 (Separation of Concerns)

UserFormは「ユーザーの入力を受け取る」ことだけに集中している。もし将来的に、ファイルパスを「Excelのリストから取得する」仕様に変更したとしても、`SafeOpenDocument` 関数を書き換える必要はない。この変更に対する強さこそが、保守性の正体である。

③ エラーハンドリングの階層化

`Select Case Err.Number` を用いたエラーハンドリングは、単なる `Err.Description` の表示よりも遥かに親切だ。ユーザーは「何が原因で失敗したのか（権限なのか、ファイル不在なのか）」を直感的に理解できる。これは、サポートコストを下げるためのエンジニアリングである。

5. さらなる高みへ：データベース連携への布石

実務において、ファイルパスをユーザーに手入力させることは稀だ。通常は、SQL ServerやAccessなどのデータベース、あるいはExcelの管理台帳からパスを取得する。

その際も、今回作成した `SafeOpenDocument` はそのまま使える。

' 例：DBから取得したパスを使用する場合
Dim dbPath As String
dbPath = GetPathFromDatabase(targetID) ' 独自のDB取得関数
Call SafeOpenDocument(dbPath, True)    ' 閲覧モードで開く

このように、「引数を受け取って、決められたルールで実行する」というインターフェースを確立しておくことが、大規模な自動化プロジェクトを成功させる鍵となる。

まとめ

`Documents.Open` の `ReadOnly` 引数を動的に切り替える。一見単純な実装に見えるが、その背後には「ユーザーの意図を汲み取る」「エラーを予測する」「構造を分離する」という、エンジニアリングの本質が詰まっている。

次にコードを書くときは、自分に問いかけてほしい。
「このコードは、明日、別の担当者がメンテナンスしても壊れないか？」と。

その答えが「Yes」であるために、今日学んだ設計思想を刻み込んでほしい。