Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Apparition / Disparition des items des menus

4 réponses
Avatar
Pierre Dumas
Bonjour tout le monde

Je voudrais rendre impossible d'aller dans l'item Options=20
du menu Outils.
Pour cela, je fais la macro :
Application.CommandBars("tools").FindControl
(ID:=3D522).Enabled =3D False

Cela marche bien, car le menu devient gris=E9.
Mais il suffit de faire Affichage/Barres=20
d'outils/Personnaliser/Barre de menu Feuille de calcul(en=20
2000)/R=E9tablir pour faire r=E9appara=EEtre Outils/Options.
Existe-t'il un moyen d'emp=EAcher de le faire revenir ?

Merci

Pierre

4 réponses

Avatar
Croquignol
Salut Pierre,

Ajoute cette instruction :

Application.CommandBars("ToolBar List").Enabled = False

Attention, il est impératif de remettre cette propriété sur True à la sortie
de ton application sinon tes utilisateurs auront du mal à personnaliser
leurs barres d'outils.

Amicalement,

Croquignol


Bonjour tout le monde

Je voudrais rendre impossible d'aller dans l'item Options
du menu Outils.
Pour cela, je fais la macro :
Application.CommandBars("tools").FindControl
(ID:R2).Enabled = False

Cela marche bien, car le menu devient grisé.
Mais il suffit de faire Affichage/Barres
d'outils/Personnaliser/Barre de menu Feuille de calcul(en
2000)/Rétablir pour faire réapparaître Outils/Options.
Existe-t'il un moyen d'empêcher de le faire revenir ?

Merci

Pierre


Avatar
Pierre Dumas
Ajoute cette instruction :

Application.CommandBars("ToolBar List").Enabled = False


La voila la solution !!!!!!

Merci beaucoup

Pierre

Avatar
Filochard
;-)))
en l'absence de Ribouldingue et pour ne pas etre en reste
;-)))

il peut etre parfois utile également de préciser :
Application.CommandBars("ToolBar List").Visible = True ou
False selon le cas...
@+
-----Message d'origine-----

Salut Pierre,

Ajoute cette instruction :

Application.CommandBars("ToolBar List").Enabled = False

Attention, il est impératif de remettre cette propriété
sur True à la sortie

de ton application sinon tes utilisateurs auront du mal à
personnaliser

leurs barres d'outils.

Amicalement,

Croquignol


Bonjour tout le monde

Je voudrais rendre impossible d'aller dans l'item
Options


du menu Outils.
Pour cela, je fais la macro :
Application.CommandBars("tools").FindControl
(ID:R2).Enabled = False

Cela marche bien, car le menu devient grisé.
Mais il suffit de faire Affichage/Barres
d'outils/Personnaliser/Barre de menu Feuille de calcul
(en


2000)/Rétablir pour faire réapparaître Outils/Options.
Existe-t'il un moyen d'empêcher de le faire revenir ?

Merci

Pierre
.





Avatar
Croquignol
Toujours prêt à faire le malin, ce Filoch. ;-)

Croq


;-)))
en l'absence de Ribouldingue et pour ne pas etre en reste
;-)))

il peut etre parfois utile également de préciser :
Application.CommandBars("ToolBar List").Visible = True ou
False selon le cas...
@+
-----Message d'origine-----

Salut Pierre,

Ajoute cette instruction :

Application.CommandBars("ToolBar List").Enabled = False

Attention, il est impératif de remettre cette propriété
sur True à la sortie

de ton application sinon tes utilisateurs auront du mal à
personnaliser

leurs barres d'outils.

Amicalement,

Croquignol


Bonjour tout le monde

Je voudrais rendre impossible d'aller dans l'item
Options


du menu Outils.
Pour cela, je fais la macro :
Application.CommandBars("tools").FindControl
(ID:R2).Enabled = False

Cela marche bien, car le menu devient grisé.
Mais il suffit de faire Affichage/Barres
d'outils/Personnaliser/Barre de menu Feuille de calcul
(en


2000)/Rétablir pour faire réapparaître Outils/Options.
Existe-t'il un moyen d'empêcher de le faire revenir ?

Merci

Pierre
.