VBAレジストリ操作の基礎と応用

Tech

本記事はGeminiの出力をプロンプト工学で整理した業務ドラフト（未検証）です。

VBAレジストリ操作の基礎と応用

背景/要件

Microsoft Officeアプリケーション、特にExcelやAccessでは、VBA（Visual Basic for Applications）を用いて業務自動化やカスタム機能の実装が広く行われています。VBAで開発されたアプリケーションが、ユーザーごとの設定、前回終了時の状態、特定のファイルパス、またはライセンス情報といったデータを永続的に保存する必要が生じることがあります。このような場合、通常のファイル保存やシートへの書き込みも可能ですが、Windowsレジストリを利用することで、アプリケーションの独立した設定管理やシステムレベルでの情報共有が可能になります。 、VBAでWindowsレジストリを操作するための基礎から応用までを解説します。VBAは直接的なレジストリ操作関数を持たないため、Windows API（Win32 API）を Declare PtrSafe ステートメントを用いて宣言し、呼び出すことで実現します。外部ライブラリは一切使用せず、標準機能のみで完結させることを要件とします。ExcelおよびAccessを対象とし、実務レベルで再現可能なコード例を提示し、性能チューニングの観点も加味します。

設計

VBAからレジストリを操作するためには、Advapi32.dll に含まれる以下の主要なWin32 API関数を使用します。

  • RegOpenKeyEx: 指定されたレジストリキーを開き、そのキーのハンドルを取得します。

  • RegCloseKey: 開いているレジストリキーのハンドルを閉じます。

  • RegQueryValueEx: 開いているレジストリキーに関連付けられた指定された値の名前の型とデータを取得します。

  • RegSetValueEx: 指定されたレジストリキーの下に、指定された名前と型の値を設定します。

  • RegDeleteValue: 指定されたレジストリキーから指定された値を削除します。

  • RegDeleteKey: 指定されたレジストリキーを削除します。

これらのAPI関数は、32ビット版VBAと64ビット版VBAの両方に対応するため、PtrSafe キーワードを付与して宣言する必要があります。レジストリ操作の際には、キーのオープン、値の読み書き、そしてキーのクローズという一連の流れが基本となります。

レジストリ操作フロー

レジストリキーの操作は、以下の手順で行われます。

flowchart TD
    A["開始"] --> B{"レジストリキーの存在確認"};
    B -- 存在しない場合 --> C["キー作成 (任意)"];
    B -- 存在する / 作成後 --> D{"RegOpenKeyEx | キーを開く"};
    D -- 成功 --> E{"操作選択"};
    E -- 値を書き込む --> F["RegSetValueEx | 値の設定"];
    E -- 値を読み込む --> G["RegQueryValueEx | 値の取得"];
    F --> H["RegCloseKey | キーを閉じる"];
    G --> H;
    H --> I["終了"];
    D -- 失敗 --> J["エラー処理 | 例: キーが見つからない"];
    J --> I;

各API関数は操作の成否を示す戻り値を返します。ERROR_SUCCESS (0) 以外が返された場合はエラーとみなし、適切なエラーハンドリングを実装することが重要です。特に文字列型の値を扱う場合は、VBAのUnicode文字列とWin32 APIのワイド文字列（LPWSTR）の変換、およびバッファサイズの管理に注意が必要です。

実装

まず、共通して使用するAPI宣言と定数を標準モジュールに記述します。ここでは modRegistry というモジュール名を想定します。

共通API宣言モジュール (modRegistry)

' modRegistry モジュール

Option Explicit

' --- レジストリ関連定数 ---
' HKEY 定義
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006

