J'ai une merde!

[Michel]

A l'ouverture de mon classeur je ne veux ni quadrillage, ni barres de défilement:

Dans le thisworkbook j'ai mis :

Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False

End Sub

Tout va bien sauf sur 2 pages qui n'affichent pas les barres mais le quadrillage!! Comment se peut-il?

 

[Ti]

le quadrillage est paramétrable feuille par feuille. ce qui explique que les autres feuilles de ton fichier ne l'aient pas désactivé.

 

[Michel]

OK Ti, merci. Donc comment je dois faire s'il te plait?

 

[Ti]

Voilà :

Private Sub Workbook_Open()
Dim Ws As Worksheet
Application.ScreenUpdating = False
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayVerticalScrollBar = False
.DisplayHorizontalScrollBar = False
.DisplayHeadings = False
For Each Ws In ThisWorkbook.Worksheets
Ws.Activate
.DisplayGridlines = False
Next Ws
End With

'pour revenir à la feuille d'origine
Worksheets("Feuil1").Activate
Application.ScreenUpdating = True
End Sub