パスワードの壁を突破せよ。Documents.Openの「Password」引数で実現する、真の自動化への第一歩
こんにちは。AutoCADの世界へようこそ。
マクロの記録機能を使って「あ、これ自動化できそうだな」と気づき始めたあなた。素晴らしい一歩を踏み出しましたね。しかし、実際に業務で大量の図面を処理しようとすると、避けて通れない「壁」にぶつかることがあります。
それが、「パスワードで保護された図面」です。
せっかく書いた自動化プログラムが、パスワード入力ダイアログで止まってしまい、結局人間がキーボードを叩かなければならない……。これでは「自動化」とは呼べませんよね。
今日は、そんな壁をスマートに、そしてエレガントに突破するためのテクニック、`Documents.Open` メソッドの `Password` 引数の使い方を伝授します。単にコードを書くだけでなく、「なぜそう書くのか」「エラーが起きた時にどう振る舞うべきか」という、プロフェッショナルへの入り口となる視点もお話ししましょう。
1. なぜ「パスワード引数」が必要なのか？
通常、AutoCADでパスワード付きの図面を開こうとすると、親切なダイアログボックスが表示されます。しかし、VBAによるバッチ処理（大量の図面を連続で開く処理）を行っている最中にこのダイアログが出ると、プログラムはそこで「一時停止」してしまいます。
`Documents.Open` メソッドには、実は「パスワードをあらかじめ渡しておくための専用の席（引数）」が用意されています。ここに正しいパスワードをセットしてあげることで、AutoCADはダイアログを出さずに、静かに、かつ迅速に図面を開いてくれるのです。
2. 実装の核心：パスワード付き図面を開くコード例
それでは、実際に現場で使えるレベルのコードを見てみましょう。初心者の方でも、まずはこの構成を「型」として覚えてください。
Option Explicit
''' <summary>
''' パスワード付きのDWGファイルを安全に開くためのプロシージャ
''' </summary>
Sub OpenSecureDrawing()
' --- 変数の宣言（オブジェクトのライフサイクルを管理するために重要） ---
Dim acadApp As AcadApplication
Dim dwgDoc As AcadDocument
Dim filePath As String
Dim dwgPassword As String
' --- 設定エリア（ここを書き換えてテストしてください） ---
filePath = "C:\Work\SecureProject\SecretPlan.dwg" ' 開きたい図面のフルパス
dwgPassword = "MyPassword123" ' 正しいパスワード
' AutoCADアプリケーションへの参照を取得
Set acadApp = ThisDrawing.Application
' --- エラーハンドリングの開始 ---
' パスワード間違いなどのエラーでプログラムが強制終了するのを防ぎます
On Error GoTo ErrorHandler
Debug.Print "図面を開こうとしています: " & filePath
' --- 【重要】Documents.Open の実行 ---
' 引数の構成: Documents.Open(Name, [Password], [ReadOnly])
' 第1引数: ファイルのフルパス
' 第2引数: パスワード（ここが今回の主役！）
' 第3引数: 読み取り専用で開くかどうか (True/False)
Set dwgDoc = acadApp.Documents.Open(filePath, dwgPassword, False)
' 無事に開けた場合の処理
MsgBox "図面 '" & dwgDoc.Name & "' を正常に開きました。", vbInformation, "成功"
' ここに、開いた図面に対する処理（線を描く、属性を書き換える等）を記述します
' 処理が終わったら、メモリ管理のために参照を解除することをお勧めします
' Set dwgDoc = Nothing
Exit Sub
' --- エラーが発生した場合のジャンプ先 ---
ErrorHandler:
Select Case Err.Number
Case -2147352567 ' 指定したファイルが見つからない場合など
MsgBox "エラー: ファイルが見つかりません。" & vbCrLf & filePath, vbCritical
Case 0 ' 本来はエラーがないはずですが、パスワード間違い等はここで捕捉されます
' 注意: AutoCADの仕様により、パスワード間違いは特定のErr.Numberを返さない場合があるため
' 実際には「開けなかったこと」を検知するロジックが重要です
MsgBox "エラー: 図面を開けませんでした。パスワードが違うか、ファイルが破損しています。", vbCritical
Case Else
MsgBox "予期せぬエラーが発生しました: " & Err.Description, vbCritical
End Select
' エラーが起きても、安全に終了するようにします
Err.Clear
End Sub3. アーキテクトの視点：コードの深掘り解説
コードをただコピペするだけでは、あなたは「作業者」のままです。「エンジニア」になるために、このコードの裏側にある設計思想を理解しましょう。
① 引数の順番を間違えない
`Documents.Open` は、複数の情報を引数として受け取ります。
`Documents.Open(Name, Password, ReadOnly)`
この順番は絶対です。もしパスワードを飛ばして「読み取り専用（ReadOnly）」の設定だけを書きたい場合は、`Documents.Open(filePath, , True)` のように、カンマを重ねて「2番目の引数は空ですよ」と明示する必要があります。ここを間違えると、AutoCADは「パスワードそのもの」を「読み取り専用フラグ」だと勘違いしてしまい、エラーの迷宮に迷い込みます。
② エラーハンドリングは「優しさ」
`On Error GoTo ErrorHandler` という記述を見てください。「もし失敗しても、パニックにならずに `ErrorHandler` というラベルまで飛んでくださいね」という指示です。
自動化において、エラーが起きた時にプログラムが「ピシャーン！」と止まってしまうのは最悪の挙動です。エラーを適切にキャッチし、「なぜ失敗したのか」をユーザーに優しく伝えること。これが、現場で信頼されるエンジニアの条件です。
③ オブジェクトのライフサイクル
`Set dwgDoc = …` という部分は、開いた図面という「実体」を、`dwgDoc` という「変数（リモコンのようなもの）」に紐付けています。
大量の図面を開くループ処理を書くときは、開いた図面を使い終わったら `dwgDoc.Close` で閉じる、あるいは `Set dwgDoc = Nothing` で参照を外すことを意識してください。これを怠ると、AutoCADのメモリ消費が膨れ上がり、最終的にPCが重くなってしまう「メモリリーク」という現象を引き起こします。
4. まとめ：ここをクリアすれば、基本はバッチリ！
パスワード付き図面の制御ができるようになったあなたは、もう「手動の作業」から一歩抜け出しました。
- `Documents.Open` の第2引数にパスワードを渡す。
- エラーハンドリングを組み込んで、予期せぬ停止を防ぐ。
- 引数の順番と、オブジェクトの管理（メモリ）に気を配る。
この3点をマスターすれば、あなたの作るマクロは「単なる記録」から「堅牢なシステム」へと進化します。
次は、複数のファイルをフォルダから順番に読み込んで、一気に処理する「ループ処理」に挑戦してみるのが良いでしょう。道は長く、しかし非常に面白いものです。
一歩ずつ、確実に進んでいきましょう。応援していますよ！
