Sub MenuItem_Enable()
'réactiver protection du menu outil
Dim myCmd As Object
Set myCmd = CommandBars("Worksheet menu bar").Controls("Outils")
myCmd.Controls("Protection").Enabled = True
End Sub
Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=109