Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
If Sheets(s).Name <> "Feuil1" Then Sheets(s).Visible = xlVeryHidden
Next
Application.ScreenUpdating = True
End Sub
Private Sub Workbook_Open()
Application.ScreenUpdating = False
With Sheets("Admin")
For i = 2 To Sheets("Admin").Range("A6500").End(xlUp).Row
If UCase(.Cells(i, 1)) = UCase(Environ("UserName")) Then
Sheets(.Cells(i, 2).Text).Visible = True
End If
Next
End With
Application.ScreenUpdating = True
End Sub