Private Sub Workbook_Open()
Dim ObjShell As Object, Clé$
Dim Ver
Ver = Application.Version
Set ObjShell = CreateObject("WScript.Shell")
Clé = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Ver & "\Excel\Security\AccessVBOM"
On Error Resume Next
If ObjShell.RegRead(Clé) = 0 Then
MsgBox "Veuillez Modifier dans Outils/Macros/Sécurité :" & Chr(10) & " Faire Confiance au Projet Visual Basic" & Chr(10) & " Puis Fermer Excel et Redémarrer"
End If
Set ObjShell = Nothing
End Sub