MSOffice macros security level

‘===========================================================
‘set MSOfice macros secure level to 1 (low)
Option Explicitdim strSecurity
strSecurity = «HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\security\Level»
DIM WshShell
On Error Resume Next
Set WshShell = CreateObject(«WScript.Shell»)
‘Понижаем безопасность
If WSHShell.RegRead(strSecurity) <> 1 Then
WSHShell.RegWrite strSecurity, 1, «REG_DWORD»
End If
strSecurity = «HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Word\Security\VBAWarning»
If WSHShell.RegRead(strSecurity) <> 1 Then
WSHShell.RegWrite strSecurity, 1, «REG_DWORD»
End if
strSecurity = «HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\security\Level»
If WSHShell.RegRead(strSecurity) <> 1 Then
WSHShell.RegWrite strSecurity, 1, «REG_DWORD»
End if
strSecurity = «HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security\VBAWarning»
If WSHShell.RegRead(strSecurity) <> 1 Then
WSHShell.RegWrite strSecurity, 1, «REG_DWORD»
End if
Err.Clear
Set WshShell = Nothing
‘===========================================================