Private Sub Workbook_Open()
If Environ("Username") = "durand" Or Environ("Username") = "dupont" Then
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Visible = True 'affiche toutes les feuilles
Next
Sheets(1).Visible = xlVeryHidden 'masque la 1ère feuille
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Integer
Sheets(1).Visible = True 'affiche la 1ère feuille
For i = 2 To Sheets.Count
Sheets(i).Visible = xlVeryHidden 'masque les autres feuilles
Next
ThisWorkbook.Save 'enregistre le fichier
End Sub