Help- Locking column basis current date.

Hi,

Need help in an employee attendance sheet.

The macro should help in following:

1- Should allow to change the attendance for previous and current day. Befor that column should be locked.
2-The attendance cells should not be left blank for a day (attendance should be filled for all active employee, apart from the employee who resigned). This can be verified while saving the sheet.

Attached is the sample file.
Attachment 653

Requesting assistance.

Thanks
Rajesh

Hi ,
This macro solved point # 1

HTML Code:

---

Sub lockclmn()

Dim cell As Range
Dim Range As Range
Set rng1 = Worksheets("Sheet1").Range("C1:O1")
ActiveSheet.Unprotect Password:="test"
 
For Each cell In rng1.Cells
If cell.Value2 < CLng(Date) - 1 Then
cell.EntireColumn.Locked = True
Else
 cell.EntireColumn.Locked = False
End If
Next
ActiveSheet.Protect Password:="test"

End Sub

---

Help is needed in poin#2.

Thanks
Rajesh