Hulk
XLDnaute Barbatruc
Hello tout le monde,
Les codes ci-dessous ne devraient-ils pas ôter puis remettre les barres de défilement, onglets et les en-têtes de toutes les feuilles du classeur ?
Merci pour votre aide !
Bonne fin de we, Hulk.
Les codes ci-dessous ne devraient-ils pas ôter puis remettre les barres de défilement, onglets et les en-têtes de toutes les feuilles du classeur ?
Code:
Private Sub Workbook_Open()
With ActiveWindow
.DisplayHeadings = False
.DisplayWorkbookTabs = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End Sub
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveWindow
.DisplayHeadings = True
.DisplayWorkbookTabs = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
End Sub
Bonne fin de we, Hulk.