エクセル|ロックしていないセルだけに移動したい

ロックしていないセルだけに移動したい場合がありますよね。
そのような方には下記コードをお試しください。
下記コードは、A2 , B3, C4, D5, E6のみ移動します。
Smp_1を実行して確認してください。
SMP_2でロックしたセルを解除します。

Sub SMP_1()
‘下記コードは、A2 , B3, C4, D5, E6のみ移動可能

With Worksheets(“Sheet1”)
  .Unprotect
  .Cells.Locked = True
  .Range(“A2,B3,C4,D5,E6”).Locked = False
  .Protect
  .EnableSelection = xlUnlockedCells
End With
End Sub
‘————————————————————-
Sub SMP_2()
‘ロックしているセルを解除(全てのセルを移動可能にする)
Worksheets(“Sheet1”).Unprotect
End Sub