Bonjour,
J'ai pris dans ExcelLabo une macro pour cacher les barres de menus
dans une feuille, et la restitue à la fermeture:
Private Sub Workbook_Deactivate()
Dim Barre As Variant
For Each Barre In Barres
Application.CommandBars(Barre).Visible = True
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = True
End Sub
Mais la barre des formules reste visible, j'aurai voulu la cacher
aussi.
merci pour votre aide.
michel
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Dédé
Salut Michel !
tu pourrais ajouter ceci en début de proc : Application.DisplayFormulaBar = False et ceci en fin de proc Application.DisplayFormulaBar = True
Est-ce que cela te convient ....
Salutations Dédé
-- Pour répondre, enlever le NOSPAM a écrit dans le message de news:
Bonjour, J'ai pris dans ExcelLabo une macro pour cacher les barres de menus dans une feuille, et la restitue à la fermeture: Private Sub Workbook_Deactivate() Dim Barre As Variant For Each Barre In Barres Application.CommandBars(Barre).Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub Mais la barre des formules reste visible, j'aurai voulu la cacher aussi. merci pour votre aide. michel
Salut Michel !
tu pourrais ajouter ceci en début de proc :
Application.DisplayFormulaBar = False
et ceci en fin de proc
Application.DisplayFormulaBar = True
Est-ce que cela te convient ....
Salutations
Dédé
--
Pour répondre, enlever le NOSPAM
<mic3812@tiscali.fr> a écrit dans le message de
news:3f852945.554808@news.free.fr...
Bonjour,
J'ai pris dans ExcelLabo une macro pour cacher les barres de menus
dans une feuille, et la restitue à la fermeture:
Private Sub Workbook_Deactivate()
Dim Barre As Variant
For Each Barre In Barres
Application.CommandBars(Barre).Visible = True
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = True
End Sub
Mais la barre des formules reste visible, j'aurai voulu la cacher
aussi.
merci pour votre aide.
michel
tu pourrais ajouter ceci en début de proc : Application.DisplayFormulaBar = False et ceci en fin de proc Application.DisplayFormulaBar = True
Est-ce que cela te convient ....
Salutations Dédé
-- Pour répondre, enlever le NOSPAM a écrit dans le message de news:
Bonjour, J'ai pris dans ExcelLabo une macro pour cacher les barres de menus dans une feuille, et la restitue à la fermeture: Private Sub Workbook_Deactivate() Dim Barre As Variant For Each Barre In Barres Application.CommandBars(Barre).Visible = True Next Barre Application.CommandBars("worksheet menu bar").Enabled = True End Sub Mais la barre des formules reste visible, j'aurai voulu la cacher aussi. merci pour votre aide. michel