Private Sub Workbook_Open()
Dim Date1 As Date, Date2 As Date
Date1 = CDate("01/07/2008")
Date2 = CDate("02/07/2008")
With Feuil1
If Date < Date1 Or Date > Date2 Then
.Protect "MotDePasse"
Else
.Unprotect "MotDePasse"
End If
End With
End Sub