|
fryday さん、こんにちわ。
>セルの保護オン・オフについては セル選択してからSelection.Locked = True
>で実行しないと、うまく動作せず前記のような記述になりました。
frydayさんの処理をベタに書くなら、たとえばこんな感じです。
Select Case kubun
Case 1
With Targetcell
.Parent.Unprotect Password:="" 'RangeのParentはSheet
.Offset(0, 2).Locked = False '保護しない
.Offset(0, 5).Locked = False '保護しない
.Offset(0, 8).ClearContents 'SendKey{DEL}=>ClearContents
.Offset(0, 8).Locked = True '保護する
.Offset(0, 12).ClearContents 'SendKey{DEL}=>ClearContents
.Offset(0, 12).Locked = True '保護する
.Offset(0, 14).ClearContents 'SendKey{DEL}=>ClearContents
.Offset(0, 14).Locked = False '保護しない
.Parent.Protect Password:=""
End With
|
|