アクションの実行エラー（セキュリティの警告）の対応

昨日から、悪戦苦闘中のアクションの実行エラー（セキュリティの警告）の対応が完了しました。

途中経過は、自分でも訳が分からなくなっていますので、省略します。

基本的な対策は、昨日も書いたとおり、信頼できる場所をスクリプトでレジストリに書き込むことですが、Access2003では、信頼できる場所の設定や、その他の対応が見つからなかったので、セキュリティレベルを下げる対応になってしまいました。

レジストリ操作を実行できたので、ランタイム版のAccessでもインストール時だけ、アクションの実行エラーを回避してやれば、その後の再表示はしなくなります。

WinndowsのAPIを使いましたので、APIの設定はこちらです。

'レジストリにキーを作成する。キーがある場合にはオープンする Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByVal lpSecurityAttributes As Long, phkResult As Long, lpdwDisposition As Long) As Long 'レジストリに名前とデータをセットする。 Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long 'レジストリキーをクローズする Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Public Const HKEY_CURRENT_USER = &H80000001 Public Const REG_CREATED_NEW_KEY = &H1         ' 新しいキーを作成 Public Const REG_OPENED_EXISTING_KEY = &H2     ' 既存キーを開く Public Const KEY_SET_VALUE = &H2 Public Const REG_SZ As Long = 1 Public Const REG_DWORD As Long = 4

2003以前と以後の判定はこちらでやりました。
    If Application.Version > 11.1 Then     '信頼できる場所の設定 Call RegLocation     Else         'セキュリティレベル→低 Call RegSecurity             End If

信頼できる場所の設定は、こちら
Private Sub RegLocation() Dim rt      As Long Dim phkResult   As Long Dim lpdwDisposition As Long Dim Rootkey As String Dim Subkey As String Dim i As Integer Dim sName As String Dim hRegValue As String Dim nLeng As Long     lpdwDisposition = REG_CREATED_NEW_KEY Or REG_OPENED_EXISTING_KEY         Rootkey = HKEY_CURRENT_USER     Subkey = "Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\Location"     sName = "Path" '名前の設定     hRegValue = CurrentProject.Path & "\" 'データの設定         nLeng = LenB(hRegValue) 'データのバイト数     For i = 0 To 9         rt = RegCreateKeyEx(Rootkey, Subkey & i, 0, vbNullString, 0, KEY_SET_VALUE, 0, phkResult, lpdwDisposition) 'phkResultにキーのハンドルが帰ってきます         If rt = 0 Then '正常終了のとき0             '値を設定する             rt = RegSetValueEx(phkResult, sName, 0, REG_SZ, ByVal hRegValue, nLeng)             Exit For         End If     Next         'レジストリキーをクローズする     rt = RegCloseKey(phkResult)     End Sub

セキュリティレベルの設定はこちらです。
Private Sub RegSecurity() Dim rt      As Long Dim phkResult   As Long Dim lpdwDisposition As Long Dim Rootkey As String Dim Subkey As String Dim i As Integer Dim sName As String Dim hRegValue As Long Dim nLeng As Long     lpdwDisposition = REG_CREATED_NEW_KEY Or REG_OPENED_EXISTING_KEY         Rootkey = HKEY_CURRENT_USER     Subkey = "Software\Microsoft\Office\11.0\Access\Security"     sName = "Level" '名前の設定     hRegValue = &H1 'データの設定         nLeng = LenB(hRegValue) 'データのバイト数     rt = RegCreateKeyEx(Rootkey, Subkey, 0, vbNullString, 0, KEY_SET_VALUE, 0, phkResult, lpdwDisposition)  'phkResultにキーのハンドルが帰ってきます     '値を設定する     rt = RegSetValueEx(phkResult, sName, 0, REG_DWORD, hRegValue, nLeng)     'レジストリキーをクローズする     rt = RegCloseKey(phkResult)     End Sub

フリーで使えて、レジストリ操作が選択できるインストーラが見つかれば、インストール時に、設定できるようにしてみようと思います。（将来構想です）