Unlock only if column date is equal to today's date +/- 2 days

Hello,

I have zero experience with VBA but trying to learn. In the attached spread sheet I am trying to achieve the following through VBA. The sheet will be protected (blank password for the attached file)

1. Lock all cells in a worksheet except for the column where the date in row 1 is equal to current date +/- 2 days. Basically, on any given date, should allow data entry only in one column within 2 days of the current date.

2. I need the macro to work across all sheets in the workbook. The sheets could be named anything - not necessarily Sheet1 / Sheet2 etc.

Thanks a bunch in advance for your efforts.

Thank you, works perfectly. One item I forgot in my original post -

The highlighted cells (B22 - B30) should always remain unlocked.

Would you be kind enough to add this exception to the above code? I am attaching the file with your code in it.

Thanks again.

Sorry, should have been clearer.

It will be the same set of cells in every sheet (B22 - B30).

Thanks again.

I am getting a "Compile error: Syntax error". I have attached a screen image to show you where it is generating the error -

This is how I have the code entered at the moment. I am sure I am doing something wrong. Please advise. Thanks.

For Each ws In ActiveWorkbook.Sheets
With ws
.Unprotect
.Cells.Locked = True
.Range("B22:B30)".Locked = False
Col = .Cells(1, .Columns.Count).End(xlToLeft).Column
Do Until Col = 0
If IsDate(.Cells(1, Col).Value) Then
If Abs(.Cells(1, Col).Value - Date) < 3 Then
.Columns(Col).Locked = False
End If
End If
Col = Col - 1
Loop
.Protect
End With
Next
End Sub

Sorry, should have attached the file itself. Here it is...., if you run the macro you will see the compile error.

Thanks

Oops!!

Sorry about that. Will fix and test. Thx.

Works beautifuly... appreciate your prompt replies and your efforts.