Bonsoir DANYEL, Gérard, MrExcel et Bernard.
Je ne suis pas amateur de foot, mais je pense avoir vu le même film que Gérard. Aussi, j'ai trouvé sur le net plusieurs méthodes pour protéger un projet directement par le code VBA. Après plusieurs essais infructueux, j'ai mélangé un peu le tout pour en sortir la procédure ci-dessous. Bien sûr c'est un peu tiré par les cheveux et ça me parait aléatoire, mais ça passe chez moi (Excel 2002) :
Sub ProtegerVBA()
Dim MotDePasse As String
Application.ScreenUpdating = False
MotDePasse = 'motdepasse'
'Sortir si déjà Protégé
If ThisWorkbook.VBProject.Protection = 1 Then Exit Sub
'Ouvre l'éditeur VBE le cas échéant
If Not Application.VBE.MainWindow.Visible Then
Application.SendKeys '%{F11}', True
DoEvents
End If
'Menu Outils/Propriétés de VBAProject/2ème Onglet
Application.SendKeys '%O', True
Application.SendKeys 'e', True
Application.SendKeys '^{TAB}', True
'Cocher 'Verrouiller le projet...' et saisir mot de passe
Application.SendKeys '{+}', True
Application.SendKeys '{TAB}', True
Application.SendKeys MotDePasse, True
Application.SendKeys '{TAB}', True
Application.SendKeys MotDePasse, True
Application.SendKeys '~', True
DoEvents
'Retour à Excel, sauvegarde et fermeture du classeur
Application.SendKeys '%{F11}', True
ThisWorkbook.Save
Application.ScreenUpdating = True
ThisWorkbook.Close
End Sub
Comme quoi, il y a des certitudes...
J'en profite pour remercier Bernard pour l' astuce qui consiste à utiliser le Partage pour interdire l'accès au projet VBA... c'est très judicieux et je garde ça au chaud.
Désolé
DANYEL, je ne pense pas que cette procédure puisse t'aider, mais, pour information, cette procédure ne fait qu'appliquer à la lettre les instructions de Gérard !
Cordialement.
