Sub verrouillage()
'
' verouillage Macro
' Macro enregistrée le 20/07/2007 par fixou
'
'
Dim today As Date
Dim borne As Date
today = Date
borne = "31/12/2007"
If (today < borne) Then
Range("C4:Q25,C27:Q31,C34:Q40,C42:Q44,C46:Q50,C52:Q63").Select
Selection.Locked = False
Selection.FormulaHidden = False
Range( _
"A1:Q3,A4:B25,A26:Q26,A27:B31,B32,A32:Q32,A33:Q33,A34:B40,A41:Q41,A42:B44,A45:Q45,A46:B50,A51:Q51,A52:B63,A66:Q66,A68" _
).Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
Range("C4").Select
MsgBox ("A tenir à jour régulièrement, merci")
Else
Range("A1:Q100").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
Range("C4").Select
MsgBox ("Feuille verrouillée car année terminée")
End If
End Sub