' アクセス権定義
Public Const KEY_QUERY_VALUE = &H1          ' 値の読み取り
Public Const KEY_SET_VALUE = &H2            ' 値の書き込み
Public Const KEY_CREATE_SUB_KEY = &H4       ' サブキーの作成
Public Const KEY_ENUMERATE_SUB_KEYS = &H8   ' サブキーの列挙
Public Const KEY_NOTIFY = &H10              ' 変更通知
Public Const KEY_CREATE_LINK = &H20         ' シンボリックリンクの作成
Public Const KEY_READ = ((KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (&HFFFFFFFF))
Public Const KEY_WRITE = ((KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (&HFFFFFFFF))
Public Const KEY_ALL_ACCESS = ((KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or _
                               KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (&HFFFFFFFF))

' レジストリ値の種類定義
Public Const REG_SZ = 1         ' 文字列
Public Const REG_DWORD = 4      ' 32ビット数値 (Long)
Public Const REG_BINARY = 3     ' バイナリデータ

' API戻り値定数
Public Const ERROR_SUCCESS = 0          ' 成功
Public Const ERROR_FILE_NOT_FOUND = 2   ' キーまたは値が見つからない
Public Const ERROR_ACCESS_DENIED = 5    ' アクセス拒否

' --- Win32 API 宣言 ---
' RegOpenKeyEx: 指定されたキーを開く
' hKey: ルートキーのハンドル (例: HKEY_CURRENT_USER)
' lpSubKey: 開くサブキーのパス
' ulOptions: 予約済み (0)
' samDesired: アクセス権 (例: KEY_READ)
' phkResult: 開いたキーのハンドルが格納される
#If VBA7 Then ' 64ビット対応

    Private Declare PtrSafe Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExW" ( _
        ByVal hKey As LongPtr, _
        ByVal lpSubKey As String, _
        ByVal ulOptions As Long, _
        ByVal samDesired As Long, _
        phkResult As LongPtr _
    ) As Long
    Private Declare PtrSafe Function RegCloseKey Lib "advapi32.dll" ( _
        ByVal hKey As LongPtr _
    ) As Long
    Private Declare PtrSafe Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExW" ( _
        ByVal hKey As LongPtr, _
        ByVal lpValueName As String, _
        ByVal Reserved As Long, _
        ByVal dwType As Long, _
        ByVal lpData As LongPtr, _
        ByVal cbData As Long _
    ) As Long
    Private Declare PtrSafe Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExW" ( _
        ByVal hKey As LongPtr, _
        ByVal lpValueName As String, _
        ByVal lpReserved As Long, _
        lpType As Long, _
        lpData As Any, _
        lpcbData As Long _
    ) As Long
#Else ' 32ビット環境用

    Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExW" ( _
        ByVal hKey As Long, _
        ByVal lpSubKey As String, _
        ByVal ulOptions As Long, _
        ByVal samDesired As Long, _
        phkResult As Long _
    ) As Long
    Private Declare Function RegCloseKey Lib "advapi32.dll" ( _
        ByVal hKey As Long _
    ) As Long
    Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExW" ( _
        ByVal hKey As Long, _
        ByVal lpValueName As String, _
        ByVal Reserved As Long, _
        ByVal dwType As Long, _
        ByVal lpData As Long, _
        ByVal cbData As Long _
    ) As Long
    Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExW" ( _
        ByVal hKey As Long, _
        ByVal lpValueName As String, _
        ByVal lpReserved As Long, _
        lpType As Long, _
        lpData As Any, _
        lpcbData As Long _
    ) As Long
#End If

' --- ヘルパー関数 ---

' レジストリから文字列値を読み込む
' hRootKey: ルートキー (HKEY_CURRENT_USERなど)
' sSubKey: サブキーパス (例: "Software\MyCompany\MyApp")
' sValueName: 値の名前
' sDefault: 値が見つからなかった場合のデフォルト値
' 戻り値: 読み込んだ文字列。エラー時は sDefault を返す
Public Function GetRegistryString(ByVal hRootKey As LongPtr, ByVal sSubKey As String, _
                                  ByVal sValueName As String, Optional ByVal sDefault As String = "") As String
    #If VBA7 Then

        Dim hKey As LongPtr
    #Else

        Dim hKey As Long
    #End If

    Dim lRet As Long
    Dim lType As Long
    Dim lDataLen As Long
    Dim sData As String

    ' キーを開く
    lRet = RegOpenKeyEx(hRootKey, sSubKey, 0, KEY_READ, hKey)
    If lRet <> ERROR_SUCCESS Then
        GetRegistryString = sDefault
        Exit Function
    End If

    ' データ長を取得 (REG_SZの場合)
    lRet = RegQueryValueEx(hKey, sValueName, 0, lType, ByVal 0&, lDataLen)
    If lRet <> ERROR_SUCCESS Then
        GoTo CleanUp
    End If

    ' 値の型がREG_SZであることを確認
    If lType <> REG_SZ Then
        GoTo CleanUp
    End If

    ' データ読み込み用のバッファを準備
    sData = String$(lDataLen / 2 - 1, Chr$(0)) ' Unicodeなのでバイト長を2で割る。NULL終端分を-1
    lRet = RegQueryValueEx(hKey, sValueName, 0, lType, ByVal StrPtr(sData), lDataLen)
    If lRet = ERROR_SUCCESS Then
        ' NULL終端を除去
        GetRegistryString = Left$(sData, InStr(sData, Chr$(0)) - 1)
    Else
        GetRegistryString = sDefault
    End If

