moi aussi j'veux cacher ma barre menu!

[lotus]

Salut,

Moi aussi j'aimerais bien cacher ma barre menu mais j'arrive pas à telecharger ton zip...

Merci.

 

[Cathy]

lotus,

vite fait, comme ça, pioche là-dedans :

ATTENTION!!! N'oublie pas de tout remettre comme il faut en quittant!!!

Application.WindowState = xlMaximized
Application.CommandBars(1).Enabled = False ' barre de menus
Application.DisplayFullScreen = True
Application.DisplayStatusBar = False 'barre d'état
Application.DisplayFormulaBar = False 'barre de formules
'barres d'outils
'Application.CommandBars("Standard").Visible = False
'Application.CommandBars("Formatting").Visible = False
'Application.CommandBars("Drawing").Visible = False
Application.ScreenUpdating = False
With ActiveWindow
.DisplayWorkbookTabs = False 'onglets
.DisplayVerticalScrollBar = False ' barres défilement
.DisplayHorizontalScrollBar = False
.DisplayHeadings = False 'en-têtes
For Each Ws In ThisWorkbook.Worksheets
Ws.Activate
.DisplayGridlines = False 'quadrillage
Next Ws
End With

Cathy