ACCESSでセキュリティ警告が出る事象について
ACCESSでセキュリティ警告が出る事象について、アドバイスをお願いします。
やりたいことは、以下4点です。
（1）CSVファイル「C:\temp\File1.csv」をテーブル「T_File」としてインポートする。
（2）クエリ「データ確認」を表示する
（3）表示したクエリ「データ確認」をエクスポートする。
（4）エクスポートしたメッセージを表示する
※週ごとに実行したいので、最初にテーブル「T_File」を削除します。
フォームに設置したコマンドボタンを押すことで実行させたいと思っています。
理由は、インポートするCSVファイルがデータ項目の並びなど複数のパターンがあるためで、インポート定義を複数作成して、コマンドボタンを複数設置するつもりです。
以下が、１つのコードです。
-------ここから--------
Private Sub コマンド0_Click()
On Error GoTo Err_コマンド0_Click
DoCmd.OpenQuery "Q_Del", acViewNormal, acEdit
DoCmd.TransferText acImportDelim, "File1定義", "T_File", "C:\temp\File1.csv", False, ""
DoCmd.OpenQuery "データ確認", acViewNormal, acEdit
DoCmd.OutputTo acQuery, "データ確認", "MicrosoftExcelBiff8(*.xls)", "C:\temp\データ確認.xls", False, "", 0
MsgBox "データを 『 C:\temp 』 に出力しました。", vbInformation, "データ出力終了"
Exit_コマンド0_Click:
Exit Sub
Err_コマンド0_Click:
MsgBox Err.Description
Resume Exit_コマンド0_Click
End Sub
-------ここまで--------
なんとか思ったように動いているのですが、超初心者が見よう見まねで作成したためか、ACCESSを起動しようとしたり、最適化すると下記のようなメッセージが表示されます。
-------ここから--------
セキュリティ警告
このファイルに、意図的にお使いのコンピュータに損害を与えるコードが含まれる場合、ファイルは安全でない可能性があります。
-------ここまで--------
ここで、質問です。
私が書いたコードは、いろいろ調べてコピーして張り付けたものなので、何か書き方が違っていたり、足りないコードがあるのでしょうか？
もしくは、下記URLにあるようにセキュリティレベルを変更するかデジタル署名を使用することで回避できるのでしょうか？
http://support.microsoft.com/kb/884310/ja
このACCESSを他の事務所の方に展開して利用してもらおうと考えているため、セキュリティ警告が出ないようにしたいと思っています。
（みんなに嫌がられるので・・・）
超初心者のため、どのように伺えばいいのか難しく、表現がおかしかったり言葉足らずのことがあればご指摘ください。
良いアドバイスをお願いいたします！
お礼
さっそく実行してみます、こんなに早く回答いただけて感謝しております。