CommandBar

NicolasR · 6 Avril 2004

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 · 7 Avril 2004

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+++

CommandBar

NicolasR

Guest

Zon

Guest

Discussions similaires