1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Dim wsh, objXl
'Pour s'assurer qu'excel n'est pas ouvert.
On Error Resume Next
Set objXl=GetObject(,"Excel.Application")
If Not IsEmpty(objXl) Then
Msgbox "Fermer excel pour exécuter ce scr1pt...",64,"La direction"
WScript.Quit
else
Set objxl=createobject("Excel.Application")
Ver = objxl.Version
set objxl = nothing
End If
Err.Clear
Set wsh = WScript.CreateObject("WScript.Shell")
'Niveau de sécurité 2 pour 2ième niveau
wsh.RegWrite "HKCU\Software\Microsoft\Office\" & _
Ver & "\Excel\Security\Level",2,"REG_DWORD"
if ver >= 10 then
'Faire confiance au projet VBA -> 1 pour que la case soit cochée
' -> 0 pour que la case soit décochée
wsh.RegWrite "HKCU\Software\Microsoft\Office\" & _
Ver & "\Excel\Security\accessVBOM",1,"REG_DWORD"
'Faire confiance au modèle -> 0 pour que la case soit cochée
' -> 1 pour que la case soit décochée
wsh.RegWrite "HKCU\Software\Microsoft\Office\" & _
Ver & "\Excel\Security\DontTrustInstalledFiles",0,"REG_DWORD"
end if |