【テクニカル・上級編】【実務】リンクテーブルの「パスワード保存」をVBAで安全に制御する – Access VBA解析バイブル

【実務】リンクテーブルの「パスワード保存」をVBAで安全に制御する：伝説的アーキテクトが明かす深淵なる知見

長年、Access VBAの世界に身を投じ、数々のレガシーシステムを蘇らせ、新たなシステムを構築してきた者として、今回は「リンクテーブルのパスワード保存」という、一見些細ながら、その深淵にはセキュリティとパフォーマンスの極意が潜むテーマについて、諸君に語りかけたい。

巷には、リンクテーブルの接続文字列を直接コードに埋め込む、あるいは設定ファイルに平文で保存するといった、あまりにも無防備な実装が散見される。これは、システム管理者やシニアエンジニアが、その責任を放棄しているに等しい。我々が目指すべきは、単なる「動くコード」ではない。それは、堅牢で、安全で、そして何よりも「保守可能」なシステムである。

1. なぜリンクテーブルのパスワード保存が問題なのか？

Accessのリンクテーブルは、外部データベースへの接続情報を格納する。この接続情報には、しばしばパスワードが含まれる。デフォルトでは、Accessはこのパスワードをファイル内に保存し、接続時に利用する。しかし、この保存されたパスワードは、容易に抽出されうる。

ファイル構造の解析: Accessのデータベースファイル（.mdb, .accdb）は、その構造が公開されており、専用のツールを使えば、リンクテーブルの接続情報（パスワード含む）を平文で読み取ることが可能だ。
VBAコードからの漏洩: リンクテーブルの定義をVBAで直接操作する場合、接続文字列をコード内にハードコーディングしたり、容易にアクセスできる場所に平文で保存したりすると、VBAコードの解析によってパスワードが露呈するリスクがある。

これは、システムが侵害される最初の扉を開ける行為に他ならない。特に、機密情報を取り扱うシステムにおいては、絶対に避けるべきである。

2. セキュアなリンクテーブル接続を実現するための基本原則

我々が目指すべきは、以下の原則に基づいた実装である。

パスワードの平文保存を避ける: 接続情報、特にパスワードは、暗号化するか、あるいは実行時に安全に取得する仕組みを設ける。
最小権限の原則: リンクテーブルへの接続に必要な最低限の権限を持つユーザーアカウントを使用する。
オブジェクトのライフサイクル管理: VBAオブジェクトは、不要になったら速やかに解放する。これにより、メモリリークを防ぎ、パフォーマンスを最適化する。特に、ADO/DAOオブジェクトは、その影響が大きい。
システム間連携の考慮: リンクテーブルが、他のシステムやデータベースとの連携を担う場合、その連携経路全体のセキュリティを考慮する。

3. VBAによる動的なリンクテーブル接続文字列の生成と更新

パスワードを直接保存しない、あるいは暗号化して保存し、実行時に復号化して接続文字列を生成・更新するアプローチが、現実的かつ効果的である。ここでは、DAO (Data Access Objects) を使用した実装例を示す。

3.1. パスワードを暗号化して保存する（一例）

パスワードそのものを平文で保存するのではなく、何らかの方法で暗号化して保存することを推奨する。ただし、VBA自身で強力な暗号化を行うのは難易度が高く、また鍵の管理も課題となる。ここでは、簡便な「XOR暗号」の例を示すが、これはあくまで「平文のまま保存するよりはマシ」というレベルであり、高度なセキュリティを求める場合は、より強固な暗号化ライブラリの利用や、Windows DPAPI (Data Protection API) の利用などを検討すべきである。

‘ — 暗号化/復号化モジュール —

‘ XOR暗号化キー (固定値ではなく、より安全な方法で生成・管理すべき)
Private Const ENCRYPTION_KEY As Byte = &H5A ‘ 例: 0x5A

‘ 文字列をバイト配列に変換
Private Function StringToByteArray(ByVal str As String) As Byte()
StringToByteArray = TextEncoding.GetBytes(str, TextEncoding.Unicode)
End Function

‘ バイト配列を文字列に変換
Private Function ByteArrayToString(ByVal arr() As Byte) As String
ByteArrayToString = TextEncoding.GetString(arr, TextEncoding.Unicode)
End Function

‘ XOR暗号化/復号化関数
Private Function XorEncryptDecrypt(ByVal data() As Byte, ByVal key As Byte) As Byte()
Dim i As Long
Dim encryptedData(LBound(data) To UBound(data)) As Byte

For i = LBound(data) To UBound(data)
encryptedData(i) = data(i) Xor key
Next i
XorEncryptDecrypt = encryptedData
End Function

‘ 文字列を暗号化する
Public Function EncryptString(ByVal plainText As String) As String
Dim byteArray() As Byte
byteArray = StringToByteArray(plainText)
byteArray = XorEncryptDecrypt(byteArray, ENCRYPTION_KEY)
‘ Base64エンコードして、文字列として保存しやすくする
EncryptString = Convert.ToBase64String(byteArray)
End Function

