某列中，条件满足的时，自动把本行 公式 转化为 数值，并锁定

我需要自动，
已经实现自动锁定行，
但，公式转化数值弄不起来
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ro As Integer
Dim col As Integer
ro = Range(Target.Address).Row
col = Range(Target.Address).Column
PW = "110" '指定密码
If Target.Column <> 11 Then Exit Sub '检测选择是不是K列
If Target = "√" Then '所在单元是否等于对号
If Target.Row > 3 And Target.Column < 12 Then
ActiveSheet.Unprotect PW
Cells(Target.Row, 1).EntireRow.Locked = True '锁定所在的行
Cells(Target.Row, "l") = Now() '最后一次修改时间记录
ActiveSheet.Protect PW '加密
'【【【【加什么样，代码实现，自动将该行公式转化为数值】】】】】
Exit Sub
Exit Sub
End If
End If
End Sub

有人吗？

有哪些老师帮个忙，