OVH Cloud OVH Cloud

Barre de menu perso

4 réponses
Avatar
Thierry
Bonjour à tous !!

J'ai un souci avec une barre de menu que je crée par macro :
With bo
.Left = 500
.Top = 100
.Name = "Statistiques"
.Protection = msoBarNoChangeVisible + _
msoBarNoMove + msoBarNoResize + msoBarNoCustomize
End With

J'ai supposé que msoBarNoCustomize bloquait l'accès au bouton "Ajouter
ou supprimer des boutons" or il semble que non.... et je ne trouve pas
d'autre option.
Quelqu'un aurait-il une idée ??

Merci d'avance :-))
Thierry

4 réponses

Avatar
Thierry
En fait, mon souci c'est que le menu "Ajouter/Supprimer des boutons ->
Personnaliser" reste accessible... et c'est ce que je ne veux pas !

@+tp

bonjour,

c'est le cas pour ta barre perso.
Pour autant si celle-ci se situe sur un endroit ne permettant pas d'afficher
l'ensemble de ses propres boutons pour des questions de place tout
simplement, il t'est permis d'y acceder en cliquant sur le bouton réprésenté
par deux signes >, mais tu ne pourras de toute façon pas ajouter de nouveaux
boutons ou supprimer des boutons existants.
Je viens de refaire l'essai avec simplement msobarnocustomize.

A+



Bonjour à tous !!

J'ai un souci avec une barre de menu que je crée par macro :
With bo
.Left = 500
.Top = 100
.Name = "Statistiques"
.Protection = msoBarNoChangeVisible + _
msoBarNoMove + msoBarNoResize + msoBarNoCustomize
End With

J'ai supposé que msoBarNoCustomize bloquait l'accès au bouton "Ajouter
ou supprimer des boutons" or il semble que non.... et je ne trouve pas
d'autre option.
Quelqu'un aurait-il une idée ??

Merci d'avance :-))
Thierry





Avatar
anonymousA
ben je suis désolé mais quand on met msobarnocustomize dans protection
d'un commanbar perso, la possibilité Ajouter ou Supprimer des boutons
est invalidée (le texte est en grisé).
Il doit y avoir autre chose que tu ne dis pas pour que ca reste vrai
pour toi.

A+

En fait, mon souci c'est que le menu "Ajouter/Supprimer des boutons ->
Personnaliser" reste accessible... et c'est ce que je ne veux pas !

@+tp


bonjour,

c'est le cas pour ta barre perso. Pour autant si celle-ci se situe sur
un endroit ne permettant pas d'afficher l'ensemble de ses propres
boutons pour des questions de place tout simplement, il t'est permis
d'y acceder en cliquant sur le bouton réprésenté par deux signes >,
mais tu ne pourras de toute façon pas ajouter de nouveaux boutons ou
supprimer des boutons existants.
Je viens de refaire l'essai avec simplement msobarnocustomize.

A+



Bonjour à tous !!

J'ai un souci avec une barre de menu que je crée par macro :
With bo
.Left = 500
.Top = 100
.Name = "Statistiques"
.Protection = msoBarNoChangeVisible + _
msoBarNoMove + msoBarNoResize + msoBarNoCustomize
End With

J'ai supposé que msoBarNoCustomize bloquait l'accès au bouton
"Ajouter ou supprimer des boutons" or il semble que non.... et je ne
trouve pas d'autre option.
Quelqu'un aurait-il une idée ??

Merci d'avance :-))
Thierry







Avatar
Thierry
J'ai testé les options une par une, et toutes fonctionnent SAUF
msobarNocustomize....
J'ai dit tout ce que je sais...ce qui ne veut pas dire que je sais
beaucoup de choses sur VBA !!
@+tp

ben je suis désolé mais quand on met msobarnocustomize dans protection
d'un commanbar perso, la possibilité Ajouter ou Supprimer des boutons
est invalidée (le texte est en grisé).
Il doit y avoir autre chose que tu ne dis pas pour que ca reste vrai
pour toi.

