Понижение уровня безопасности
On Error Resume Next Dim OShell Set OShell = CreateObject("WScript.Shell") OShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\Level", 2, "REG_DWORD" OShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Excel\Security\Level", 2, "REG_DWORD" OShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Security\Level", 2, "REG_DWORD" Set OShell = Nothing | |
| |
Просмотров: 1476 | |
Всего комментариев: 0 | |