vkodor АлексейКвот код понижения уровня безопасности до низкого
если кому надо
1.
2.
3.
4.
5.
6.
7.
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
эх, хорошо бы еще подпись
класно спасибо давно искал
есть задумка из внешней проге включать макро и тогда можно ... Ух.
Вся проблема в том, что если этот код запускается из макроса, то хоть он и меняет данные в реестре, то при выходе из Экселя они вновь становятся теми же (Эксель при завершении работы сохраняет туда текущие настройки, а они-то не меняются!)
