VBA锁定指定单元格

If rs.RecordCount > 0 Then
                .Range("AF4").Value = pjno
                MsgBox "This project number does exists Please create a new one !", 16
                .Range("A1:AH56").Locked = False
                .Range("F6:M6").Locked = True
                ActiveSheet.Protect Password:="locked"
                Exit Sub
Else
               
                
                .Range("AF4").Value = pjno
            
End If

2021-08-11
2021-05-13
2021-07-24
2022-12-23
2022-12-23
2021-10-11
2022-02-09
2022-12-23