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

Question

老师你好，你回答的代码怎么不能写在宏的编辑存放处啊？
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

Answer 1

Private Sub Workbook_Open()
这句话是说，这个程序是在工作簿打开的时候就运行的
你要把这个放到“宏”里，就是放在“模块”里的话，去掉第一行，再自己写个
SUB 程序1（）