rendre invisible "enregistrer" dans le menu

[crayven4]

?

 

[Ashaar]

Bonjour,
Le code suivant supprime Enregistrer :

Sub Suppr_Fich_Enrg()
nomBarre = 'Worksheet menu bar'
Set NewMenu = Application.CommandBars(nomBarre).Controls('&Fichier')
NewMenu.Controls('&Enregistrer').Delete
End Sub

'Pour griser Enregistrer sans le supprimer :
NewMenu.Controls('&Enregistrer').Enabled = False

 

[crayven4]

Merci