akni
XLDnaute Nouveau
Bonsoir tout le monde,
je veux masquer les feuille à la fermeture du fichier par le code suivant :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Home").Select
Protect
For I = 2 To Worksheets.Count
If Sheets(I).Visible = -1 Then
Sheets(I).Visible = 2
End If
Next I
End Sub
je veux masquer les feuille à la fermeture du fichier par le code suivant :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Home").Select
Protect
For I = 2 To Worksheets.Count
If Sheets(I).Visible = -1 Then
Sheets(I).Visible = 2
End If
Next I
End Sub