Sub test()
'cette macro = On.Action de l'élément MyMenu2 du menu créé à l'ouverture
'est censer demander un mot de passe
'bah ca marche pas
Dim mdp As String
With Application.CommandBars("Worksheet Menu Bar").Controls("&Menu Test")
mdp = InputBox("mot de passe", "Mode administrateur")
If mdp = "toto" And .Index = 2 Then
.Enabled = True
'Call macadmin
'macadmin= macro résevée à l'administrateur
'ici une simple msgbox pour tester (elle est dans le classeur joint)
Else
.Enabled = False
MsgBox "Mauvais mot de passe, le menu va etre désactivé", vbCritical, "Attention : ERREUR"
End If
End With
End Sub