[VBA-E]Supprimer l'affichage des barres de menus

Bonjour tout le monde

En testent les astuces trouver sur le web j’ai créé une macro qui contient :

Code:

---

1 2 3 4

Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = False Next CmdB

---

J’ai lancé Excel, le fermer, le ré-ouvrier, je n'ai plus accès au menu pour dévalider ma macro, la macro s'exécute au démarrage de Excel.


en fait ce que je veux après avoir ré-avoir le menu Excel, et que masquer les barres d'outils sur des fichiers que j'envoie à ma liste de mes contacts.


Merci d'avance.

Bonjour,
Pour réouvrir le barre de menus dans Excel, tu mets dans la procédure:

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB End Sub

---

ce qui en quittant va réafficher la barre.

jpleroisse

Bonjour

le comment l'affichier et bien décrit sur le lien, mais j'ai pas accèe au menu pour modifier la macro !!


Merci d'avance.

et Alt-F11, ca marche pas ?

Ce que je penser est de supprimer la macro s’il est placé sur un fichier sur Programs Files?

Mais je n’ai pas d'idée sur le dossier, car je ne rappeler plus le nom que j'ai donné à la macro.

Citation:

---

Envoyé par ouskel'n'or

(j'ai office 97 mais d'autres auront ta version)

---

A force d'a force, on va finir par se cotiser pour t'offrir une version plus récente :wink:

J'ai essayer l'astuce de Thierry AIM

Puis exécuter le code de :

Code:

---

1 2 3 4 5 6

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = True Next CmdB End Sub

---

Ça marche très bien

Merci infiniment