OVH Cloud OVH Cloud

Protection d'un menu

2 réponses
Avatar
ThierryP
Bonjour !

J'ai un problème avec la protection d'une barre de menu que je crée.
Selon l'aide, avec le code ci-dessous la barre est verrouillée et non
modifiable et c'est vrai !! Par contre, je n'arrive pas à supprimer
l'accès à "Ajouter / Supprimer des boutons" (petit triangle en haut à
droite), qui ouvre le menu "Personnaliser".

Set tbo = Application.CommandBars.Add(Validation)
With tbo
.Left = 800
.Top = 200
.Name = "Validation"
.Protection = msoBarNoCustomize + msoBarNoMove _
+ msoBarNoChangeVisible + msoBarNoResize
End With

Que puis-je faire de plus pour supprimer cet accès (même si en pratique
on ne peut rajouter de bouton)

Merci d'avance

thierryp

2 réponses

Avatar
michdenis
Bonjour ThierryP,

Je ne crois pas que cela soit possible pour seulement une barre d'outils seulement.

Mais pour empêcher la personnalisation de l'ensemble des barres

sous excel 2003 et 2002, il y a ceci : Le bouton s'affiche mais le sous-menu est inactivé.

Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars.DisableCustomize = True


Salutations!




"ThierryP" a écrit dans le message de news: eIZeJm$
Bonjour !

J'ai un problème avec la protection d'une barre de menu que je crée.
Selon l'aide, avec le code ci-dessous la barre est verrouillée et non
modifiable et c'est vrai !! Par contre, je n'arrive pas à supprimer
l'accès à "Ajouter / Supprimer des boutons" (petit triangle en haut à
droite), qui ouvre le menu "Personnaliser".

Set tbo = Application.CommandBars.Add(Validation)
With tbo
.Left = 800
.Top = 200
.Name = "Validation"
.Protection = msoBarNoCustomize + msoBarNoMove _
+ msoBarNoChangeVisible + msoBarNoResize
End With

Que puis-je faire de plus pour supprimer cet accès (même si en pratique
on ne peut rajouter de bouton)

Merci d'avance

thierryp
Avatar
ThierryP
Une fois de plus, merci pour le coup de main !!

Merci

thierryp

Bonjour ThierryP,

Je ne crois pas que cela soit possible pour seulement une barre d'outils seulement.

Mais pour empêcher la personnalisation de l'ensemble des barres

sous excel 2003 et 2002, il y a ceci : Le bouton s'affiche mais le sous-menu est inactivé.

Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars.DisableCustomize = True


Salutations!




"ThierryP" a écrit dans le message de news: eIZeJm$
Bonjour !

J'ai un problème avec la protection d'une barre de menu que je crée.
Selon l'aide, avec le code ci-dessous la barre est verrouillée et non
modifiable et c'est vrai !! Par contre, je n'arrive pas à supprimer
l'accès à "Ajouter / Supprimer des boutons" (petit triangle en haut à
droite), qui ouvre le menu "Personnaliser".

Set tbo = Application.CommandBars.Add(Validation)
With tbo
.Left = 800
.Top = 200
.Name = "Validation"
.Protection = msoBarNoCustomize + msoBarNoMove _
+ msoBarNoChangeVisible + msoBarNoResize
End With

Que puis-je faire de plus pour supprimer cet accès (même si en pratique
on ne peut rajouter de bouton)

Merci d'avance

thierryp