满足条件保护指定单元格VBA代码

Question

当D列的日期小于当前日期时，该行的C列到F列为只读（不能修改），可以设置个保护密码：123，不影响其他区域VBA代码

Answer 1

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追问

谢谢大神