|
fryday さん、こんにちわ。
>さて、りんさんのコードは具体的にご指導頂いたので試しましたが、2行目の
> .Offset(0, 2).Locked = False '保護しない
>箇所で次のメッセージが表示されエラーとなります。
新規のシートで試したときはエラーにならなかったです。
> Range クラスの Locked プロパティを設定できません。
これが出て、
> Targetcell.Offset(0, 2).Select・・・
Selectしたら出ないのなら、Targetcell.Offset(0, 2)のセルが結合セルではないですか?
もし、結合セルなら、
With targetcell
.Parent.Unprotect Password:="" 'RangeのParentはSheet
.Offset(0, 2).MergeArea.Locked = False '保護しない
.Offset(0, 5).MergeArea.Locked = False '保護しない
.Offset(0, 8).MergeArea.ClearContents 'SendKey{DEL}=>ClearContents
.Offset(0, 8).MergeArea.Locked = True '保護する
.Offset(0, 12).MergeArea.ClearContents 'SendKey{DEL}=>ClearContents
.Offset(0, 12).MergeArea.Locked = True '保護する
.Offset(0, 14).MergeArea.ClearContents 'SendKey{DEL}=>ClearContents
.Offset(0, 14).MergeArea.Locked = False '保護しない
.Parent.Protect Password:=""
End With
です。
ちなみに、こちらの環境はXL2003 & WinXPです。
|
|