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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <adrien@discussions.microsoft.com> a écrit dans le message de news: F3482180-1B83-4B06-BE22-2CB2B6108EEE@microsoft.com...
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.
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.