Barre de Menu

bonjour Dardevil,

voie sur ce lien, y a tout plein d'exemples,

http://www.excelabo.net/xl/barres.htm

isabelle

Bonjour a tous...

Je sais que cette question à été posé surement plus d'une fois... mais je
trouve pas ce que je veut... enfin je pense que j'ai pas toutes les
réponses, elles sont plus affiché..

Comment désactivé par exemple, dans le menu fichier d'excel, l'option
imprimer, ou dans outils, option...

Ou trouve t'on les ID. EN fonction d'un classeur, j'aimerai afficher ces
menus ou pas...

Bref je chercher mais ne trouve pas...snif..

DARDEVIL

bonjour

j'ai fait le tour du site entier... mais je n'ai pas vu comment faire pour
isoler un element d'un sous menu, ainsi que les ID et la syntaxe pour faire
ca...

Si tu peut m'aider...

Merci
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:3F992853.C4EC2530@videotron.ca...

bonjour Dardevil,

voie sur ce lien, y a tout plein d'exemples,

http://www.excelabo.net/xl/barres.htm

isabelle

Bonjour a tous...

Je sais que cette question à été posé surement plus d'une fois... mais
je

trouve pas ce que je veut... enfin je pense que j'ai pas toutes les
réponses, elles sont plus affiché..

Comment désactivé par exemple, dans le menu fichier d'excel, l'option
imprimer, ou dans outils, option...

Ou trouve t'on les ID. EN fonction d'un classeur, j'aimerai afficher ces
menus ou pas...

Bref je chercher mais ne trouve pas...snif..

DARDEVIL

Comment désactivé par exemple, dans le menu fichier d'excel, l'option
imprimer, ou dans outils, option...

Une....

With Application.CommandBars(1).Controls(1)
.Controls("&Mise en page...").Enabled = False
.Controls("&Zone d'impression").Enabled = False
.Controls("&Aperçu avant Impression").Enabled = False
.Controls("&Imprimer...").Enabled = False
End With

AV

Merci

Je doit etre trop nul...

Mais j'ai mis ton code ds une macro....

Rien de ne passe... enfin, les menu sont toujours apparent en loccurence,
imprimer...... etc...

Je comprend vraiment rien...



"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:bnbb27$757$1@news-reader2.wanadoo.fr...

Comment désactivé par exemple, dans le menu fichier d'excel, l'option
imprimer, ou dans outils, option...

Une....

With Application.CommandBars(1).Controls(1)
.Controls("&Mise en page...").Enabled = False
.Controls("&Zone d'impression").Enabled = False
.Controls("&Aperçu avant Impression").Enabled = False
.Controls("&Imprimer...").Enabled = False
End With

AV

Copier/coller dans un module ordinaire puis exécuter ..

Sub Sup()
With Application.CommandBars(1).Controls(1)
.Controls("&Mise en page...").Enabled = False
.Controls("&Zone d'impression").Enabled = False
.Controls("&Aperçu avant Impression").Enabled = False
.Controls("&Imprimer...").Enabled = False
End With
End Sub

Sub restaur()
With Application.CommandBars(1).Controls(1)
.Controls("&Mise en page...").Enabled = True
.Controls("&Zone d'impression").Enabled = True
.Controls("&Aperçu avant Impression").Enabled = True
.Controls("&Imprimer...").Enabled = True
End With
End Sub

AV

bon je doit avoir un souci sur mon truc...

ca marche pas...

Et comment désactiver un menu complet, style tout fichier ou tout option...?

Mais je galere bien avec ca...
On peut m'expliquer la syntaxe...

Un grand merci

"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:bnbc1l$lvq$2@news-reader3.wanadoo.fr...

Copier/coller dans un module ordinaire puis exécuter ..

Sub Sup()
With Application.CommandBars(1).Controls(1)
.Controls("&Mise en page...").Enabled = False
.Controls("&Zone d'impression").Enabled = False
.Controls("&Aperçu avant Impression").Enabled = False
.Controls("&Imprimer...").Enabled = False
End With
End Sub

Sub restaur()
With Application.CommandBars(1).Controls(1)
.Controls("&Mise en page...").Enabled = True
.Controls("&Zone d'impression").Enabled = True
.Controls("&Aperçu avant Impression").Enabled = True
.Controls("&Imprimer...").Enabled = True
End With
End Sub

AV

bonjour Dardevil,

voici une macro qui liste les différents items de cette collection
CommandBars.

Sub ListeCommandBar()
Dim Mbar As CommandBar
For Each Mbar In Application.CommandBars
x = x + 1
Range("A" & X) = Mbar.Name
Range("b" & X) = Mbar.ID
On Error Resume Next
Nb = Mbar.Controls.Count
For a = 1 To Nb
Cells(x, a + 2) = Mbar.Controls(a).Caption
Next
Next
End Sub

pour avoir les ID de chacun, tu doit remplacer
Cells(x, a + 2) = Mbar.Controls(a).caption
par
Cells(x, a + 2) = Mbar.Controls(a).ID

isabelle

bonjour

j'ai fait le tour du site entier... mais je n'ai pas vu comment faire pour
isoler un element d'un sous menu, ainsi que les ID et la syntaxe pour faire
ca...

Si tu peut m'aider...

Merci
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:3F992853.C4EC2530@videotron.ca...

bonjour Dardevil,

voie sur ce lien, y a tout plein d'exemples,

http://www.excelabo.net/xl/barres.htm

isabelle

Bonjour a tous...

Je sais que cette question à été posé surement plus d'une fois... mais
je

trouve pas ce que je veut... enfin je pense que j'ai pas toutes les
réponses, elles sont plus affiché..

Comment désactivé par exemple, dans le menu fichier d'excel, l'option
imprimer, ou dans outils, option...

Ou trouve t'on les ID. EN fonction d'un classeur, j'aimerai afficher ces
menus ou pas...

Bref je chercher mais ne trouve pas...snif..

DARDEVIL

bon je doit avoir un souci sur mon truc...

Ben je crois aussi.... !

Et comment désactiver un menu complet, style tout fichier
Application.CommandBars(1).Controls(1).Enabled = False

Mais si le reste marchait pas...
AV