problème affichage barre outils

[mikepers]

Salut, et merci pour ce forum !!
voilà mon problème: je désires que mon fichier s'ouvre avec des barres d'outils spécifiques - j'ai créé une barre d'outil ('navigation') que j'ouvre avec le code suivant :
_______________________________________________________
Private Sub WorkBook_Activate()
On Error Resume Next
With Application.CommandBars('Navigation')
.Enabled = True
.Visible = True

End With
On Error GoTo 0
End Sub

_______________________________________________________

Private Sub WorkBook_Deactivate()
On Error Resume Next
Application.CommandBars('Navigation').Enabled = False
On Error GoTo 0
End Sub
_______________________________________________________
ça fonctionne à merveille, mais en allant plus loin, pour des raisons de mise en page, je désire que les barres d'outils 'Standard' et 'Mise en forme' n'apparaissent pas à l'ouverture. Quelqu'un peut il m'aider ??
Merci

 

[Sylvie]

Bonjour Mikepers,

si tu décoches tout simplement l'affichage de ces deux barres d'outils, ton choix est mémorisé pour toute ouverture d'un nouveau classeur. Elles ne s'afficheront donc pas à l'ouverture. Ce n'est pas ca le sens de ta question ?
A moins que ce ne soit dans ta macro que tu veuilles indiquer leur fermeture ?

Sylvie

 

[mikepers]

Oui Sylvie, je désire réaliser une routine à l'ouverture, car plusieurs personnes utilisent ce classeur, dont la mise en page est optimisée sans ces barres. Hélas, dans la journée, on ouvre souvent d'autres fichiers, qui eux ont besoin de ces barres d'outil.
merci pour tes réponses dans mes autres post, merci mille fois !