[求助] 有懂excel&vba的xd吗，锁定单元格怎么实现

Sub 选择锁定单元格()
Dim myRange1 As Range, myRange2 As Range, Rng As Range
Set myRange1 = Range("D1:D20")
'指定被锁定的单元格所在的单元格区域
For Each Rng In myRange1
If myRange2 Is Nothing And Rng.Locked = True Then
Set myRange2 = Rng
End If
If Rng.Locked = True Then
Set myRange2 = Union(myRange2, Rng)
End If
Next myRange2.Select
MsgBox "锁定单元格的地址为:" & myRange2.Address
Set myRange1 = Nothing
End Sub
老哥们帮忙看一下这段代码有什么问题

比如将D5单元格锁定，手动就是：
$D$5


需求就是 单元格公式不随复制粘贴而改变