‘ 文字列を復号化する
Public Function DecryptString(ByVal cipherText As String) As String
Dim byteArray() As Byte
byteArray = Convert.FromBase64String(cipherText)
byteArray = XorEncryptDecrypt(byteArray, ENCRYPTION_KEY)
DecryptString = ByteArrayToString(byteArray)
End Function

‘ — Utility for Text Encoding (VB.NET Style) —
‘ Access VBAでUnicode文字列を扱うための簡易的なヘルパー
‘ 実際には、より堅牢な Unicode <=> Byte 変換が必要になる場合がある
‘ ここでは、VB.NETのSystem.Text.Encodingを模倣した簡易実装とする
Public Module TextEncoding
‘ UTF-16 Little Endian (Access VBAの標準的なStringエンコーディング)
Public Const Unicode As Integer = 1200

Public Function GetBytes(ByVal str As String, ByVal encoding As Integer) As Byte()
‘ 簡易実装: StringをByte配列に変換 (UTF-16 LEを想定)
‘ 実際には、API呼び出し (MultiByteToWideChar, WideCharToMultiByte) が必要
Dim bytes() As Byte
bytes = str
GetBytes = bytes
End Function

Public Function GetString(ByVal bytes() As Byte, ByVal encoding As Integer) As String
‘ 簡易実装: Byte配列をStringに変換 (UTF-16 LEを想定)
‘ 実際には、API呼び出し (MultiByteToWideChar, WideCharToMultiByte) が必要
Dim str As String
str = bytes
GetString = str
End Function
End Module

‘ — Base64 Encoding/Decoding Utility (VB.NET Style) —
‘ Access VBAでBase64エンコード/デコードを行うための簡易的なヘルパー
‘ 実際には、WinAPI (CryptBinaryToString, CryptStringToBinary) を使用するか、
‘ COMオブジェクト (ADODB.Stream) を利用するのが一般的
Public Module Convert
‘ ADODB.Stream を利用したBase64エンコード/デコード
Private Const adTypeText As Long = 2
Private Const adTypeBinary As Long = 1
Private Const adSaveCreateOverWrite As Long = 2

Public Function ToBase64String(ByVal bytes() As Byte) As String
Dim stream As Object ‘ ADODB.Stream
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = adTypeBinary
stream.Open
stream.Write bytes
stream.SaveToMemory
stream.Position = 0
stream.Type = adTypeText
ToBase64String = stream.ReadText
Set stream = Nothing
End Function

Public Function FromBase64String(ByVal base64String As String) As Byte()
Dim stream As Object ‘ ADODB.Stream
Set stream = CreateObject(“ADODB.Stream”)
stream.Type = adTypeText
stream.Open
stream.WriteText base64String
stream.SaveToMemory
stream.Position = 0
stream.Type = adTypeBinary
FromBase64String = stream.Read
Set stream = Nothing
End Function
End Module

注意点:

上記の`TextEncoding` および `Convert` モジュールは、VB.NETの標準ライブラリを模倣した簡易実装です。Access VBAでUnicode文字列やBase64エンコード/デコードを厳密に行うには、Windows API（`MultiByteToWideChar`, `WideCharToMultiByte`, `CryptBinaryToString`, `CryptStringToBinary` など）を呼び出すか、`ADODB.Stream` オブジェクトを適切に利用する必要があります。
`ENCRYPTION_KEY` は、ハードコーディングせず、より安全な方法で管理することを強く推奨します。例えば、レジストリから読み込む、あるいは別の設定ファイルに格納するなど、攻撃者が容易に特定できないように工夫が必要です。

3.2. リンクテーブルの接続情報を安全に取得・更新するVBAコード

このコードは、設定テーブル（`tblConfig`）に暗号化されたパスワードを保存していることを想定しています。

‘ — リンクテーブル管理モジュール —

Option Explicit

‘ 設定テーブル名
Private Const CONFIG_TABLE_NAME As String = “tblConfig”

‘ リンクテーブル名と設定キーのペア (例)
Private Const LINK_TABLE_NAME_EXCEL As String = “tblLinkedExcel”
Private Const CONFIG_KEY_EXCEL_PATH As String = “ExcelFilePath”
Private Const CONFIG_KEY_EXCEL_PASSWORD As String = “ExcelPasswordEncrypted”

Private Const LINK_TABLE_NAME_OTHERDB As String = “tblLinkedOtherDB”
Private Const CONFIG_KEY_OTHERDB_CONNECT As String = “OtherDBConnectStringEncrypted”

‘ — データベース接続処理 —

