Private Sub Workbook_Open()
Dim Fe As Worksheet
If Date > DateValue("01/02/2016") Then
For Each Fe In Worksheets: Fe.Protect "MonMotDePasse": Next Fe
ThisWorkbook.Protect "MonMotDePasse"
End If
End Sub