CleanUp:
    If hKey <> 0 Then Call RegCloseKey(hKey)
End Function

' レジストリに文字列値を書き込む
' hRootKey: ルートキー (HKEY_CURRENT_USERなど)
' sSubKey: サブキーパス
' sValueName: 値の名前
' sValue: 書き込む文字列
' 戻り値: True (成功), False (失敗)
Public Function SetRegistryString(ByVal hRootKey As LongPtr, ByVal sSubKey As String, _
                                  ByVal sValueName As String, ByVal sValue As String) As Boolean
    #If VBA7 Then

        Dim hKey As LongPtr
    #Else

        Dim hKey As Long
    #End If

    Dim lRet As Long
    Dim lDataLen As Long

    ' キーを開く (書き込み権限で)。キーが存在しない場合は自動作成されないため、事前にEnsureRegistryKey関数等で作成しておくのが安全。
    ' ここでは既存キーへの書き込みを想定
    lRet = RegOpenKeyEx(hRootKey, sSubKey, 0, KEY_WRITE, hKey)
    If lRet <> ERROR_SUCCESS Then
        SetRegistryString = False
        Exit Function
    End If

    ' データ長を計算 (Unicode文字列 + NULL終端文字)
    lDataLen = (Len(sValue) + 1) * 2

    ' 値を書き込む
    lRet = RegSetValueEx(hKey, sValueName, 0, REG_SZ, ByVal StrPtr(sValue), lDataLen)
    SetRegistryString = (lRet = ERROR_SUCCESS)

    If hKey <> 0 Then Call RegCloseKey(hKey)
End Function

' レジストリからDWORD値を読み込む
' hRootKey, sSubKey, sValueName は文字列と同様
' lDefault: 値が見つからなかった場合のデフォルト値
Public Function GetRegistryDWORD(ByVal hRootKey As LongPtr, ByVal sSubKey As String, _
                                 ByVal sValueName As String, Optional ByVal lDefault As Long = 0) As Long
    #If VBA7 Then

        Dim hKey As LongPtr
    #Else

        Dim hKey As Long
    #End If

    Dim lRet As Long
    Dim lType As Long
    Dim lData As Long
    Dim lDataLen As Long

    lRet = RegOpenKeyEx(hRootKey, sSubKey, 0, KEY_READ, hKey)
    If lRet <> ERROR_SUCCESS Then
        GetRegistryDWORD = lDefault
        Exit Function
    End If

    lDataLen = 4 ' DWORDは4バイト
    lRet = RegQueryValueEx(hKey, sValueName, 0, lType, lData, lDataLen) ' lDataに直接値を格納
    If lRet = ERROR_SUCCESS And lType = REG_DWORD Then
        GetRegistryDWORD = lData
    Else
        GetRegistryDWORD = lDefault
    End If

    If hKey <> 0 Then Call RegCloseKey(hKey)
End Function

' レジストリにDWORD値を書き込む
Public Function SetRegistryDWORD(ByVal hRootKey As LongPtr, ByVal sSubKey As String, _
                                 ByVal sValueName As String, ByVal lValue As Long) As Boolean
    #If VBA7 Then

        Dim hKey As LongPtr
    #Else

        Dim hKey As Long
    #End If

    Dim lRet As Long

    lRet = RegOpenKeyEx(hRootKey, sSubKey, 0, KEY_WRITE, hKey)
    If lRet <> ERROR_SUCCESS Then
        SetRegistryDWORD = False
        Exit Function
    End If

    ' lValueのアドレスをByValで渡す
    lRet = RegSetValueEx(hKey, sValueName, 0, REG_DWORD, ByVal VarPtr(lValue), 4)
    SetRegistryDWORD = (lRet = ERROR_SUCCESS)

    If hKey <> 0 Then Call RegCloseKey(hKey)
End Function

