[批处理]自动降低宏安全性

时　间:2010-11-07 13:40:43
作　者:Qiu J.X.   ID：1455  城市：龙岩
摘　要:本代码通过批处理自动修改注册表以达到降低宏安全性的目的，支持ACCESS2000至ACCESS2010。
正　文:

本代码通过批处理自动修改注册表以达到降低宏安全性的目的，支持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