OVH Cloud OVH Cloud

barre outils perso

2 réponses
Avatar
Arzac
Bonsoir
Je cherche à protéger ma barre d'outils perso en desactivant la possibilité
de modifier en bout de barre. Par ailleurs je voudrai ne pas afficher la
barre de formule, j'ai donc ecrit :
'pour l'enlever
Application.CommandBars("Formula Bar").Enabled = False
'au moment de fermer je la remets
Application.CommandBars("Formula Bar").Enabled = True
Mais la barre ne disparait pas
Merci de votre aide
--
Amicalement
AM

2 réponses

Avatar
anomymousA
re,

pour ta barre d'outils perso

Sub Barreoutils()
With Application.CommandBars("NomDeTaBarreDoutils")
.Protection = msoBarNoCustomize + msoBarNoMove
End With

'Les constantes possibles sont :
'msoBarNoCustomize
'msoBarNoChangeVisible
'msoBarNoResize
'msoBarNoMove
'msoBarNoChangeDock
'msoBarNoHorizontalDock
'msoBarNoVerticalDock

End Sub

Par ailleurs pour la barre de formule ce n'est pas une commanbar.
L'instruction est un membre d'Application et il faut écrire

Application.displayformulabar=true ou false

A+


Bonsoir
Je cherche à protéger ma barre d'outils perso en desactivant la possibilité
de modifier en bout de barre. Par ailleurs je voudrai ne pas afficher la
'pour l'enlever
Application.CommandBars("Formula Bar").Enabled = False
'au moment de fermer je la remets
Application.CommandBars("Formula Bar").Enabled = True
Mais la barre ne disparait pas
Merci de votre aide
--
Amicalement
AM






Avatar
Arzac
Merci
"anomymousA" a écrit dans le message
de news:
re,

pour ta barre d'outils perso

Sub Barreoutils()
With Application.CommandBars("NomDeTaBarreDoutils")
.Protection = msoBarNoCustomize + msoBarNoMove
End With

'Les constantes possibles sont :
'msoBarNoCustomize
'msoBarNoChangeVisible
'msoBarNoResize
'msoBarNoMove
'msoBarNoChangeDock
'msoBarNoHorizontalDock
'msoBarNoVerticalDock

End Sub

Par ailleurs pour la barre de formule ce n'est pas une commanbar.
L'instruction est un membre d'Application et il faut écrire

Application.displayformulabar=true ou false

A+


Bonsoir
Je cherche à protéger ma barre d'outils perso en desactivant la
possibilité
de modifier en bout de barre. Par ailleurs je voudrai ne pas afficher la
'pour l'enlever
Application.CommandBars("Formula Bar").Enabled = False
'au moment de fermer je la remets
Application.CommandBars("Formula Bar").Enabled = True
Mais la barre ne disparait pas
Merci de votre aide
--
Amicalement
AM