Visio VBAの深淵：読み取り専用オープンで「破壊的誤操作」を物理的に遮断する
業務自動化を志すエンジニア諸君。君たちが書くスクリプトは、単なる自動化ツールではない。組織の資産である「図面ファイル」を扱う、いわば「重機」のオペレーションだ。
図面ファイルを不用意に開き、誤って保存してしまった経験はないだろうか。特に、テンプレートやマスター図面を触る際、「読み取り専用で開く」という鉄則を怠ることは、現場の信頼を失墜させる致命的なバグの温床となる。
今日は、Visio VBAにおいてこの「人為的破壊」をコードレベルで物理的に防ぐための、最も堅牢なアプローチを伝授する。
—
なぜ `Documents.Open` では不十分なのか
初心者が犯しやすい最大の過ちは、単なる `Documents.Open(filePath)` を使うことだ。これではOSの権限に依存し、ファイルがロックされていない限り、スクリプトは「書き込み可能な状態」でファイルを開いてしまう。
我々が求めるのは、「Visioのメモリ空間内での強制的な読み取り専用化」である。これを実現するのが `Documents.OpenEx` メソッドだ。
—
堅牢な実装：`OpenEx` メソッドの最適解
`OpenEx` は、Visioが提供する強力な制御インターフェースだ。フラグを適切に設定することで、たとえファイル自体に書き込み権限があっても、Visio上では変更を保存できない「読み取り専用モード」を強制できる。
本番環境向けプロダクションコード
以下のコードは、エラーハンドリングを完備し、いかなる状況でも図面を安全に読み込むためのテンプレートだ。
Option Explicit
‘ 読み取り専用でファイルを開き、誤操作を防止する関数
Public Sub OpenDrawingReadOnly(ByVal filePath As String)
Dim doc As Visio.Document
Dim openFlags As Long
‘ 必須フラグの定義
‘ visOpenRO: 読み取り専用で開く
‘ visOpenDocked: ウィンドウをドッキングさせる（オプション）
openFlags = Visio.VisOpenSaveArgs.visOpenRO
‘ パスチェック：ファイルが存在しない場合のガード節
If Dir(filePath) = “” Then
MsgBox “対象ファイルが見つかりません: ” & vbCrLf & filePath, vbCritical
Exit Sub
End If
On Error GoTo ErrorHandler
‘ Application.Documents.OpenEx を活用する
‘ 単なるOpenではなくOpenExを用いることで、詳細なフラグ制御が可能になる
Set doc = Application.Documents.OpenEx(filePath, openFlags)
Debug.Print “図面を読み取り専用でロードしました: ” & doc.Name
Exit Sub
ErrorHandler:
MsgBox “ファイルオープン時に致命的なエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical
End Sub
—
アーキテクトの視点：設計上の注意点
この実装を導入する際、以下の3点を心に刻んでおいてほしい。
1. 「保存」を物理的に遮断する意識
`visOpenRO` フラグを立てて開けば、VisioのUI上で「上書き保存」ボタンはグレーアウトするか、名前を付けて保存を強制される。しかし、スクリプト内で `doc.Save` を実行してしまえば、メモリ上のデータは書き出せてしまう可能性がある。読み取り専用で開いたドキュメントには、一切の保存操作を許可しないという設計思想をコード内に貫徹すること。
2. PDF出力との連携
多くの現場では、「読み取り専用で開く ＝ PDF化して配布する」という自動化フローを組むはずだ。その際、`doc.ExportAsFixedFormat` を使用するが、このメソッドはファイルの属性に関係なくPDFを出力できる。
「読み取り専用で開く」＋「PDF変換」＋「終了時に保存せず閉じる」。このサイクルを徹底することで、マスター図面は永久に保護される。
3. 排他制御の限界を知る
`OpenEx` はあくまでVisioアプリケーション内の制御だ。もしデータベース連携などで図面パスを管理しているなら、ファイルが共有フォルダに置かれている場合、ネットワーク遅延や他ユーザーの書き込みロックによる「ファイルアクセスエラー」のハンドリングを必ず `ErrorHandler` 内で詳細に行う必要がある。
—
最後に：エンジニアとしての矜持
コードを書くことは、単に動けば良いというものではない。「将来の自分やチームが、いかにこのツールで事故を起こさずに済むか」を設計することこそが、真の自動化エンジニアの仕事だ。
「読み取り専用で開く」という単純な一行に、これだけの意図を込められるようになったとき、君はただのVBAユーザーから、設計者へと一段階進化する。
さあ、恐れることなく図面を開こう。君のツールは、もう二度とマスター図面を破壊することはない。