‘ リンクテーブルのパスワードを安全に更新する
Public Sub UpdateLinkedTablePassword(ByVal linkTableName As String, ByVal newPassword As String)
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim prp As DAO.Property
Dim configKey As String
Dim encryptedPassword As String

On Error GoTo ErrorHandler

Set db = CurrentDb

‘ 設定テーブルから、リンクテーブルに対応するパスワードのキーを取得
‘ (実際には、リンクテーブル名からキーをマッピングするロジックが必要)
If linkTableName = LINK_TABLE_NAME_EXCEL Then
configKey = CONFIG_KEY_EXCEL_PATH ‘ Excelの場合、パスも設定キーと関連付ける
‘ この例ではパスワードのみを更新するため、パスは別途取得・設定すると仮定
‘ encryptedPassword = EncryptString(newPassword) ‘ 暗号化
‘ UpdateConfigSetting configKey, encryptedPassword ‘ 設定テーブルに保存
‘ MsgBox “Excelリンクテーブルのパスワードを更新しました。”, vbInformation
‘ TODO: Excelリンクテーブルのパスワード更新処理を実装
‘ Excelリンクテーブルのパスワード更新は、DAOの標準的なプロパティでは直接扱えない場合がある
‘ COMオブジェクト (Excel Application) を介した操作が必要になる可能性がある

ElseIf linkTableName = LINK_TABLE_NAME_OTHERDB Then
configKey = CONFIG_KEY_OTHERDB_CONNECT ‘ 接続文字列全体を更新する場合
‘ encryptedPassword = EncryptString(newPassword) ‘ 暗号化
‘ UpdateConfigSetting configKey, encryptedPassword ‘ 設定テーブルに保存
‘ MsgBox “他DBリンクテーブルの接続情報を更新しました。”, vbInformation
‘ TODO: 他DBリンクテーブルの接続文字列更新処理を実装
‘ 他DBリンクテーブルの接続文字列更新は、LinkPasswordプロパティやConnectプロパティを直接更新する

Else
MsgBox “指定されたリンクテーブル ‘” & linkTableName & “‘ は、パスワード更新の対象外です。”, vbExclamation
Exit Sub
End If

‘ リンクテーブルのパスワードプロパティを直接更新する
‘ (パスワードを直接設定する場合。セキュリティリスクあり)
‘ 実際には、パスワードは設定テーブルから取得したものを復号化して利用する

‘ DAO 3.6 以降では、パスワードは “Connect” プロパティの一部として管理されることが多い
‘ または、表のプロパティとして Password プロパティが存在する (DAO 3.5 以前)

‘ TableDefオブジェクトを取得
Set tdf = db.TableDefs(linkTableName)

‘ Password プロパティが存在する場合 (DAO 3.5 以前の形式)
On Error Resume Next ‘ Password プロパティが存在しない場合のエラーを無視
Set prp = tdf.Properties(“Password”)
On Error GoTo ErrorHandler

If Not prp Is Nothing Then
‘ Password プロパティが存在する場合、直接設定
‘ ただし、これはパスワードを平文で渡すことになり、推奨されない
‘ prp.Value = newPassword ‘ ← セキュリティリスク
‘ 代わりに、設定テーブルから復号化したパスワードを設定するのが望ましい
‘ prp.Value = DecryptString(GetConfigSetting(configKey)) ‘ 設定テーブルから復号化して設定
‘ prp.Value = newPassword ‘ ← 開発・テスト時の一時的な使用に限定
MsgBox “Password プロパティによる直接更新は非推奨です。”, vbExclamation
‘ TODO: 必要であれば、Password プロパティの更新ロジックを実装
Else
‘ Password プロパティが存在しない場合 (DAO 3.6 以降、または特定のリンクテーブルタイプ)
‘ Connect プロパティの一部としてパスワードが管理されているか、
‘ あるいはパスワードは別途、設定ファイルや外部システムで管理される
‘ 例: Excel リンクテーブルの場合、パスワードは Connect プロパティでは直接管理されない

‘ 他DBリンクテーブルの場合、Connect プロパティを更新する
If linkTableName = LINK_TABLE_NAME_OTHERDB Then
Dim currentConnect As String
currentConnect = tdf.Connect

‘ Connect文字列からパスワード部分を抽出し、更新するロジックが必要
‘ 例: “Driver={…};Server=…;Database=…;Uid=…;Pwd=old_password;”
‘ Connect文字列の解析と再構築は複雑になるため、
‘ 設定テーブルに保存した暗号化された接続文字列全体を復号化して設定するのが現実的
Dim decryptedConnect As String
decryptedConnect = DecryptString(GetConfigSetting(CONFIG_KEY_OTHERDB_CONNECT))
tdf.Connect = decryptedConnect
tdf.RefreshLink ‘ リンクの更新を試みる
MsgBox “他DBリンクテーブルの接続文字列を更新しました。”, vbInformation
Else
‘ Excelリンクテーブルなどの場合、パスワードの管理方法は異なる
‘ Excelアプリケーションオブジェクトを直接操作してパスワードを設定する必要がある場合がある
MsgBox “リンクテーブル ‘” & linkTableName & “‘ のパスワード更新には、追加の処理が必要です。”, vbExclamation
End If
End If

