macro sur la bare d'outils

[NicolasE]

Bonjour à tous,

Voici mon probleme:
Sur mon classeur excel qui comporte plus de 70 feuilles, j'aimerai que sur une feuille seulement (celle du SOMMAIRE) il n'y ai pas les barres d'outils suivantes:
-mise en forme
-dessin
-Visual Basic

MAIS je doit absolument laissé les barres d'outils ci-dessus sur la totalités des autres feuilles.

Voila le programme que j'ai fait:

Private sub MiseEnForme

Application.CommandBars("Drawing").Visible = False 'True
Application.CommandBars("Forms").Visible = False 'True
Application.CommandBars("Formatting").Visible = False 'True
Application.CommandBars("Reviewing").Visible = False 'True
Application.CommandBars("Visual Basic").Visible = False 'True

End Sub

Je precise que j'ai mis cette subroutine sur la feuille concernée (SOMMAIRE)

LE probleme est que cette fonction ne marche pas...Elle n'enleve aucune de ces barre d'outils citées plus haut
En revanche quand j'ecris cette fonction dans le Workbook, les barres d'outils s'enlevent mais sur TOUTES les feuilles et pas seulement sur la feuille SOMMAIRE.

Quelqu'un pourrait-il me venir en aide??Merci pour vos reponses.

 

[chris]

Re : macro sur la bare d'outils

Bonjour

Il faudrait mettre ce code sur
Private Sub Worksheet_Activate()

et l'inverser sur
Private Sub Worksheet_Deactivate()

 

[NicolasE]

Re : macro sur la bare d'outils

Bonjour Chris,
Pourrais tu m'expliquer plus précisemment ce que tu m'a ecrit s'il te plait?
Je ne suis pas un expert en VBA, et j'ai donc un peu de mal à comprendre!😱
Merci beaucoup

 

[tototiti2008]

Re : macro sur la bare d'outils

Bonjour à tous,

en plus précis :

Dans l'éditeur Visual Basic, dans la feuille Sommaire, colle le code suivant :

Private Sub Worksheet_Activate()
[COLOR=#0000ff]Application.CommandBars("Drawing").Visible = False [/COLOR]
[COLOR=#0000ff]Application.CommandBars("Forms").Visible = False [/COLOR]
[COLOR=#0000ff]Application.CommandBars("Formatting").Visible = False [/COLOR]
[COLOR=#0000ff]Application.CommandBars("Reviewing").Visible = False [/COLOR]
[COLOR=#0000ff]Application.CommandBars("Visual Basic").Visible = False [/COLOR]
[COLOR=blue]End Sub[/COLOR]
 
Private Sub Worksheet_Deactivate()
[COLOR=#0000ff]Application.CommandBars("Drawing").Visible = true[/COLOR]
[COLOR=#0000ff]Application.CommandBars("Forms").Visible = true[/COLOR]
[COLOR=#0000ff]Application.CommandBars("Formatting").Visible = true[/COLOR]
[COLOR=#0000ff]Application.CommandBars("Reviewing").Visible = true[/COLOR]
[COLOR=#0000ff]Application.CommandBars("Visual Basic").Visible = true[/COLOR]
[COLOR=blue]End Sub[/COLOR]

 

[NicolasE]

Re : macro sur la bare d'outils

bonjour TOTOTITI2008,

Merci pour ta reponse, ca marche parfaitement!!!
A bientot!

Nicolas.