此方法不用修改注册表,只对特定文件执行取消安全性警告,程序关闭后原安全性设置没变
同时此方法一样适合其他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
