Oui, tout simplement en incluant ce que tu souhaites cacher dans la boucle For Each
Dim Ws As Worksheet
For Each Ws In Worksheets
With ActiveWindow
.DisplayHorizontalScrollBar = 0
.DisplayVerticalScrollBar = 0
.DisplayWorkbookTabs = 0
.DisplayHeadings = 0
.DisplayGridlines = 0
End With
If Ws.Index <> 1 Then Ws.Visible = 2
Next
Application.DisplayFormulaBar = 0
If Application.CommandBars.Item("Ribbon").Height > 100 Then
Application.SendKeys "^{F1}"
End If
Bonjour Moustic, le forum,
Voir en protégeant l'onglet et le classeur. ...
A+
If Application.CommandBars.Item("Ribbon").Height > 100 Then
Application.SendKeys "^{F1}"
End If
If Application.CommandBars.Item("Ribbon").Height > 100 Then
Application.SendKeys "^{F1}"
End If
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ws As Worksheet
For Each Ws In Worksheets
With ActiveWindow
.DisplayHorizontalScrollBar = -1
.DisplayVerticalScrollBar = -1
.DisplayWorkbookTabs = -1
.DisplayHeadings = -1
.DisplayGridlines = -1
End With
If Ws.Index <> 1 Then Ws.Visible = 1
Next
If Application.CommandBars.Item("Ribbon").Height < 100 Then
Application.SendKeys "^{F1}"
End If
Application.DisplayFormulaBar = -1
End Sub