本代码通过批处理自动修改注册表以达到降低宏安全性的目的,支持ACCESS2000至ACCESS2010。
@echo off
echo 去除ACCESS打开时的安全提示...
reg query HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security>nul 2>nul&&goto 10||goto 11
:10
reg delete "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security" /v "Level" /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security" /v "Level" /t REG_DWORD /d "00000001" /f
:11
reg query HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Access\Security>nul 2>nul&&goto 12||goto 13
:12
reg delete "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Access\Security" /v "Level" /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Access\Security" /v "Level" /t REG_DWORD /d "00000001" /f
:13
reg query HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security>nul 2>nul&&goto 14||goto 15
:14
reg delete "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security" /v "vbawarnings" /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security" /v "vbawarnings" /t REG_DWORD /d "00000001" /f
:15
reg query HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security>nul 2>nul&&goto 16||goto Q
:16
reg delete "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security" /v "vbawarnings" /f
reg add "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security" /v "vbawarnings" /t REG_DWORD /d "00000001" /f
:Q
echo. & pause