' レジストリキーを確実に作成する関数（存在しない場合）
#If VBA7 Then

    Private Declare PtrSafe Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExW" ( _
        ByVal hKey As LongPtr, _
        ByVal lpSubKey As String, _
        ByVal Reserved As Long, _
        ByVal lpClass As String, _
        ByVal dwOptions As Long, _
        ByVal samDesired As Long, _
        lpSecurityAttributes As Any, _
        phkResult As LongPtr, _
        lpdwDisposition As Long _
    ) As Long
#Else

    Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExW" ( _
        ByVal hKey As Long, _
        ByVal lpSubKey As String, _
        ByVal Reserved As Long, _
        ByVal lpClass As String, _
        ByVal dwOptions As Long, _
        ByVal samDesired As Long, _
        lpSecurityAttributes As Any, _
        phkResult As Long, _
        lpdwDisposition As Long _
    ) As Long
#End If

Public Function EnsureRegistryKey(ByVal hRootKey As LongPtr, ByVal sSubKey As String) As Boolean
    #If VBA7 Then

        Dim hKey As LongPtr
    #Else

        Dim hKey As Long
    #End If

    Dim lRet As Long
    Dim lDisposition As Long ' REG_CREATED_NEW_KEY (1) or REG_OPENED_EXISTING_KEY (2)

    lRet = RegCreateKeyEx(hRootKey, sSubKey, 0, vbNullString, 0, KEY_ALL_ACCESS, _
                          ByVal 0&, hKey, lDisposition)
    If lRet = ERROR_SUCCESS Then
        EnsureRegistryKey = True
    Else
        EnsureRegistryKey = False
    End If
    If hKey <> 0 Then Call RegCloseKey(hKey)
End Function

[一次情報]: RegOpenKeyEx function (winreg.h), RegQueryValueEx function (winreg.h), RegSetValueEx function (winreg.h), RegCreateKeyEx function (winreg.h) (Microsoft, 2023年8月2日更新).

コード例1: 基本的な設定の保存と読み込み（Excel/Access共通）

この例では、アプリケーションのバージョンと、ユーザーが最後に開いたファイルパスを HKEY_CURRENT_USER に保存し、次回起動時に読み込むシナリオを想定します。

' 標準モジュール（例: modApplicationSettings）に記述

Option Explicit

Private Const APP_REG_PATH As String = "Software\MyCompany\MyVBAApp" ' アプリケーション固有のレジストリパス

' アプリケーション設定をレジストリに保存する例
Public Sub SaveApplicationSettings()
    If Not EnsureRegistryKey(HKEY_CURRENT_USER, APP_REG_PATH) Then
        MsgBox "レジストリキーの作成またはオープンに失敗しました。", vbCritical
        Exit Sub
    End If

    ' アプリケーションバージョンをDWORDで保存
    Dim appVersion As Long
    appVersion = 101 ' 例: バージョン 1.01

    If SetRegistryDWORD(HKEY_CURRENT_USER, APP_REG_PATH, "AppVersion", appVersion) Then
        Debug.Print "AppVersionをレジストリに保存しました: " & appVersion
    Else
        Debug.Print "AppVersionの保存に失敗しました。"
    End If

    ' 最後に開いたファイルパスを文字列で保存
    Dim lastFilePath As String
    lastFilePath = Application.ActiveWorkbook.FullName ' Excelの場合
    ' lastFilePath = CurrentProject.FullName ' Accessの場合 (要調整)

    If SetRegistryString(HKEY_CURRENT_USER, APP_REG_PATH, "LastFilePath", lastFilePath) Then
        Debug.Print "LastFilePathをレジストリに保存しました: " & lastFilePath
    Else
        Debug.Print "LastFilePathの保存に失敗しました。"
    End If

    MsgBox "アプリケーション設定をレジストリに保存しました。", vbInformation
End Sub

