Private Sub Workbook_Open()
Dim F As Object, s As Object
Set F = ActiveSheet 'mémorise la feuille
Application.ScreenUpdating = False
For Each s In Sheets
s.EnableAutoFilter = True
s.EnableOutlining = True
s.Protect Contents:=True, Password:="TOTO", UserInterfaceOnly:=True
s.Activate
ActiveWindow.Zoom = 80
Next
F.Activate 'restitution
End Sub