Desactivation menu "outils" macro

Bonjour,


Avant toute chose je précise que je débute dans le domaine des Macros ....

Alors j'ai créer un tableau avec des données qui doivent être protégées. Afin d'activer et de désactiver la protection j'ai créer des boutons de commande reliés à des macros dont celle "DESACTIVER" se déclenche grace a un mot de passe.

Quand j'ai testé ma protection, je me suis aperçue que celle-ci sautait simplement en allant dans OUTILS / PROTECTION / OTER LA PROTECTION.

Du coup, j'ai rajouté dans ma macro, une ligne pour désactiver le menu OUTILS quand la protection est ACTIVE & de l'activer quand la protection est retirée.

Mon problème, c'est que je voudrais spécifier que cette commande ne s'applique que lorsque le fichier est ouvert et qu'a la fermeture le menu OUTILS soit de nouveau disponible.

Ci dessous mes commandes :

Sub DESACTIVER()'
' DESACTIVER Macro
' Macro enregistrée le 15/01/2010 par A18672
'

'
MaRep = InputBox("Tapez le mot de passe.")

If MaRep = "Smabtp03" Then
CommandBars(1).Controls("Outils").Enabled = True 'ou.Visible = True
Set wbks = Workbooks("STATISTIQUES 2010 à compléter pour le 5 du mois.xls")
ActiveSheet.Unprotect
Else

Exit Sub

End If

End Sub
Sub ACTIVER()'
' ACTIVER Macro
' Macro enregistrée le 15/01/2010 par A18672
'

'
CommandBars(1).Controls("Outils").Enabled = False 'ou.Visible = False
Set wbks = Workbooks("STATISTIQUES 2010 à compléter pour le 5 du mois.xls")
ActiveSheet.Protect
End Sub



Merci pour votre aide !!!!!