OVH Cloud OVH Cloud

item

2 réponses
Avatar
olivier
Bonjour,
comment faire disparaître avec une macro l'item "Fractionner" du menu
Fenêtre à l'ouverture d'un classeur?
merci

2 réponses

Avatar
anonymousA
bonjour,

invalidera tous les controles des barres de menus dont l'ID est égal à
302 soit donc, Fractionner.

Set colcontrols = Application.CommandBars.FindControls(ID:02)
For i = 1 To colcontrols.Count
colcontrols(i).Enabled = False
Next

pour le revalider, passer à true

Mettre cette procédure dans le workbook_open du classeur à ouvrir. Ne
pas oublier de mettre la même proc à true dans le workbook_beforeClose.

A+

Bonjour,
comment faire disparaître avec une macro l'item "Fractionner" du menu
Fenêtre à l'ouverture d'un classeur?
merci




Avatar
Caroline L.
Allo,

Y a t-il une liste des numéros d'ID, comme par exemple dans le cas présent
il s'agit de 302.
Application.CommandBars.FindControls(ID:02)

Merci
Caroline

"anonymousA" a écrit dans le message de news:
4235f72d$0$3100$
bonjour,

invalidera tous les controles des barres de menus dont l'ID est égal à
302 soit donc, Fractionner.

Set colcontrols = Application.CommandBars.FindControls(ID:02)
For i = 1 To colcontrols.Count
colcontrols(i).Enabled = False
Next

pour le revalider, passer à true

Mettre cette procédure dans le workbook_open du classeur à ouvrir. Ne
pas oublier de mettre la même proc à true dans le workbook_beforeClose.

A+

Bonjour,
comment faire disparaître avec une macro l'item "Fractionner" du menu
Fenêtre à l'ouverture d'un classeur?
merci