OVH Cloud OVH Cloud

Attacher une barre d'outils automatiquement

1 réponse
Avatar
adrien
Bonjour à tous,

Je voudrais savoir s'il existe une commande VBA qui permet d'attacher une
barre d'outils à un fichier excel.
c'est à dire automatiser l'action : clic droit sur une barre d'outils,
"personnaliser...", "attacher...", et mettre dans la partie droite une barre
d'outils personnalisée.

Merci d'avance

1 réponse

Avatar
michdenis
Bonjour Adrien,

Je ne crois pas. Il faut faire comme tu l'énonces !

Cependant, rien ne t'empêche d'y faire référence dans
du code comme ceci dans le ThisWorkbook de ton classeur,
afin de t'assurer qu'elle est toujours disponible lorsque le
classeur désiré est actif.

'-------------------------------
Private Sub Workbook_Activate()
With Application.CommandBars("MabarreAttachée")
.Enabled = True
.Visible = True
.Protection = msoBarNoCustomize + msoBarNoChangeVisible
End With
End Sub
'-------------------------------
Private Sub Workbook_Deactivate()

With Application.CommandBars("MabarreAttachée")
.Protection = msoBarNoProtection
.Visible = True
.Protection = msoBarNoCustomize + msoBarNoChangeVisible
End With

End Sub
'-------------------------------


Salutations!



"adrien" a écrit dans le message de news:
Bonjour à tous,

Je voudrais savoir s'il existe une commande VBA qui permet d'attacher une
barre d'outils à un fichier excel.
c'est à dire automatiser l'action : clic droit sur une barre d'outils,
"personnaliser...", "attacher...", et mettre dans la partie droite une barre
d'outils personnalisée.

Merci d'avance