‘ TableDefオブジェクトの変更を保存
‘ TableDefオブジェクト自体の変更は、通常、Db.TableDefs.Refresh などで反映される
‘ 個別のプロパティ変更は、RefreshLink などで適用される

‘ リンクテーブルのパスワードを直接設定するのではなく、
‘ 接続文字列（Connectプロパティ）を更新して、リンクを再確立するのが一般的。
‘ リンクテーブルのパスワードは、外部ソース（設定テーブルなど）から取得したものを、
‘ 接続時に動的に設定するのが理想。

‘ TODO: リンクテーブルのパスワードを安全に設定するより実践的な例を実装
‘ (例: 接続時にパスワードをプロンプト表示、または設定ファイルから読み込み・復号化)

MsgBox “リンクテーブル ‘” & linkTableName & “‘ の接続情報更新処理が完了しました。”, vbInformation

ExitProcedure:
Set prp = Nothing
Set tdf = Nothing
Set db = Nothing
Exit Sub

ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Number & ” – ” & Err.Description, vbCritical
Resume ExitProcedure
End Sub

‘ 設定テーブルから値を取得する関数 (例)
Private Function GetConfigSetting(ByVal key As String) As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim settingValue As String

On Error GoTo ErrorHandler

Set db = CurrentDb
Set rs = db.OpenRecordset(CONFIG_TABLE_NAME, dbOpenSnapshot)

If Not rs.EOF Then
rs.FindLast “[ConfigKey] = ‘” & Replace(key, “‘”, “””) & “‘”
If Not rs.EOF Then
settingValue = Nz(rs!ConfigValue, “”)
End If
End If

rs.Close
Set rs = Nothing
Set db = Nothing
GetConfigSetting = settingValue
Exit Function

ErrorHandler:
MsgBox “設定値の取得中にエラーが発生しました: ” & Err.Number & ” – ” & Err.Description, vbCritical
‘ エラー発生時もrsオブジェクトを解放
If Not rs Is Nothing Then
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
End If
Set db = Nothing
GetConfigSetting = “” ‘ エラー時は空文字列を返す
End Function

‘ 設定テーブルに値を保存する関数 (例)
Private Sub UpdateConfigSetting(ByVal key As String, ByVal value As String)
Dim db As DAO.Database
Dim rs As DAO.Recordset

On Error GoTo ErrorHandler

Set db = CurrentDb
Set rs = db.OpenRecordset(CONFIG_TABLE_NAME, dbOpenDynaset)

If Not rs.EOF Then
rs.FindLast “[ConfigKey] = ‘” & Replace(key, “‘”, “””) & “‘”
If Not rs.EOF Then
‘ 設定が存在する場合、値を更新
rs!ConfigValue = value
rs.Update
Else
‘ 設定が存在しない場合、新規追加
rs.AddNew
rs!ConfigKey = key
rs!ConfigValue = value
rs.Update
End If
Else
‘ テーブルが空の場合、新規追加
rs.AddNew
rs!ConfigKey = key
rs!ConfigValue = value
rs.Update
End If

rs.Close
Set rs = Nothing
Set db = Nothing
Exit Sub

ErrorHandler:
MsgBox “設定値の保存中にエラーが発生しました: ” & Err.Number & ” – ” & Err.Description, vbCritical
‘ エラー発生時もrsオブジェクトを解放
If Not rs Is Nothing Then
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
End If
Set db = Nothing
End Sub

‘ — リンクテーブルへの接続を試みる関数 —
Public Function ConnectToLinkedTable(ByVal linkTableName As String) As Boolean
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim connectString As String
Dim password As String
Dim configKey As String

On Error GoTo ErrorHandler

Set db = CurrentDb

‘ TableDef オブジェクトを取得
Set tdf = db.TableDefs(linkTableName)

‘ リンクテーブルのタイプによって、パスワードの取得方法が異なる
‘ 例: Excel リンクテーブルの場合
If InStr(tdf.Connect, “Excel”) > 0 Then
‘ Excel ファイルへのパスを取得
Dim filePath As String
filePath = GetConfigSetting(CONFIG_KEY_EXCEL_PATH) ‘ 設定テーブルからパスを取得

‘ Excel ファイルのパスワードを取得 (暗号化されていると仮定)
password = DecryptString(GetConfigSetting(CONFIG_KEY_EXCEL_PASSWORD)) ‘ 設定テーブルから復号化

‘ Excel リンクテーブルの Connect プロパティはパスワードを含まない場合が多い
‘ Excel リンクテーブルのパスワードは、RefreshLink メソッドで直接指定する
‘ ただし、DAO 3.6 以降では、Password プロパティで管理されることもある
‘ ここでは、RefreshLink を使用する例を示す

