C'est comment. La valeur retournée sera de 1 à 4.
ReadSecurityLevel secondaire ()
Sur le résumé d'erreur après
Faible i_RegKey comme corde
Faible myWS comme objet
i_RegKey = « HKEY_CURRENT_USER \ logiciel \ Microsoft \ bureau \ 11.0 \ Excel \ sécurité \ de niveau »
'accéder à scripting de Windows
Placer le myWS = le CreateObject (« WScript.Shell »)
'clé de lecture d'enregistrement
RegKeyRead = myWS.RegRead (i_RegKey)
Sur l'erreur 0 GoTo
Sous-marin d'extrémité