lock up rows w/dates diff than current year
 

Please, HelP!!!
I have a sheet where the User inputs daily information and it spans over
several
years. I want to restrict the use of cells in all years but the current year.
I need something like this matching current year's dates
Four years span:
2004-2007 A1:A1461
For 2004:

Dim ws As Worksheet
Set ws = Sheet (1)
ws.Unprotect
ws.Rows(367:1461).EntireRow.Locked = True
ws.Protect

Thanks!