Help- Locking column basis current date.

[Rajesh Kr Joshi]

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.
Attendance.xlsx

Requesting assistance.

Thanks
Rajesh

[Rajesh Kr Joshi]

Hi ,
This macro solved point # 1

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