屏蔽Access宏安全警告的有效办法

ACCESS的宏安全级别设为低时才能不出现安全警告，可是当你把数据库拿到别的机器上用时又要重设，有时还要改注册表。而且安全级别低总让人担心。怎样才能在中或高安全级别时，access唯独不对您的程序报警呢。在论坛上看到几年前的一个帖子，改造了一下用到自己的数据库里，可以达到这样的效果，方法如下：
  用记事本写以下代码：然后保存为.vbs文件。把这个文件和您的数据库放到同一个文件夹内。
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
在桌面上建快捷方式指向你的这个vbs文件就可以了。估计打包时指向这个文件也是可以的，没试过。