Access 2003 ランタイムでのセキュリティ警告を非表示にする方法

Access 2003 ランタイム環境では、
セキュリティーレベルを変更することができません。
Access 2003 ランタイムのみの実行環境では
始めにランタイムをインストール後

セキュリティーレベル変更専用のmdbファイルを開発環境にて
作成し、ランタイムがインストールされている端末で
実行後するとセキュリティーレベルの変更ダイアログ
が表示されレベル'低'へ変更が可能になる。

mdb実行後以降は、セキュリティー警告は表示されなくなる。



---------------------------------
セキュリティーレベル変更mdbの内容
---------------------------------

' [ツール] メニューの [参照設定] で
'"Microsoft Office 11.0 Object Library" を参照します。
'"Microsoft Access 11.0 Object Library"ではなく
'"Microsoft Office 11.0 Object Library"
'(間違えやすいので注意)

Dim cBars As Office.CommandBars
Dim cBarCtl As Office.CommandBarControl

Set cBars = Application.CommandBars

' [マクロ] の [セキュリティ] ボタンの ID (識別子)
' '3627' をセットします。
Set cBarCtl = cBars.FindControl(msoControlButton, 3627)

' セットしたコマンドバー コントロールを表示します。
cBarCtl.Execute