‘ TableDef.Connect プロパティを再設定（パスワード部分がない場合）
tdf.Connect = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” & filePath & “;Extended Properties=””Excel 8.0;HDR=YES;IMEX=1;Accessory Type=Microsoft.Access.OLEDB.12.0;””;” ‘ 例

‘ リンクを更新し、パスワードを指定
‘ If Len(password) > 0 Then
‘ tdf.Password = password ‘ Password プロパティがない場合、RefreshLink で指定
‘ End If
‘ tdf.RefreshLink ‘ ← このメソッドでパスワードを渡すのは非推奨/古い

‘ より安全な方法: ADODB.Connection を使用して、パスワード付きで接続し、
‘ その接続情報を TableDef.Connect に設定する
‘ または、Excel Application オブジェクトを直接操作する

MsgBox “Excel リンクテーブルの接続処理は、追加のロジックが必要です。”, vbExclamation
ConnectToLinkedTable = False
GoTo ExitProcedure

‘ 例: 他の Access DB へのリンクテーブルの場合
ElseIf InStr(tdf.Connect, “Microsoft.ACE.OLEDB”) > 0 Or InStr(tdf.Connect, “Microsoft.Jet.OLEDB”) > 0 Then
‘ 設定テーブルから暗号化された接続文字列を取得
connectString = DecryptString(GetConfigSetting(CONFIG_KEY_OTHERDB_CONNECT))

‘ Connect プロパティを更新
tdf.Connect = connectString

‘ リンクを更新
tdf.RefreshLink

‘ 接続が成功したか確認 (例: レコードセットを開いてみる)
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset(linkTableName, dbOpenSnapshot)
If rs.RecordCount > -1 Then ‘ レコードセットが開け、レコード数が取得できた場合
rs.Close
Set rs = Nothing
ConnectToLinkedTable = True
MsgBox “リンクテーブル ‘” & linkTableName & “‘ への接続に成功しました。”, vbInformation
Else
rs.Close
Set rs = Nothing
ConnectToLinkedTable = False
MsgBox “リンクテーブル ‘” & linkTableName & “‘ への接続に失敗しました。”, vbExclamation
End If
Set rs = Nothing

Else
‘ その他のリンクテーブルタイプ
MsgBox “リンクテーブル ‘” & linkTableName & “‘ の接続タイプは未対応です。”, vbExclamation
ConnectToLinkedTable = False
End If

ExitProcedure:
Set tdf = Nothing
Set db = Nothing
Exit Function

ErrorHandler:
MsgBox “リンクテーブル ‘” & linkTableName & “‘ への接続中にエラーが発生しました: ” & Err.Number & ” – ” & Err.Description, vbCritical
ConnectToLinkedTable = False
Resume ExitProcedure
End Function

コード解説と極限の知見:

`EncryptString` / `DecryptString`: XOR暗号化は、あくまで「平文で保存しない」ための初歩的な手段です。攻撃者が当該VBAコードにアクセスできれば、容易に復号化できてしまいます。真に安全なパスワード管理は、Windows DPAPI (Data Protection API) や、外部のKMS (Key Management Service) と連携するなど、より高度な手法を検討すべきです。DPAPIは、OSレベルの機能を利用するため、ユーザーアカウントやマシンに紐づいた暗号化が可能で、比較的安全に秘密情報を管理できます。VBAからDPAPIを呼び出すには、WinAPIの知識が不可欠です。
`GetConfigSetting` / `UpdateConfigSetting`: 設定を格納するテーブル（`tblConfig`）は、システム全体の「脳」とも言える部分です。ここへのアクセス権限は厳格に管理し、万が一漏洩しても、パスワード自体は暗号化されている状態を維持することが重要です。
`UpdateLinkedTablePassword`:
`TableDef.Password` プロパティ: DAO 3.5 以前では、`TableDef` オブジェクトに `Password` プロパティが存在し、直接パスワードを設定できました。しかし、これはパスワードを平文で渡すことになり、極めて危険です。現代のAccess VBA開発では、このプロパティに直接依存する実装は避けるべきです。
`TableDef.Connect` プロパティ: DAO 3.6 以降、特にODBC接続などでは、接続文字列全体が `Connect` プロパティに格納されることが多くなりました。パスワードもこの文字列の一部として含まれる場合があります。この場合、`Connect` プロパティを直接操作して、パスワード部分を更新することになります。
Excel リンクテーブルの特殊性: Excel ファイルへのリンクは、パスワードの管理が特殊です。`TableDef` の `Password` プロパティや `Connect` プロパティでは直接扱えないことが多く、ExcelアプリケーションオブジェクトをCOM経由で呼び出し、`Workbooks.Open` メソッドなどにパスワードを指定して開く必要があります。その後、`TableDef.RefreshLink` を利用してリンクを更新する、あるいは `ADODB.Connection` を利用してExcelファイルに接続し、その接続文字列を `TableDef.Connect` に設定する、といったアプローチが考えられます。
`RefreshLink` メソッド: リンクテーブルの接続情報を更新する際に使用されます。パスワードや接続文字列が変更された場合に、リンクを再確立するために呼び出します。
オブジェクトの明示的解放: コードの末尾で `Set obj = Nothing` を実行し、不要になったオブジェクトを明示的に解放しています。これは、メモリリークを防ぎ、パフォーマンスを最適化するための鉄則です。特に、`DAO.Database`, `DAO.TableDef`, `DAO.Recordset` といったオブジェクトは、解放を怠るとリソースを大量に消費し、アプリケーションの応答性を低下させる原因となります。

