マスターシェイプの「保護」を制御せよ：状態の整合性を担保する堅牢な自動化設計
Visioを用いた業務自動化ツールの開発において、多くの開発者が陥る「初歩的な、しかし致命的なミス」がある。それは、「保護（Protection）を解除する」という行為を、単なるBoolean（True/False）の切り替えだと勘違いしていることだ。
マスターシェイプやそのインスタンスに対して、VBAで形状やカスタムプロパティを書き換えようとした際、`Shape.Protection = False` と力技で書き換えていないだろうか？ もしそうなら、君のコードは「動くが、極めて脆弱なコード」だ。なぜなら、その瞬間、そのシェイプが本来持っていた「回転禁止」「削除禁止」「移動禁止」といった、設計者が意図したすべての制約を破壊してしまっているからだ。
本記事では、プロフェッショナルとして、特定の保護属性のみをピンポイントで操作し、万が一の例外発生時にもシェイプの状態を元に戻す「アトミック（不可分）な操作」の設計手法を伝授する。
1. 破壊的変更を避けるための「ビットマスク」の理解
Visioの `Protection` プロパティは、単一のフラグではない。複数の属性が重なり合ったビットマスク（Bitmask）として管理されている。
例えば、あるシェイプに「ロック（Lock）」と「削除禁止（Delete）」の両方の保護がかかっている場合、その内部数値はそれぞれのビットが立った状態になっている。
ここで `shp.Protection = 0` と書き込むのは、精密機械のネジを一本外すために、機械ごと溶接を剥がすような暴挙だ。
プロフェッショナルが取るべきアプローチ
我々がすべきは、「現在の保護状態をメモリに退避させ、必要なビットだけを反転させ、処理後に元のビットパターンを復元する」というライフサイクル管理である。
2. 堅牢な設計パターン：State Capture & Restore
業務アプリケーションにおいて、エラーハンドリングは「機能」の一部である。書き換え処理中にエラーが発生し、シェイプが「保護解除されたまま」放置されることは、ユーザーによる誤操作を招き、データ整合性を破壊する致命的なバグとなる。
以下のコード例は、私が実務のプロダクションコードで採用している、「保護状態の退避・操作・復元」をパッケージ化した設計パターンである。
プロダクショングレードのVBA実装例
Option Explicit
''' <summary>
''' 指定したシェイプの特定の保護属性を一時的に解除し、安全にプロパティを更新する。
''' </summary>
''' <param name="targetShape">操作対象のVisio Shapeオブジェクト</param>
''' <param name="protectionToUnlock">解除したい保護フラグ (例: visProtectionLock)</param>
''' <param name="actionCallback">シェイプに対して実行したい具体的な編集処理</param>
Sub SafeModifyShapeProtection( _
ByVal targetShape As Visio.Shape, _
ByVal protectionToUnlock As Long, _
ByVal actionCallback As Object) ' ※本来はCallableな関数を渡すべきだが、VBAの制約上、ロジックを内包するか、構造化して呼び出す
Dim originalProtection As Long
Dim errorOccurred As Boolean
' 1. 現在の保護状態をキャプチャ（退避）
originalProtection = targetShape.Protection
errorOccurred = False
On Error GoTo ErrorHandler
' 2. 特定のビットのみを解除 (Bitwise AND NOT 操作)
' originalProtection から protectionToUnlock に該当するビットだけを 0 にする
targetShape.Protection = originalProtection And Not protectionToUnlock
' 3. 実際の編集処理（ここに具体的な書き換えロジックを記述）
' 実務では、この部分を別のプロシージャとして分離し、引数でShapeを渡す設計が望ましい
Call ExecuteShapeModification(targetShape)
' 4. 正常終了した場合、保護状態を完全に復元
targetShape.Protection = originalProtection
Debug.Print "Success: Shape modified and protection restored."
Exit Sub
ErrorHandler:
errorOccurred = True
Debug.Print "Error: " & Err.Description
' 5. エラー発生時、最優先で「元の状態」に強制復旧させる
' これを行わないと、シェイプが「保護なし」のまま残り、ユーザーの誤操作を誘発する
On Error Resume Next ' 復元自体が失敗する場合の二次エラーを防止
targetShape.Protection = originalProtection
On Error GoTo 0
MsgBox "シェイプの更新中にエラーが発生しました。保護設定を元に戻しました。", vbCritical, "実行エラー"
End Sub
''' <summary>
''' 実際の編集ロジックを分離したプロシージャ
''' </summary>
Private Sub ExecuteShapeModification(ByVal shp As Visio.Shape)
' ここにビジネスロジックを記述する
' 例: カスタムプロパティの更新、形状の変更など
shp.Text = "Updated at " & Now
' わざとエラーを発生させるテスト用（デバッグ時のみ使用）
' Err.Raise 999, "TestError", "意図的なエラー発生"
End Sub3. アーキテクトの視点：マスターとインスタンスの境界線
ここで、中級者が必ず直面する設計上のジレンマについて触れておく。
「マスターシェイプ自体を書き換えるのか、それともページ上のインスタンスを書き換えるのか」という問題だ。
マスターシェイプの保護を扱う際の注意点
1. マスターの変更は「全インスタンス」に波及する
ステンシル内のマスターシェイプの保護属性を変更すると、既に図面に配置されているすべてのインスタンスに影響が及ぶ場合がある。これは、アプリケーションの「型」そのものを変える行為だ。
2. パフォーマンスの重み
大量のシェイプをループで回し、一つずつ `Protection` プロパティにアクセスするのは、Visioの内部計算を何度もトリガーするため、極めて低速だ。
- 設計指針: 可能な限り、変更が必要なシェイプをリスト化し、一括処理を行う。また、データベース（SQL ServerやExcel等）から値を読み込む場合は、「DBから全データをメモリ（配列）にロード」→「Visioへの反映（一括）」という、I/O回数を最小化するパイプラインを構築せよ。
4. まとめ：堅牢なツールの条件
優れた自動化エンジニアは、コードが「動くこと」よりも、コードが「失敗したときにどう振る舞うか」に重きを置く。
- ビット演算を使いこなせ: `Protection = False` は禁物。`And Not` を使って、意図したビットのみを操作せよ。
- 状態の不変性を守れ: `Try…Catch` (VBAでは `On Error GoTo`) を用い、エラー時こそ「元の状態」へ強制的にロールバックする設計を徹底せよ。
- 副作用を予見せよ: マスターの変更が図面全体に与える影響を常に意識せよ。
この設計思想を身につければ、君が作るツールは、単なる「便利なマクロ」から、企業の基幹業務を支える「信頼に値するソフトウェア」へと昇華するだろう。
