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