CommandBar

[NicolasR]

Voila j'ai un probleme, j'ai cree une barre personnalisée et je voudrai qu'a l'ouverture de mon classeur ne pas autoriser l'utilisation d'un des menus.
voici le code que j'écris:
application.CommandBars("menuprinc").Controls("menuadmin").Enabled =False
Mais il ne marche pas il detecte l'erreur suivante :
argument ou type de procedure incorrect

menuprinc est une CommandBar
menuadmin est une CommandBarControl

Si quelqu'un pourai m'aider
Merci d'avance.

 

[Zon]

Salut,

De cette manière je ne crois pas que cela soit possible, mais à la créetion oui

Dim Menu As CommandBarPopup, MenuItem As CommandBarControl

Set Menu = CommandBars(1).Controls.Add(msoControlPopup, , , , True)
Menu.Caption = "Menu"princ"
Set MenuItem = Menu.Controls.Add(msoControlButton)
With MenuItem
.Caption = "Menuadmin"
.FaceId = 23
.OnAction = "Tamacro"
.Enabled = False " ici à rajouter
End With

A+++