4. Windows API を用いた高度なセキュリティ対策

より高度なセキュリティを求める場合、Windows API を活用することを検討します。

4.1. Windows DPAPI を利用したパスワードの暗号化/復号化

DPAPIは、Windows OSが提供する暗号化APIで、ユーザーまたはコンピュータの資格情報に基づいてデータを暗号化・復号化します。これにより、特定のユーザーまたはマシンでのみデータが利用可能になります。

‘ — DPAPI を利用した暗号化/復号化モジュール (Declare文とAPI呼び出し) —

‘ DPAPI関連のAPI宣言
If VBA7 Then ‘ 64bit VBA
Private Declare PtrSafe Function DpApiEncrypt Lib “crypt32.dll” Alias “CryptProtectData” ( _
ByVal pDataIn As LongPtr, _
ByVal szDataDescr As LongPtr, _
ByVal pOptionalEntropy As LongPtr, _
ByVal pReserved As LongPtr, _
ByRef promptstruct As Long, _
ByVal dwFlags As Long, _
ByRef ppbDataOut As LongPtr, _
ByRef pcbDataOut As LongPtr _
) As Long

Private Declare PtrSafe Function DpApiDecrypt Lib “crypt32.dll” Alias “CryptUnprotectData” ( _
ByVal pDataIn As LongPtr, _
ByVal szDataDescr As LongPtr, _
ByVal pOptionalEntropy As LongPtr, _
ByVal pReserved As LongPtr, _
ByRef promptstruct As Long, _
ByVal dwFlags As Long, _
ByRef ppbDataOut As LongPtr, _
ByRef pcbDataOut As LongPtr _
) As Long

Private Declare PtrSafe Sub LocalFree Lib “kernel32” ( _
ByVal hMem As LongPtr _
) As LongPtr

