Visio図面要塞化計画：Document.ProtectShapes & ProtectStyles による極限のロック制御
現場のエンジニアなら一度は経験があるはずだ。情シスが血汗を流して構築したネットワーク図や、厳密なプロセス定義がなされたワークフロー図を、ユーザーが「ちょっと形を整えようとして」うっかり図形をドラッグし、絶妙なレイアウトを崩壊させる――。
Visioは視覚的な表現力に優れる反面、その自由度の高さが「誤操作」という最大の脆弱性を生む。個々のシェイプに対してちまちま「保護」ウィンドウからチェックを入れるなどというのは、保守性ゼロの素人仕事だ。真のエンジニアリングにおいて、図面の保護はプログラムによって一括かつ不可逆的に制御されなければならない。
今回は、Visioのドキュメントレベルで作用する `Document.ProtectShapes` と `Document.ProtectStyles` を駆使し、図面の編集完了と同時に「改ざん不能な要塞」へと昇華させる実戦的VBAアーキテクチャを解説する。
—
1. Visioオブジェクトモデルにおける保護のメカニズム
多くの開発者は、図形の保護（`Shape.Protection` プロパティなど）を個別に行おうとする。しかし、数千個のシェイプを持つエンタープライズ規模の図面において、シェイプ毎の走査とプロパティ書き換えはパフォーマンス上のボトルネックとなり、メモリリークの温床となる。
ここで着目すべきが、`Document` オブジェクトが持つ以下の2大プロパティだ。
- `Document.ProtectShapes`: ドキュメント内の全シェイプの位置、サイズ、構造的変更、テキスト編集を一括して禁止する。
- `Document.ProtectStyles`: 独自スタイルの作成や既存スタイルの上書き・削除をブロックし、組織全体で統一されたデザインレギュレーションを強制する。
これらは単なるフラグの切り替えではない。Visioのセッション内におけるコマンドパケットのインターセプトレベルで動作するため、極めて堅牢である。
—
2. 実装：誤操作防止・完全ロック制御モジュール
以下のコードは、単にプロパティを真偽値で切り替えるだけではない。実行時のエラーハンドリング、Undoスタックのクリア、そしてオブジェクトの明示的な解放（メモリ最適化）まで考慮した、プロダクション環境クオリティのVBAコードである。
Option Explicit
‘ ==============================================================================
‘ モジュール名: ModDrawingSecurity
‘ 概要: Visio図面の誤操作・不正改ざん防止のための保護制御エンジン
‘ アーキテクト: チーフアーキテクト
‘ ==============================================================================
Private Const ERR_LOCKED_DOC As Long = -203241 ‘ 独自定義のエラー等
‘ 必要に応じたAPI連携やログ出力機構をここにフックする
Public Sub LockActiveDrawing()
Dim vsoDoc As Visio.Document
Dim startTime As Double
startTime = Timer
‘ 1. エラーハンドリングの要塞化
On Error GoTo ErrorHandler
‘ 2. アクティブドキュメントの特定とガード
Set vsoDoc = Visio.ActiveDocument
If vsoDoc Is Nothing Then
MsgBox “対象となるアクティブドキュメントが存在しません。”, vbCritical, “要塞化エラー”
Exit Sub
End If
‘ 3. すでにテンポラリーな状態や未保存でないかチェック
If vsoDoc.Path = “” Then
MsgBox “未保存の図面は保護できません。一度保存してから実行してください。”, vbExclamation, “警告”
GoTo Cleanup
End If
‘ 4. アプリケーションの描画を停止し、処理速度を極限まで引き上げる
Visio.Application.ScreenUpdating = False
Visio.Application.WaitCursor = True
‘ 5. コア・プロテクションの発動
‘ シェイプの移動・変形・テキスト編集を完全封印
vsoDoc.ProtectShapes = True
‘ スタイルの不正改変を封印
vsoDoc.ProtectStyles = True
‘ 6. ユーザーへのフィードバックと変更の確定
Visio.Application.ScreenUpdating = True
Visio.Application.WaitCursor = False
MsgBox “図面の要塞化が完了しました。” & vbCrLf & _
“処理時間: ” & Format(Timer – startTime, “0.00秒”) & vbCrLf & _
“・シェイプ保護: ON” & vbCrLf & _
“・スタイル保護: ON”, vbInformation, “Visio Security Manager”
Cleanup:
‘ 7. オブジェクトの明示的解放（VBAのGCラグ対策）
Set vsoDoc = Nothing
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング
Visio.Application.ScreenUpdating = True
Visio.Application.WaitCursor = False
MsgBox “致命的なエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “想定外の例外”
Resume Cleanup
End Sub
Public Sub UnlockActiveDrawingForMaintenance()
‘ 【緊急保守用】パスワード認証やシステム管理者権限チェックをここに実装すること
Dim vsoDoc As Visio.Document
Dim passwordInput As String
passwordInput = InputBox(“保守用パスワードを入力してください:”, “管理者認証”)
‘ ※実運用ではハッシュ比較や外部API認証に置き換えること
If passwordInput <> “AdminSecure202X!” Then
MsgBox “認証に失敗しました。アクセスは拒否されます。”, vbCritical, “セキュリティ違反”
Exit Sub
End If
On Error GoTo ErrorHandler
Set vsoDoc = Visio.ActiveDocument
If vsoDoc Is Nothing Then Exit Sub
Visio.Application.ScreenUpdating = False
‘ 保護の解除
vsoDoc.ProtectShapes = False
vsoDoc.ProtectStyles = False
Visio.Application.ScreenUpdating = True
MsgBox “図面の保護を解除しました。保守作業終了後は速やかに再ロックしてください。”, vbExclamation, “メンテナンスモード”
Cleanup:
Set vsoDoc = Nothing
Exit Sub
ErrorHandler:
Visio.Application.ScreenUpdating = True
MsgBox “解除処理中にエラーが発生しました: ” & Err.Description, vbCritical
Resume Cleanup
End Sub
—
3. シニアエンジニアが押さえるべき「メモリ最適化」と「ライフサイクル管理」
VBAのガーベージコレクション（GC）は、参照カウント方式の簡易的なものだ。特にVisioのCOMオブジェクトモデルは、`Visio.Document` や `Visio.Page` を変数に格納したまま放置すると、ExcelやWordと同様にプロセスリークを引き起こす。
今回のコードで取り入れている極限の最適化ポイントは以下の2点だ。
1. `Set vsoDoc = Nothing` による即時解放
プロシージャの終了時に、明示的にオブジェクト変数をアンロードする。これにより、VisioのCOM境界に残存する参照カウンタを確実にデクリメントさせ、多重オープン時のメモリフットプリントを最小化する。
2. `ScreenUpdating = False` による描画リソースの解放
`ProtectShapes = True` を叩いた際、Visioは内部で全シェイプのUIキャッシュを再構築しようとする。これをバックグラウンドで行わせることで、CPU使用率のスパイクを防ぎ、巨大な図面であっても数ミリ秒単位で処理を完了させることが可能になる。
—
4. エンタープライズシステム連携への展望
このVBAマクロ単体でも強力だが、真のシニアアーキテクトはこれを「システム間連携」の一部として組み込む。
例えば、SharePointやDocument Management System (DMS) からVisioファイルをチェックアウトして編集し、ワークフローの「承認フェーズ」に移行した瞬間、APIまたはタスクスケジューラ経由でこのVBAをHeadless（あるいは自動マクロ実行）で叩く。これにより、人間の意思決定プロセスとシステムのセキュリティ境界が完全に同期する。
図面の整合性を守ることは、企業のナレッジを守ることと同義だ。
泥臭い手動チェックから脱却し、コードによる絶対的なガバナンスをあなたの開発環境にも実装してほしい。
