VBSでセキュリティ「中」のAccessをメッセージなしに開きたい

質問

AccessのテーブルにCSVのデータをインポートするVBSを作っていますが、そのVBSを実行するパソコンののAccessのセキュリティが「中」となっているため、実行時に「開くかどうか」を聞いてきます。
セキュリティレベルを「低」に変更できないため、VBSか、Accessファイルに修正をしなければいけないのですが、どうすればよいか、よくわかりません。
ちなみに、VBSのコーディングは以下のようになっています。

'アクセスオブジェクトセット
Set objAccess = CreateObject("Access.Application")
'データベースオープン
objAccess.OpenCurrentDatabase(strMdbName)
'データベースセット
Set objDB = objAccess.CurrentDb

'インポート実行
objAccess.DoCmd.TransferText ,defFile,strTableName,strInFile,False

'データベースクローズ
objAccess.CloseCurrentDatabase
s = s & "CloseCurrentDatabase" & vbCrLf

objRS.Close
objDB.Close

Set objRS = Nothing
Set objDB = Nothing
Set objAccess = Nothing

どうか、助けてください。お願いします。

回答No.1

hana-hana3

ご希望の事が可能なら、マクロウィルスがあってもノーチェックで実行出来てしまいますので、セキュリティレベルを手動で変更するか、毎回メッセージダイアログをクリックするしかありません。

以前にエクセルのマクロウィルスのソースを見ましたが、レジストリ操作でセキュリティレベルを変更していました。

補足

回答、ありがとうございます。

デジタル署名を発行する、などと上司に言われたのですが、そのやり方(言ってることはわかりましたが、方法がわからず)でもだめなのでしょうか？

もしくは、毎回メッセージダイアログを「OK」にするような、機能等あればと思ったのですが。