‘ Flags for CryptProtectData/CryptUnprotectData
Private Const CRYPTPROTECT_UI_FORBIDDEN As Long = &H1
Private Const CRYPTPROTECT_LOCAL_MACHINE As Long = &H4
Private Const CRYPTPROTECT_CRED_SYNC As Long = &H8
Private Const CRYPTPROTECT_USE_SYSTEM_PREFE `Long = &H10

Else ‘ 32bit VBA
Private Declare Function DpApiEncrypt Lib “crypt32.dll” Alias “CryptProtectData” ( _
ByVal pDataIn As Long, _
ByVal szDataDescr As Long, _
ByVal pOptionalEntropy As Long, _
ByVal pReserved As Long, _
ByRef promptstruct As Long, _
ByVal dwFlags As Long, _
ByRef ppbDataOut As Long, _
ByRef pcbDataOut As Long _
) As Long

Private Declare Function DpApiDecrypt Lib “crypt32.dll” Alias “CryptUnprotectData” ( _
ByVal pDataIn As Long, _
ByVal szDataDescr As Long, _
ByVal pOptionalEntropy As Long, _
ByVal pReserved As Long, _
ByRef promptstruct As Long, _
ByVal dwFlags As Long, _
ByRef ppbDataOut As Long, _
ByRef pcbDataOut As Long _
) As Long

Private Declare Sub LocalFree Lib “kernel32” ( _
ByVal hMem As Long _
) As Long

‘ DPAPIで文字列を暗号化する
Public Function EncryptStringWithDPAPI(ByVal plainText As String, Optional ByVal useMachineKey As Boolean = False) As String
Dim dataIn() As Byte
Dim dataOutPtr As LongPtr
Dim dataOutSize As LongPtr
Dim buffer() As Byte
Dim flags As Long
Dim retVal As Long
Dim promptStruct As Long ‘ ダミー

On Error GoTo ErrorHandler

‘ 文字列をUTF-16LEバイト配列に変換
dataIn = plainText & vbNullChar ‘ Null終端文字を追加

‘ フラグの設定
flags = CRYPTPROTECT_UI_FORBIDDEN ‘ UIを表示しない
If useMachineKey Then
flags = flags Or CRYPTPROTECT_LOCAL_MACHINE ‘ マシンキーを使用
End If

‘ CryptProtectData API を呼び出し
retVal = DpApiEncrypt(VarPtr(dataIn(0)), 0&, 0&, 0&, promptStruct, flags, dataOutPtr, dataOutSize)

If retVal = 0 Then
Err.Raise vbObjectError + 1000, “EncryptStringWithDPAPI”, “DPAPI暗号化に失敗しました。 (Error Code: ” & GetLastError() & “)”
End If

‘ 暗号化されたデータをバイト配列にコピー
If dataOutSize > 0 Then
ReDim buffer(0 To dataOutSize – 1)
CopyMemory ByRef buffer(0), ByVal dataOutPtr, dataOutSize
End If

‘ ローカルメモリを解放
LocalFree dataOutPtr

‘ バイト配列をBase64文字列にエンコードして返す
EncryptStringWithDPAPI = Convert.ToBase64String(buffer)

ExitProcedure:
Exit Function

ErrorHandler:
Dim errMsg As String
errMsg = “DPAPI暗号化エラー: ” & Err.Description
If Err.Number = vbObjectError + 1000 Then
errMsg = errMsg & ” (API Error Code: ” & GetLastError() & “)”
End If
MsgBox errMsg, vbCritical
EncryptStringWithDPAPI = “” ‘ エラー時は空文字列
Resume ExitProcedure
End Function

‘ DPAPIで文字列を復号化する
Public Function DecryptStringWithDPAPI(ByVal cipherText As String, Optional ByVal useMachineKey As Boolean = False) As String
Dim buffer() As Byte
Dim dataInPtr As LongPtr
Dim dataOutSize As LongPtr
Dim dataOutPtr As LongPtr
Dim decryptedBuffer() As Byte
Dim flags As Long
Dim retVal As Long
Dim promptStruct As Long ‘ ダミー

On Error GoTo ErrorHandler

‘ Base64文字列をバイト配列にデコード
buffer = Convert.FromBase64String(cipherText)

‘ バイト配列をメモリにコピーし、ポインタを取得
If UBound(buffer) >= 0 Then
ReDim decryptedBuffer(0 To UBound(buffer) + 1) ‘ Null終端文字用に1バイト追加
CopyMemory ByVal VarPtr(decryptedBuffer(0)), ByRef buffer(0), UBound(buffer) + 1
dataInPtr = VarPtr(decryptedBuffer(0))
Else
DecryptStringWithDPAPI = “” ‘ 空の暗号文の場合
Exit Function
End If

‘ フラグの設定
flags = CRYPTPROTECT_UI_FORBIDDEN ‘ UIを表示しない
If useMachineKey Then
flags = flags Or CRYPTPROTECT_LOCAL_MACHINE ‘ マシンキーを使用
End If

‘ CryptUnprotectData API を呼び出し
retVal = DpApiDecrypt(dataInPtr, 0&, 0&, 0&, promptStruct, flags, dataOutPtr, dataOutSize)

If retVal = 0 Then
Err.Raise vbObjectError + 1001, “DecryptStringWithDPAPI”, “DPAPI復号化に失敗しました。 (Error Code: ” & GetLastError() & “)”
End If

‘ 復号化されたデータをバイト配列にコピー
If dataOutSize > 0 Then
ReDim buffer(0 To dataOutSize – 2) ‘ Null終端文字を除外
CopyMemory ByRef buffer(0), ByVal dataOutPtr, dataOutSize – 1 ‘ Null終端文字はコピーしない
End If

‘ ローカルメモリを解放
LocalFree dataOutPtr

‘ バイト配列をUTF-16LE文字列に変換
DecryptStringWithDPAPI = buffer

ExitProcedure:
Exit Function

ErrorHandler:
Dim errMsg As String
errMsg = “DPAPI復号化エラー: ” & Err.Description
If Err.Number = vbObjectError + 1001 Then
errMsg = errMsg & ” (API Error Code: ” & GetLastError() & “)”
End If
MsgBox errMsg, vbCritical
DecryptStringWithDPAPI = “” ‘ エラー時は空文字列
Resume ExitProcedure
End Function

‘ GetLastError() API の宣言
If VBA7 Then
Private Declare PtrSafe Function GetLastError Lib “kernel32” () As Long
Else
Private Declare Function GetLastError Lib “kernel32” () As Long
End If

‘ CopyMemory API の宣言
If VBA7 Then
Private Declare PtrSafe Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” ( _
Destination As Any, _
Source As Any, _
ByVal Length As LongPtr _
)
Else
Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” ( _
Destination As Any, _
Source As Any, _
ByVal Length As Long _
)
End If

DPAPI活用の知見:

`CRYPTPROTECT_LOCAL_MACHINE` フラグ: このフラグを指定すると、特定のユーザーではなく、マシン全体で暗号化・復号化が行われます。これにより、システムサービスや、異なるユーザーアカウントで実行されるプロセス間でも、秘密情報を共有できるようになります。ただし、マシン全体が侵害された場合は、秘密情報も漏洩するリスクがあります。
`CRYPTPROTECT_UI_FORBIDDEN` フラグ: UI（パスワード入力ダイアログなど）を表示せずに、プログラムから自動的に暗号化・復号化を行います。サービスやバックグラウンド処理では必須となります。
Null終端文字: DPAPIは、C言語スタイルのNull終端文字列を期待します。VBAで文字列をバイト配列に変換する際は、`plainText & vbNullChar` のように、明示的にNull文字を追加する必要があります。復号化後も、Null終端文字を除外して文字列に変換します。
メモリ管理: `CryptProtectData` および `CryptUnprotectData` API は、出力バッファをシステムメモリに割り当てます。このメモリは、`LocalFree` API を使用して必ず解放する必要があります。解放を怠ると、深刻なメモリリークを引き起こします。
エラーハンドリング: API呼び出しは、失敗する可能性があります。`GetLastError` 関数を呼び出すことで、失敗時の詳細なエラーコードを取得でき、デバッグや問題解決に役立ちます。

4.2. レガシー環境でのAPI呼び出しと互換性

32bit版Accessと64bit版Accessでは、API宣言の記述が異なります。`#If VBA7 Then … #Else … #End If` を使用することで、実行環境に応じた適切なAPI宣言を記述し、互換性を保つことができます。これは、長年運用されているレガシーシステムを保守する上で、極めて重要なテクニックです。

