ロックしていないセルだけに移動したい場合がありますよね。
そのような方には下記コードをお試しください。
下記コードは、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