有没有一个函数可以根据不同单元格的内容锁定已经具有数据验证功能的单元格？

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Range("A1:A10") '设置需要进行数据验证的单元格范围
    
    If Not Intersect(Target, rng) Is Nothing Then '判断修改的单元格是否在范围内
        Application.EnableEvents = False '禁用事件处理，避免死循环
        If Target.Value = "锁定" Then '根据单元格内容进行判断
            Target.Locked = True '锁定单元格
        Else
            Target.Locked = False '解锁单元格
        End If
        Application.EnableEvents = True '启用事件处理
    End If
End Sub