5. パフォーマンスとメモリ最適化：オブジェクトのライフサイクル

前述の通り、オブジェクトの明示的な解放は、パフォーマンスとメモリ使用量に直結します。特に、データベース接続やレコードセットの操作は、リソースを大量に消費する可能性があります。

DAO vs ADO: Access VBAでは、DAO (Data Access Objects) と ADO (ActiveX Data Objects) の両方が利用可能です。一般的に、Accessデータベース (.mdb, .accdb) を直接操作する場合はDAOが推奨されます。ADOは、ODBC接続など、より広範なデータソースに対応できますが、Accessオブジェクトとの相性やパフォーマンス面でDAOに劣る場合があります。
Recordsetの型: DAOの `OpenRecordset` メソッドには、`dbOpenForwardOnly`, `dbOpenKeyset`, `dbOpenDynaset`, `dbOpenSnapshot` といったオプションがあります。
`dbOpenForwardOnly`: 最も軽量で高速です。レコードセットを前方移動のみ可能とし、更新もできません。単にデータを読み込むだけであれば、これを指定するのが最適です。
`dbOpenSnapshot`: レコードセットのコピーを作成します。更新はできませんが、元のテーブルが変更されても影響を受けません。
`dbOpenDynaset`: レコードセットを更新できます。元のテーブルの変更も反映されます。
`dbOpenKeyset`: `dbOpenDynaset` に似ていますが、レコードセットに追加されたレコードは反映されません。

「必要最低限の機能」を選択することが、パフォーマンス最適化の鍵です。

6. システム間連携とレガシーアーキテクチャの保守

リンクテーブルは、しばしば他のシステムや、過去に開発されたレガシーシステムとの連携の要となります。

接続文字列の管理: リンクテーブルの接続文字列は、システム連携における「インターフェース仕様」のようなものです。この文字列が変更されると、連携先のシステムも影響を受けます。そのため、接続文字列は、システム全体で一元管理されるべきであり、その管理方法（設定テーブル、レジストリ、外部ファイルなど）は、堅牢かつ保守しやすい設計にする必要があります。
バージョン管理: レガシーシステムを保守する上で、Accessのバージョン（Access 2003, 2007, 2010, 2013, 2016, 2019, Microsoft 365）や、使用されているデータベースエンジン（Jet, ACE）の互換性を考慮する必要があります。API呼び出しや特定のVBA機能が、バージョンによって挙動を変えることがあります。
ドキュメント化: リンクテーブルの定義、接続情報、パスワード管理方法などは、詳細かつ正確にドキュメント化しておくことが、将来の保守担当者にとっての生命線となります。

まとめ：未来への責任

リンクテーブルのパスワード保存という、一見単純な問題に深く切り込むことで、我々はセキュリティ、パフォーマンス、そして保守性という、ソフトウェア開発における根源的な課題に直面します。

我々、シニアエンジニアやシステム管理者の責務は、単に「要件を満たすコードを書く」ことだけではありません。それは、未来の自分自身、そしてシステムを利用するすべての人々に対する責任です。今回解説した知見を胸に、より安全で、より堅牢なシステムを構築し、レガシーシステムを愛を持って継承していくことを期待します。

この深淵なるAccess VBAの世界で、諸君の健闘を祈る。