Griser le menu "enregister" et désactiver ^s

Bonjour à tous,

J'ai longtemps cherché la solution mais en vain en espérant que quelqu'un puisse m'aider ici...Voici mon idée :

A l'ouverture de mon fichier Excel je veux que le menu "Ficher -> enregistrer sous" et "Fichier -> enregistrer" soient grisés. Je veux aussi désactiver la combinaison de touches Ctrl + S afin de désactiver l'enregistrement. A la fermeture de mon fichier réactiver tout ça.
Voici le code que j'utilise :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Workbook_Open() With CommandBars(Menu Bar) Application.CommandBars(1).Enabled = True .Controls(1).Controls(4).Enabled = False .Controls(1).Controls(5).Enabled = False End With Application.OnKey "^s", "" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) With CommandBars("Menu Bar") Application.CommandBars(1).Enabled = True .Controls(1).Controls(4).Enabled = True .Controls(1).Controls(5).Enabled = True End With Application.OnKey "^s" End Sub

---

Le programme bug à la commande "With CommandBars(Menu Bar)" et génère l'erreur suivante : erreur d'exécution '91' : Variable objet ou Variable de bloc "with" non définie

Je vous remercie d'avance.

Bonjour,

Mets "Worksheet Menu Bar".

Bonjour Daniel et merci pour ta réponse.

"Worksheet Menu Bar" ne fonctionne que si on applique la macro à un feuille Excel or moi je veux l'appliquer à tout le fichier (ouverture et fermeture) dans ThisWorkBook.

D'ailleurs "Worksbook Menu Bar" ne fonctionne pas aussi.

Merci d'avance.

Non, CommandBar est du niveau "Application". C'est à direr que les modifs que tu y apportes sont valables pour tous les classeurs. Essaie la macro :

Code:

---

1 2 3 4 5

Sub test() For Each c In Application.CommandBars("Worksheet Menu Bar").Controls MsgBox c.Caption Next c End Sub

---