Private Sub Workbook_Open()
ActiveSheet.Unprotect "123"
Cells.Locked = False
i = 2
Do While Cells(i, 4) <> ""
If Cells(i, 4).Value < Now() Then
Cells(i, 3).Resize(, 4).Locked = True
End If
i = i + 1
Loop
ActiveSheet.Protect "123"
End Sub
追é®è°¢è°¢å¤§ç¥