Masquer barre d'outils au démarrage

[Arnaud61]

Bonjour,

Alors voilà:

J'ai un premier classeur qui me sert de "menu".

Dans ce classeur j'ai des liens hypertexte qui m'ouvrent des autres classeurs.

Tout fonctionne correctement sauf que lorsque je clic sur le lien hypertexte ça me fait apparaître la barre d'outils "Web".

Y'a-t-il un moyen pour qu'elle ne vienne pas?

J'ai déjà essayé ça:

Application.CommandBars("Web").Visible = False

dans mon workbook.open

Private Sub Workbook_Open()
Range("A6:D65").Select
Selection.Sort Key1:=Range("C6"), Key2:=Range("D6"), Order1:=xlAscending
Range("A1").Select
Application.CommandBars("Web").Visible = False
End Sub

mais cela ne fonctionne pas...

Avez-vous une solution?

Merci

 

[skoobi]

Re : Masquer barre d'outils au démarrage

Bonjour,
mets voir cette macro dans l'évenement "Workbook_SheetChange" et dis-nous.

 

[Arnaud61]

Re : Masquer barre d'outils au démarrage

J'ai mis la macro dans le "Workbook_SheetChange" et ça m'enlève la barre que lorsque je fais une modification dans le fichier.

Lors de l'ouverture de mon fichier, la barre est belle et bien présente...

J'ai essayé de mettre une modification dans mon workbookopen mais ça ne fonctionne pas...

 

[Pierrot93]

Re : Masquer barre d'outils au démarrage

Bonjour Arnaud

pas tout suivi, mais essaye avec la propriété "Enabled", attention surtout de la remettre à "True" à la fermeture du classeur :

à placer dans le module "ThisWorkbook"

Private Sub Workbook_Open()
Application.CommandBars("Web").Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Web").Enabled = True
End Sub

bonne journée
@+

 

[Arnaud61]

Re : Masquer barre d'outils au démarrage

Merci pierrot!

Ca marche nickel!