此方法不用修改注册表,只对特定文件执行取消安全性警告,程序关闭后原安全性设置没变同时此方法一样适合其他OFFICE2003成员的安全性警告， 其他程序如VB 调用ACCESS、EXCEL等同样适用

下面示例取消ACCESS的安全警告和在ACCESS调用EXCEL时,取消EXCEL的安全性警告，详细脚本如下

    Dim oApp ' As Object

    On Error Resume Next

    Set oApp = CreateObject("Access.Application")

    Set objShell = CreateObject("Wscript.Shell")

    strPath = objShell.CurrentDirectory

    If oApp.Version = "11.0" Then

        oApp.AutomationSecurity = 1

    End If

  strPath =strPath & "\test.mdb" 

    oApp.OpenCurrentDatabase strPath

    oApp.Visible = True

    Set oApp = Nothing

    用文本编辑后，保存，重命名为test.VBS,执行此文件会自动取消指定文件的安全性警告

   详细代码请到Office中国论坛下载：http://www.office-cn.net/thread-52598-1-1.html