【実務・中級編】【上級プロフェッショナル向け】「Digital Signature」付き図面のオープン制御：署名の有効性を検証し、改ざんされた図面の保存を拒否する – AutoCAD VBA解析バイブル

AutoCAD VBA

2026.11.07

【上級プロフェッショナル向け】Digital Signature付き図面の完全制御：改ざんを許さない堅牢な自動化設計

【上級プロフェッショナル向け】Digital Signature付き図面の完全制御：改ざんを許さない堅牢な自動化設計

インフラ、航空宇宙、あるいは高度な知的財産が絡む建設プロジェクトにおいて、図面（DWG）は単なる「絵」ではない。それは、法的責任を伴う「証跡」である。

多くの自動化エンジニアは、「図面を開いて、データを抽出し、加工して保存する」というフローを構築することに終始する。しかし、シニアレベルのアーキテクトが考えるべきは、その一歩先にある「データの整合性と真正性の保証」だ。

もし、デジタル署名が付与された重要な図面が、悪意ある第三者、あるいは不注意な操作によって改ざんされた状態で保存されてしまったらどうなるか？その後のプロジェクトの信頼性は瓦解し、企業の法的リスクは計り知れない。

本記事では、AutoCAD VBAを用い、デジタル署名の有効性を検証し、「署名が失効、または改ざんされている図面に対しては、上書き保存を物理的に阻止する」という、極めて堅牢な制御ロジックの設計思想と実装方法を伝授する。

1. 凡庸な設計と、プロフェッショナルの設計

まず、多くの開発者が陥る「非効率で危険な設計」を指摘しておこう。

❌ 失敗する設計：イベントに頼りすぎる、あるいはチェックを欠く

「開いた後に、ユーザーが気づくのを待つ」: AutoCADの標準警告ダイアログに依存する設計。自動化プロセスにおいて、ユーザーの判断を仰ぐことは「自動化の放棄」と同義である。
「On Error Resume Next で握りつぶす」: 署名エラーを例外として処理せず、そのまま処理を続行させる。これは改ざんされた図面を「正当なもの」としてデータベースに記録する致命的なバグを誘発する。

✅ プロフェッショナルの設計：Gatekeeper（門番）パターン

我々が採用すべきは、「状態遷移を厳格に管理するGatekeeperパターン」である。

1. Open Phase: 図面を開いた直後に、署名の「存在」と「有効性」を即座に検証する。
2. State Management: 検証結果をオブジェクトの内部状態（フラグ）として保持する。
3. Intercept Save Phase: 保存処理（Save/SaveAs）が呼ばれた際、保持しているフラグをチェックし、不正であれば処理を強制中断、あるいは「別名保存」へ強制的にルーティングする。

2. 実装の核心：デジタル署名の検証ロジック

AutoCADのCOMオブジェクトモデルにおいて、`DigitalSignature` オブジェクトは図面の真正性を司る。しかし、単に `IsSigned` プロパティを見るだけでは不十分だ。署名が「存在する」ことと、その署名が「有効（改ざんされていない）」であることは全く別の問題だからだ。

以下に、プロダクション環境に耐えうる、堅牢な検証モジュールの設計例を示す。

プロダクションコード例：`SignatureGuard` モジュール

' ==============================================================================
' Module: SignatureGuard
' Purpose: Digital Signatureの検証および図面の整合性制御
' Description: 図面の署名状態を管理し、不正な保存を阻止するためのロジックを提供
' ==============================================================================

Option Explicit

' 署名状態を定義する列挙型
Public Enum SignatureStatus
    ssInvalid = 0      ' 署名が存在しない、または改ざんされている
    ssValid = 1        ' 署名が有効
    ssUnknown = 2      ' 検証不能（エラー発生）
End Enum

' 図面の整合性状態を保持するプライベート変数（シングルトン的な管理を想定）
Private m_CurrentDocStatus As SignatureStatus

