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?
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)
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.