Это как. Возвращенное значение будет от 1 до 4.
Sub ReadSecurityLevel ()
На резюме ошибки затем
Тусклое i_RegKey как шнур
Тусклое myWS как предмет
i_RegKey = «HKEY_CURRENT_USER \ средство программирования \ Майкрософт \ офис \ 11.0 \ Эксел \ обеспеченность \ ровные»
'достигните scripting Windows
Установите myWS = CreateObject («WScript.Shell»)
'прочитанный ключ от регистратуры
RegKeyRead = myWS.RegRead (i_RegKey)
На ошибке переход 0
Подводная лодка конца