' アプリケーション設定をレジストリから読み込む例
Public Sub LoadApplicationSettings()
    Dim storedAppVersion As Long
    Dim storedLastFilePath As String

    ' AppVersionをDWORDで読み込み（デフォルト値: 0）
    storedAppVersion = GetRegistryDWORD(HKEY_CURRENT_USER, APP_REG_PATH, "AppVersion", 0)
    Debug.Print "レジストリから読み込んだAppVersion: " & storedAppVersion

    ' LastFilePathを文字列で読み込み（デフォルト値: ""）
    storedLastFilePath = GetRegistryString(HKEY_CURRENT_USER, APP_REG_PATH, "LastFilePath", "")
    Debug.Print "レジストリから読み込んだLastFilePath: " & storedLastFilePath

    If storedLastFilePath <> "" Then
        ' Excelの場合:
        ' MsgBox "前回開いたファイル: " & storedLastFilePath & " を開きます。", vbInformation
        ' Workbooks.Open storedLastFilePath

        ' Accessの場合:
        ' MsgBox "前回開いたファイルパス: " & storedLastFilePath, vbInformation
    Else
        Debug.Print "LastFilePathはレジストリに見つかりませんでした。"
    End If

    MsgBox "アプリケーション設定をレジストリから読み込みました。", vbInformation
End Sub

' 実行手順:
' 1. 上記コードをExcelまたはAccessの標準モジュールにコピーします。
'    (modRegistryモジュールも事前にインポート済みであること)
' 2. Excelの場合、ThisWorkbookモジュールに以下を追加して、ブックが開かれたときに設定を読み込むようにできます。
'    Private Sub Workbook_Open()
'        Call LoadApplicationSettings
'    End Sub
' 3. SaveApplicationSettingsを実行して設定を保存します。
' 4. LoadApplicationSettingsを実行して設定を読み込みます。
' 5. レジストリエディタ(regedit.exe)で HKEY_CURRENT_USER\Software\MyCompany\MyVBAApp を確認し、
'    "AppVersion" と "LastFilePath" の値が正しく書き込まれているか検証します。
'
' ロールバック方法:
' 1. レジストリエディタ(regedit.exe)を開きます。
' 2. HKEY_CURRENT_USER\Software\MyCompany\MyVBAApp のパスに移動します。
' 3. MyVBAApp キーを右クリックし、「削除」を選択します。
' 4. 「はい」をクリックして削除を確定します。これにより、作成されたレジストリキーとその値が削除されます。
'    (または、SaveApplicationSettingsで書き込まれた個々の値 "AppVersion", "LastFilePath" を削除します)

コード例2: パフォーマンス考慮した設定利用

レジストリへのアクセスはファイルI/Oと同様にコストがかかります。頻繁にレジストリ値を読み書きすると、アプリケーション全体のパフォーマンスが低下する可能性があります。この例では、設定値を一度読み込み、モジュールレベルの変数に保持することで、繰り返しアクセスによる性能劣化を防ぐ方法を示します。

' 標準モジュール（例: modApplicationCore）に記述

Option Explicit

Private Const APP_REG_PATH As String = "Software\MyCompany\MyVBAApp"
Private m_logEnabled As Boolean ' ログ出力設定を保持するモジュール変数
Private m_defaultFolderPath As String ' デフォルトフォルダパスを保持するモジュール変数

' 設定の初期化（アプリケーション起動時などに一度だけ呼び出す）
Public Sub InitializeAppSettings()
    ' ログ出力設定をレジストリから読み込み、モジュール変数に格納
    ' 0:無効, 1:有効 と仮定
    m_logEnabled = (GetRegistryDWORD(HKEY_CURRENT_USER, APP_REG_PATH, "EnableLogging", 0) = 1)
    Debug.Print "Initialize: EnableLogging = " & m_logEnabled

    ' デフォルトフォルダパスを読み込み、モジュール変数に格納
    m_defaultFolderPath = GetRegistryString(HKEY_CURRENT_USER, APP_REG_PATH, "DefaultFolder", "C:\Temp")
    Debug.Print "Initialize: DefaultFolder = " & m_defaultFolderPath
End Sub

' ログ出力が有効かチェックする関数
Public Function IsLoggingEnabled() As Boolean
    IsLoggingEnabled = m_logEnabled
End Function

' デフォルトフォルダパスを取得する関数
Public Function GetDefaultFolderPath() As String
    GetDefaultFolderPath = m_defaultFolderPath
End Function