''' <summary>
''' 指定された図面のデジタル署名を厳格に検証する
''' </summary>
''' <param name="doc">対象のAcadDocumentオブジェクト</param>
''' <returns>SignatureStatus 列挙型</returns>
Public Function VerifyDocumentIntegrity(ByRef doc As Object) As SignatureStatus
    On Error GoTo ErrorHandler

    ' 1. 署名オブジェクトの取得試行
    ' 注意: AutoCADのバージョンや環境により、DigitalSignatureへのアクセス方法は
    ' プロパティの有無を事前に確認するのがアーキテクトの作法である。
    Dim sig As Object
    Set sig = doc.DigitalSignature

    ' 2. 署名の存在確認
    If sig Is Nothing Then
        VerifyDocumentIntegrity = ssInvalid
        Exit Function
    End If

    ' 3. 署名の有効性検証
    ' AutoCADのAPIにおいて、署名が改ざんされている場合、
    ' プロパティアクセス時に例外が発生するか、特定のステータスを返す。
    ' ここでは、署名が有効であることを前提としたロジックを構築する。
    
    ' [実務上のTip] 
    ' 実際には、証明書の有効期限や失効リスト(CRL)の確認が必要な場合があるが、
    ' VBAからはAutoCADが判断した結果を読み取る形になる。
    ' 署名が壊れている場合、doc.Saveを実行しようとした際にAutoCADが警告を出すが、
    ' 我々は「保存を試みる前」にこれを検知しなければならない。
    
    ' 簡易的な判定ロジック（環境に合わせて拡張せよ）
    If sig.IsSigned Then
        VerifyDocumentIntegrity = ssValid
    Else
        VerifyDocumentIntegrity = ssInvalid
    End If

    Exit Function

ErrorHandler:
    ' 署名オブジェクトへのアクセス自体が失敗する場合、それは「署名が壊れている」
    ' もしくは「署名が存在しない」ことの強力な示唆である。
    VerifyDocumentIntegrity = ssInvalid
End Function

''' <summary>
''' 保存処理のゲートキーパー。不正な状態での保存を阻止する。
''' </summary>
Public Sub SecureSave(ByRef doc As Object)
    ' 状態の再検証（直前の操作による改ざんを防ぐため、保存直前に再チェックするのが鉄則）
    Dim currentStatus As SignatureStatus
    currentStatus = VerifyDocumentIntegrity(doc)

    If currentStatus = ssValid Then
        ' 正常系：保存実行
        doc.Save
        Debug.Print "[INFO] SecureSave: Document saved successfully."
    Else
        ' 異常系：保存を拒否し、ログを記録
        ' ここでDB連携や外部ログへの書き出しを行うのがプロの仕事だ。
        LogErrorToDatabase "Unauthorized Save Attempt", doc.FullName, currentStatus
        
        MsgBox "【警告】この図面はデジタル署名が失効しているか、改ざんされています。" & vbCrLf & _
               "上書き保存はセキュリティポリシーにより禁止されています。" & vbCrLf & _
               "内容を確認の上、別名で保存するか、管理者へ連絡してください。", vbCritical, "整合性エラー"
        
        ' 強制終了（保存処理をスキップ）
        Exit Sub
    End If
End Sub

''' <summary>
''' 外部データベースまたはログファイルへのエラー記録（スタブ）
''' </summary>
Private Sub LogErrorToDatabase(msg As String, filePath As String, status As SignatureStatus)
    ' 本来はここで SQL Server や外部 API へ、
    ' 「誰が・いつ・どのファイルを・どのような状態で」保存しようとしたかを記録する。
    ' これにより、監査ログ（Audit Trail）が完成する。
    Debug.Print "[AUDIT LOG] " & msg & " | File: " & filePath & " | Status: " & status
End Sub

3. アーキテクチャの肝：なぜこの設計なのか

状態の「再検証」という概念

コード内で `SecureSave` を実行する際、わざわざ `VerifyDocumentIntegrity` を再度呼び出していることに気づいただろうか？
「図面を開いた時にチェックしたから十分だ」という考えは、メモリ上のオブジェクトが操作された可能性を無視している。「重要アクションの直前には、必ず状態を再検証する」。これが、バグと不正を許さない堅牢なシステムの鉄則である。

エラーハンドリングの哲学

`ErrorHandler` で単にエラーを無視せず、`ssInvalid` を返す設計にしている。これは、「不明な状態は、すべて『不正』として扱う」という、Fail-Safe（フェイルセーフ）の考え方に基づいている。

外部連携（Audit Trail）の重要性

`LogErrorToDatabase` の存在を見逃してはいけない。セキュリティが重視される現場では、「何かが起きたこと」を知るだけでなく、「誰が、いつ、どの図面に対して不正な操作を試みたか」という証跡が、法的防御において極めて重要な意味を持つ。

4. 実務への適用：運用上の注意点

このロジックをプロダクション環境に導入する際は、以下の3点に留意せよ。

1. パフォーマンスへの影響:
`DigitalSignature` オブジェクトへのアクセスは、単純なプロパティ参照よりも重い。全ての図面操作に対して行うのではなく、`Save` や `Export` といった「永続化」のタイミングに絞って実行すること。
2. 証明書の失効問題:
デジタル署名は、証明書の発行元（CA）が失効リスト（CRL）を更新すると、以前は有効だった署名も「無効」と判定される。システム設計者は、この「正当な失効」と「悪意ある改ざん」を、業務フローとしてどう切り分けるかを定義しておく必要がある。
3. ユーザー体験（UX）の設計:
単に「保存できません」と突き放すだけでは、現場の作業を止めてしまう。`SecureSave` の中では、`SaveAs`（別名保存）を促すダイアログを表示させるなど、業務を継続するための「代替ルート」を組み込むのが、優れたエンジニアの配慮である。

結論

AutoCAD VBAによる自動化は、単なる「作業の高速化」を目指すものではない。
「ルールに基づいた、信頼性の高いプロセスを、機械的に、かつ完璧に遂行すること」。
これこそが、我々プロフェッショナルが提供すべき真の価値である。デジタル署名の制御という高度な課題に対し、この設計思想を武器に立ち向かってほしい。