こんにちは！CorelDRAWの自動化の世界へようこそ。
今回は、プログラミング初学者の方や「そろそろマクロの記録から一歩先へ進みたい！」という方に向けて、少し背伸びをした、でも現場ではめちゃくちゃ役立つテーマをお届けします。
テーマはずばり、「暗号化された機密デザインデータのバッチ一括復号化と、社内セキュリティ基準に完全準拠した監査システム」です。
「うわっ、なんだか難しそうな名前が出てきたぞ……」と思いましたか？
大丈夫、安心してください。一見すると要塞のように堅牢なシステムの名前ですが、これから一つひとつの部品を分解して、優しく丁寧に解説していきます。ここをクリアすれば、CorelDRAW VBAの基本的な使い方はもちろん、実務で通用する「安全なコードの書き方」がバッチリ身につきますよ。
それでは、先輩エンジニアと一緒に、セキュアな自動化の世界への扉を開けましょう！
—
1. なぜ「パスワード付きCDRファイルの一括処理」が必要なのか？
デザイン制作の現場では、クライアントとの秘密保持契約（NDA）や社内の厳格な情報漏洩対策として、CDRファイルにパスワードをかけて保存することがよくあります。
もし、これが「1ファイルや2ファイル」なら手作業でもいいのですが、「100個の機密ファイルを一晩で別フォーマットに変換し、かつ誰が・いつ・どのファイルを開いたかを監査ログに残せ」と言われたらどうでしょう？ 手作業でやっていたら、夜が明けても終わりませんよね。
ここでCorelDRAW VBAの出番です。しかし、暗号化されたファイルを扱うときは、ただ動くだけのコードでは不十分。「エラーで止まったときにパスワードが画面に残らないか」「不正なアクセスを防げているか」といったセキュリティの視点がプロには求められます。
—
2. コピペで動く！セキュア復号化・監査ログシステムの全体像
まずは、開発の現場でそのままコピペして参考にできる実用的なVBAコードを見てみましょう。このコードは、指定したフォルダ内にある暗号化されたCDRファイルを安全に開き、パスワードを解除して別形式で保存しつつ、実行ログをテキストファイルに書き出す仕組みを持っています。
‘ ==============================================================================
‘ 【モジュール名】SecuredCDRBatchAuditor
‘ 【概要】パスワード保護されたCDRファイルの一括復号化と監査ログ自動生成
‘ ==============================================================================
Option Explicit
Public Sub ExecuteSecureBatchDecryption()
‘ 1. 変数の宣言と初期化（メモリ管理の基本です）
Dim targetDir As String
Dim logPath As String
Dim fileName As String
Dim openPassword As String
Dim doc As CDR.Document
Dim fileCount As Long
‘ 監査用：処理開始時間の記録
Dim startTime As Double
startTime = Timer
‘ 【重要】パスワードはコードにハードコーディングせず、安全な変数や別管理を推奨
openPassword = “YourSecurePassword_Here”
‘ 対象フォルダのパス（環境に合わせて書き換えてください）
targetDir = “C:\ConfidentialDesigns\Encrypted\”
logPath = “C:\ConfidentialDesigns\AuditLogs\Access_Audit.log”
‘ フォルダの存在チェック（エラーハンドリングの第一歩）
If Dir(targetDir, vbDirectory) = “” Then
MsgBox “指定された機密フォルダが存在しません。”, vbCritical, “セキュリティアラート”
Exit Sub
End If
‘ 監査ログの初期書き込み
Call WriteAuditLog(logPath, “— バッチ処理セッション開始 —“)
‘ 2. フォルダ内のCDRファイルをループ処理
fileName = Dir(targetDir & “.cdr”)
fileCount = 0
‘ 画面描画を停止して処理速度を爆発的に上げる（お決まりのテクニックです）
CorelDRAW.Optimization = True
EventsEnabled = False
On Error GoTo ErrorHandler ‘ 万が一のエラーに備えるトラップ
Do While fileName <> “”
fileCount = fileCount + 1
‘ 【重要】パスワード付きファイルを開く
‘ CorelDRAWのOpenDocumentExメソッドを使用し、パスワードを引数に渡します
Set doc = Application.OpenDocumentEx(targetDir & fileName, , , openPassword)
If Not doc Is Nothing Then
‘ 監査ログに成功を記録
Call WriteAuditLog(logPath, “成功: ” & fileName & ” が正常に復号化されました。”)
‘ 例として、PNG形式に安全にコンバート保存（必要に応じて変更してください）
Dim exportPath As String
exportPath = “C:\ConfidentialDesigns\Decrypted\” & Left(fileName, InStrRev(fileName, “.”) – 1) & “.png”
‘ エクスポート処理
Dim expFilter As ExportFilter
Set expFilter = doc.Export(exportPath, cdrPNG, cdrSelection, Nothing)
expFilter.Finish
‘ ドキュメントを保存せずに閉じる（元の暗号化ファイルを保護するため）
doc.Close
End If
‘ 次のファイルへ
fileName = Dir()
Loop
‘ 3. 正常終了の処理
CorelDRAW.Optimization = False
EventsEnabled = True
Call WriteAuditLog(logPath, “— セッション正常終了 (処理ファイル数: ” & fileCount & ” / 実行時間: ” & Format(Timer – startTime, “0.00”) & “秒) —“)
MsgBox “すべての機密データの復号化監査が完了しました。”, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ エラー発生時の安全装置（画面描画の復元とログ記録）
CorelDRAW.Optimization = False
EventsEnabled = True
Call WriteAuditLog(logPath, “【致命的エラー】ファイル ” & fileName & ” の処理中に異常終了しました。エラー番号: ” & Err.Number & ” – ” & Err.Description)
MsgBox “エラーが発生しました。監査ログを確認してください。”, vbCritical, “システムエラー”
End Sub
‘ ==============================================================================
‘ 【補助関数】監査ログを安全に追記保存するプロシージャ
‘ ==============================================================================
Private Sub WriteAuditLog(ByVal logFilePath As String, ByVal logMessage As String)
Dim fso As Object
Dim ts As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ ログファイルが存在しない場合は新規作成、存在する場合は追記モードで開く
If Not fso.FileExists(logFilePath) Then
‘ フォルダがない場合の簡易作成
If Not fso.FolderExists(fso.GetParentFolderName(logFilePath)) Then
fso.CreateFolder (fso.GetParentFolderName(logFilePath))
End If
Set ts = fso.CreateTextFile(logFilePath, True)
Else
Set ts = fso.OpenTextFile(logFilePath, 8, True) ‘ 8 = ForAppending
End If
‘ タイムスタンプを付与して記録（監査の基本！）
ts.WriteLine “[” & Now & “] ” & logMessage
ts.Close
Set ts = Nothing
Set fso = Nothing
End Sub
—
3. コードの重要ポイントを噛み砕いて解説！
ここからは、コードの中で「なぜこの書き方をしているのか？」というプロとしてのこだわりポイントを、優しく解説していきますね。
① `CorelDRAW.Optimization = True` の魔法
ループ処理の中でドキュメントを開いたり閉じたりするとき、画面が毎回パチパチと切り替わると、処理が遅くなるだけでなく、メモリにも大きな負担がかかります。
`Optimization = True` を宣言することで、CorelDRAWの画面描画を一時的にストップさせ、処理スピードを劇的に向上させることができます。処理が終わったら必ず `False` に戻すのがお約束ですよ。
② パスワード付きファイルを開く `OpenDocumentEx`
通常のマクロの記録だと単なる `OpenDocument` が記録されますが、暗号化されたファイルを扱うときは引数にパスワードを指定できる `OpenDocumentEx` を使います。ここを知っているだけでも、VBAの引き出しがグッと広がります。
③ 監査証跡（インシデント対策）のためのログ記録
「誰がいつ何をしたか」を記録に残すこと（監査証跡）は、セキュリティ上非常に重要です。今回のコードでは、`FileSystemObject` を使って、処理の成功・失敗、そしてエラーの内容をタイムスタンプ付きでテキストファイルに書き出す仕組みを入れています。万が一トラブルが起きたときも、このログがあれば一発で原因を特定できます。
—
4. 初学者が陥りやすい「罠」とエラー回避のコツ
最後に、このレベルの自動化に挑戦するときに、多くの人がハマりがちなポイントをこっそりシェアしておきますね。
- 罠1：パスワードをそのままコードにベタ書きしてしまう
- 対策：今回は分かりやすく変数に入れていますが、実務では外部の暗号化された設定ファイルや、Windowsの資格情報マネージャーから読み込む形にするのが、プロとしての正しい姿です。
- 罠2：エラーが起きたときにCorelDRAWがフリーズする
- 対策：コード内の `On Error GoTo ErrorHandler` がこれ防いでいます。エラーが起きたときでも、必ず画面描画の最適化（Optimization）を解除するルートを通るように設計するのが、安全なマクロの大原則です。
—
まとめ
今回は、CorelDRAW VBAを使った「暗号化データのバッチ復号化と監査システム」という、少しハードルの高いテーマを解説しました。
一見難しそうに見えるコードも、「基本のループ」＋「安全なメソッドの選択」＋「エラー・ログ管理」というパーツの組み合わせで出来上がっています。ここをクリアできれば、あなたのVBAスキルは「初心者」を卒業し、現場をリードする「自動化エンジニア」の領域に一歩足を踏み入れたことになります。
ぜひご自身の環境でも試して、日々の業務をスマートに、そしてセキュアに自動化してみてくださいね。それでは、次回の記事もお楽しみに！