' パフォーマンス比較のためのテストサブルーチン
Public Sub PerformanceTest()
    Const ITERATIONS As Long = 10000 ' 繰り返し回数
    Dim startTime As Double
    Dim i As Long
    Dim tempBool As Boolean
    Dim tempPath As String

    ' --- レジストリから毎回読み込むケース ---
    Debug.Print "--- レジストリから毎回読み込むケース ---"
    startTime = Timer
    For i = 1 To ITERATIONS
        tempBool = (GetRegistryDWORD(HKEY_CURRENT_USER, APP_REG_PATH, "EnableLogging", 0) = 1)
        tempPath = GetRegistryString(HKEY_CURRENT_USER, APP_REG_PATH, "DefaultFolder", "C:\Temp")
        ' 実際の処理ではここで tempBool や tempPath を使う
    Next i
    Debug.Print "レジストリから毎回読み込み: " & (Timer - startTime) * 1000 & " ms"

    ' --- モジュール変数から読み込むケース ---
    Debug.Print "--- モジュール変数から読み込むケース ---"
    ' 事前に InitializeAppSettings を実行しておく
    InitializeAppSettings ' ここで一度だけレジストリから読み込む

    startTime = Timer
    For i = 1 To ITERATIONS
        tempBool = IsLoggingEnabled()
        tempPath = GetDefaultFolderPath()
        ' 実際の処理ではここで tempBool や tempPath を使う
    Next i
    Debug.Print "モジュール変数から読み込み: " & (Timer - startTime) * 1000 & " ms"

    ' 性能チューニングの数値例 (環境によって変動するため、あくまで例示)
    ' 10,000回のループで直接レジストリを読み込むと約 1200-1500 ms かかるが、
    ' 一度変数に格納してから利用すると約 5-10 ms に短縮され、約 99% の性能向上となる。

    ' VBAにおける一般的な性能チューニング項目
    Application.ScreenUpdating = False ' 画面更新を停止
    Application.Calculation = xlCalculationManual ' 自動計算を停止 (Excelの場合)
    ' DAO/ADO最適化:
    ' Accessで大量のデータ処理を行う場合、Recordsetのバッチ更新やSQLステートメントの最適化が重要。
    ' レジストリ設定でDB接続文字列やクエリのパラメータを保持し、これらを効果的に利用することも可能。

    ' 処理後、元に戻す
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

' 実行手順:
' 1. 上記コードを標準モジュール modApplicationCore にコピーします。
'    (modRegistryモジュールも事前にインポート済みであること)
' 2. SaveApplicationSettings (modApplicationSettingsモジュールのもの) を実行し、
'    "EnableLogging" (DWORD, 値 1) と "DefaultFolder" (String, 例 "C:\Users\Public\AppData") をレジストリに保存します。
' 3. PerformanceTest サブルーチンを実行し、イミディエイトウィンドウで性能差を確認します。
'
' ロールバック方法:
' 1. コード例1と同様に、レジストリエディタ(regedit.exe)で HKEY_CURRENT_USER\Software\MyCompany\MyVBAApp キーを削除します。

[一次情報]: Application.ScreenUpdating Property (Excel) (Microsoft, 2023年1月19日更新), Application.Calculation Property (Excel) (Microsoft, 2023年1月19日更新).

検証

  1. コードの配置: 提供されたmodRegistryモジュールと、それぞれのコード例を適切な標準モジュールに配置します。Excelの場合、開発タブのVisual BasicからVBAエディタを開き、左側のプロジェクトエクスプローラーで「挿入」→「標準モジュール」を選択してモジュールを追加します。

  2. 実行: SaveApplicationSettingsを実行し、レジストリに値が書き込まれることを確認します。次にLoadApplicationSettingsを実行し、保存した値が正しく読み込まれることを確認します。PerformanceTestを実行し、イミディエイトウィンドウの出力で性能差が示されることを確認します。

  3. レジストリエディタでの確認:

    • Windowsの検索バーに「regedit」と入力してレジストリエディタを開きます。

    • HKEY_CURRENT_USER\Software\MyCompany\MyVBAApp のパスに移動します。

    • 右ペインに AppVersion (DWORD) と LastFilePath (REG_SZ) が、指定した値で存在することを確認します。

    • EnableLogging (DWORD) と DefaultFolder (REG_SZ) も同様に確認します。

  4. エラーハンドリングのテスト:

    • LoadApplicationSettings の中で、存在しない値の名前を読み込むように一時的に変更し、デフォルト値が返されることを確認します。

    • 存在しないキーパスへの書き込みを試行し、SetRegistryStringやSetRegistryDWORDがFalseを返すことを確認します（ただし、EnsureRegistryKey関数が事前にキーを作成するため、このテストはEnsureRegistryKeyの呼び出しを一時的にコメントアウトして行う必要があります）。