A+


En fait, mon souci c'est que le menu "Ajouter/Supprimer des boutons ->
Personnaliser" reste accessible... et c'est ce que je ne veux pas !

@+tp


bonjour,

c'est le cas pour ta barre perso. Pour autant si celle-ci se situe
sur un endroit ne permettant pas d'afficher l'ensemble de ses propres
boutons pour des questions de place tout simplement, il t'est permis
d'y acceder en cliquant sur le bouton réprésenté par deux signes >,
mais tu ne pourras de toute façon pas ajouter de nouveaux boutons ou
supprimer des boutons existants.
Je viens de refaire l'essai avec simplement msobarnocustomize.

A+



Bonjour à tous !!

J'ai un souci avec une barre de menu que je crée par macro :
With bo
.Left = 500
.Top = 100
.Name = "Statistiques"
.Protection = msoBarNoChangeVisible + _
msoBarNoMove + msoBarNoResize + msoBarNoCustomize
End With

J'ai supposé que msoBarNoCustomize bloquait l'accès au bouton
"Ajouter ou supprimer des boutons" or il semble que non.... et je ne
trouve pas d'autre option.
Quelqu'un aurait-il une idée ??

Merci d'avance :-))
Thierry









Avatar
Thierry
Je viens d'essayer avec mon Excel 2002 SP3 et j'ai un beau message
"Membre de méthode inconnu etc etc..." Effectivement la méthode
n'apparait pas dans la liste de choix...

Le monde serait-il meilleur sans Microsoft ??!!
@+

re,

essaie une varainte de ce qui suit ( extrait de MDSN sur la propriété
DisableCustomize de l'objet Commandbars). Cette propréité n'existe que depuis
Excel 2002 que je n'ai pas donc pas moyen de tester.

Si ca ne marche pas, envoie moi ton fichier (si tu utilises un Excel < 2002)
si tu le souhaites à


True if toolbar customization is disabled. Read/write Boolean.

expression.DisableCustomize

expression Required. An expression that returns one of the objects in the
Applies To list.

Example
The following example toggles the DisableCustomize property.

Sub ToggleCustomize()
With Application.CommandBars
If .DisableCustomize = True Then
.DisableCustomize = False
Else
.DisableCustomize = True
End If
End With
End Sub

A+



J'ai testé les options une par une, et toutes fonctionnent SAUF
msobarNocustomize....
J'ai dit tout ce que je sais...ce qui ne veut pas dire que je sais
beaucoup de choses sur VBA !!
@+tp


ben je suis désolé mais quand on met msobarnocustomize dans protection
d'un commanbar perso, la possibilité Ajouter ou Supprimer des boutons
est invalidée (le texte est en grisé).
Il doit y avoir autre chose que tu ne dis pas pour que ca reste vrai
pour toi.

A+



En fait, mon souci c'est que le menu "Ajouter/Supprimer des boutons ->
Personnaliser" reste accessible... et c'est ce que je ne veux pas !

@+tp



bonjour,

c'est le cas pour ta barre perso. Pour autant si celle-ci se situe
sur un endroit ne permettant pas d'afficher l'ensemble de ses propres
boutons pour des questions de place tout simplement, il t'est permis
d'y acceder en cliquant sur le bouton réprésenté par deux signes >,
mais tu ne pourras de toute façon pas ajouter de nouveaux boutons ou
supprimer des boutons existants.
Je viens de refaire l'essai avec simplement msobarnocustomize.

A+




Bonjour à tous !!

J'ai un souci avec une barre de menu que je crée par macro :
With bo
.Left = 500
.Top = 100
.Name = "Statistiques"
.Protection = msoBarNoChangeVisible + _
msoBarNoMove + msoBarNoResize + msoBarNoCustomize
End With

J'ai supposé que msoBarNoCustomize bloquait l'accès au bouton
"Ajouter ou supprimer des boutons" or il semble que non.... et je ne
trouve pas d'autre option.
Quelqu'un aurait-il une idée ??

Merci d'avance :-))
Thierry