Cacher "Options"

c'est possible avec le programme suivant

Set CollControls = Application.CommandBars.FindControls(ID:R2)

For I = 1 To CollControls.Count

CollControls(I).Enabled = false
CollControls(I).Visible = false
Next

.enabledúlse empêche la validation
.visibleúlse empeche d'etre visible.

c'est comme tu veux.

Pour le faire réapparaitre ou revalider change false en true et le tour est
joué

Bonjour,

j'ai une question. Est-il possible de cacher le
bouton "Options" dans le menu "Outils"?

Si oui, comment faire et comment afficher a nouveau le
bouton "Options"?

Mais il faut entrer un Private Sub... non?
et lequel je dois entrer?

-----Message d'origine-----
c'est possible avec le programme suivant

Set CollControls = Application.CommandBars.FindControls
(ID:=522)

For I = 1 To CollControls.Count

CollControls(I).Enabled = false
CollControls(I).Visible = false
Next

..enabled=false empêche la validation
..visible=false empeche d'etre visible.

c'est comme tu veux.

Pour le faire réapparaitre ou revalider change false en
true et le tour est

joué

Bonjour,

j'ai une question. Est-il possible de cacher le
bouton "Options" dans le menu "Outils"?

Si oui, comment faire et comment afficher a nouveau le
bouton "Options"?

.

Sub cache()
Application.CommandBars(1).Controls(6).Controls("&Options...").Enabled = False
End Sub

Sub affiche()
Application.CommandBars(1).Controls(6).Controls("&Options...").Enabled = True
End Sub

AV