運用

  • 権限: HKEY_CURRENT_USERへの書き込みは通常ユーザーでも可能ですが、HKEY_LOCAL_MACHINEへの書き込みは管理者権限が必要です。アプリケーションの要件に応じて適切なルートキーを選択してください。

  • パスの構造: Software\[会社名]\[アプリケーション名] のような明確な階層構造を持つパスを使用し、他のアプリケーションのレジストリと競合しないように注意してください。

  • キーの削除: アプリケーションのアンインストール時や設定のリセット時に、関連するレジストリキーも削除する機能を実装することを検討してください。RegDeleteKey APIを使用しますが、誤ったキーを削除しないよう慎重な実装が必要です。

  • バックアップ: レジストリはWindowsシステムにとって重要な情報源です。VBAからレジストリを操作する際は、誤った操作がシステムに与える影響を理解し、重要な変更を行う前にはレジストリのバックアップを取ることを推奨します。

  • データの型: レジストリに保存するデータの型（文字列、DWORDなど）をアプリケーション内で一貫して管理し、読み書き時に型変換エラーが発生しないように注意してください。

落とし穴

  • 32bit/64bit VBAとレジストリリダイレクト (Wow6432Node): 64ビット版Windowsでは、32ビットアプリケーションが HKEY_LOCAL_MACHINE\Software にアクセスしようとすると、自動的に HKEY_LOCAL_MACHINE\Software\Wow6432Node にリダイレクトされます。VBAのビット数（Officeのビット数）と、意図するレジストリパスの整合性を確認する必要があります。PtrSafe宣言は64ビットOfficeに対応しますが、レジストリのビューに関する問題は別途考慮が必要です。

  • 管理者権限 (UAC): HKEY_LOCAL_MACHINEなど、システムキーへの書き込みには管理者権限が必要です。VBAアプリケーションが通常ユーザー権限で実行されている場合、書き込みが失敗しERROR_ACCESS_DENIEDが返されることがあります。

  • メモリリーク (ハンドル閉じ忘れ): RegOpenKeyExで開いたキーは、必ず RegCloseKey で閉じる必要があります。閉じ忘れるとシステムリソースを消費し続ける原因となります。

  • 文字列エンコーディング: VBAの文字列はUnicode（UTF-16）ですが、Win32 APIにはANSI版 (Aサフィックス) とUnicode版 (Wサフィックス) があります。本記事ではAlias "RegOpenKeyExW"のようにUnicode版を指定していますが、異なるバージョンを使用する際は注意が必要です。

  • 値の存在チェック: RegQueryValueExは、値が存在しない場合でもエラーコード (ERROR_FILE_NOT_FOUND) を返します。読み込み前に値の存在を明示的にチェックするか、エラーハンドリングでデフォルト値を返すように実装することが堅牢なコードにつながります。

まとめ

VBAからWindowsレジストリを操作することは、アプリケーションの設定を永続化し、ユーザーごとにカスタマイズ可能な柔軟なソリューションを提供する強力な手段です。Declare PtrSafe を用いてWin32 APIを直接呼び出すことで、外部ライブラリに依存することなく、レジストリの読み書き、設定、削除といった基本的な操作から応用的な利用までが可能になります。

実装においては、HKEY_CURRENT_USER や HKEY_LOCAL_MACHINE などの適切なルートキーの選択、キーパスの設計、データ型の正確なマッピング、そしてハンドルクローズ忘れによるリソースリークの回避が重要です。特に、頻繁にアクセスされる設定値は、アプリケーション起動時に一度だけ読み込み、モジュール変数に保持することで、繰り返しレジストリにアクセスする際の性能オーバーヘッドを大幅に削減できるという性能チューニングの観点も実用上不可欠です。

レジストリ操作はシステムレベルでの影響が大きいため、十分な検証とエラーハンドリングを伴う慎重な実装が求められます。本記事で提供されたコード例と解説が、VBAによる堅牢で効率的なレジストリ操作の実装の一助となれば幸いです。

ライセンス：本記事のテキスト/コードは特記なき限り CC BY 4.0 です。引用の際は出典URL（本ページ）を明記してください。
利用ポリシー もご参照ください。

コメント

タイトルとURLをコピーしました