Macro-Security level value

[avi]

Hello,

Is there a way to get in VBA or VB6 the Macro-Security level actual
value (High, low...).

Tanks
Avi

 

[Jim Rech]

You'd have to read the registry. The item is "Level" under
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security for Excel
2003.

 

[avi]

Thanks a lot!

I understand that i have to use the API RegOpenKeyEx to retrieve the
value. Could you help me further with the proper parameters to pass to
the function?

Thanks again
Avi

 

[Bob Phillips]

This reads the key in a XP/2002 version of Excel

Dim oWSH As Object
Dim sResult

Set oWSH = CreateObject("WScript.Shell")

On Error Resume Next
sResult =
oWSH.RegRead("HKCU\Software\Microsoft\Office\10.0\Excel\Security\Level")
On Error GoTo 0
If Err.Number <> 0 Or sResult = "" Then
MsgBox "Read key error"
Else
MsgBox sResult
End If
Err.Clear



--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)