特定の文字（値）だけをクリアしたい

質問

現在、以下のようなVBAコードを使ってシート内にクリアボタンを作っています。（先日こちらでご教授いただきました）
Sub クリア()
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
このコードはシート内のすべての文字（値）を削除します。

管理番号　　 ←セルの保護をしています
＊＊＊＊　　←保護していません
型番　　　　　←保護をしています
＊＊＊＊　　←保護していません

＊＊＊＊の部分だけを削除したい場合、似たようなやり方では可能でしょうか？
ちなみにこの時点で上記コードのクリアボタンを押すと、保護を解除しなさいという、メッセージが出てきます。
保護をしつつ、クリアしたいのですが恐縮ですがご教授ください。

回答No.3

hana-hana3 · ベストアンサー

＞セルを結合しているのですが（横３つ分）この場合はだめなんでしょうか…???

結合セルに対応して見ました。

Sub クリア2()
Dim C As Range
ActiveSheet.Unprotect
For Each C In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 23)
If C.Locked = False Then
If C.MergeCells Then
C.MergeArea.ClearContents
Else
C.ClearContents
End If
End If
Next
ActiveSheet.Protect
End Sub

お礼

お礼が遅くなってしまいスミマセン！
完璧でした。おかげで今は非常に助かっています。
ありがとうございました！

回答No.2

imogasi

例データ
aa
11
bb
22
cc
22
dd
44
CTRLを押しながらaa,bb,cc,ddのセルを指定。
書式ーセルー保護ーロックにV
CTRLを押しながら11,22,33,44のセルを指定。
書式ーセルー保護ーロック欄を空白にする
ツールー保護ーシートの保護ーロックされていない・・を選択
ーーーー
上記全体のセルを範囲指定して、下記を実行。
Sub test01()
Dim cl As Range
ActiveSheet.Unprotect
For Each cl In Selection
If cl.Locked = False Then
MsgBox cl.Address
cl.ClearContents
End If
Next
ActiveSheet.Protect
End Sub
結果
aa

bb

cc

dd

になりました。

補足

ご回答ありがとうございます。
保護の設定までは出来たのですが、以下ができませんでした。
＞上記全体のセルを範囲指定して、下記を実行。
について方法が分からなかったのですが、どのようにすればよいのでしょうか。

ちなみに私はこのようにやってみました。
クリアボタンを設置したいシートに合わせて、Alt+F11
設置したいシートに合わせて右クリック→挿入→標準モジュール→教えていただいたコードをコピペ
次に設置したいシート内で四角形を作成→マクロの登録→教えていただいたコードに合わせてＯＫ（この場合はtest01でしょうか）

そうすると下の方が教えて頂いた結果と同じように「エラー1004、結合されたセルの一部を変更することはできません」が出てしまいまいました。

回答No.1

hana-hana3

シートの保護を解除して、保護されていないセルの値を削除し、シートの保護をかけます。

Sub クリア()
Dim C As Range
ActiveSheet.Unprotect
For Each C In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 23)
If C.Locked = False Then C.ClearContents
Next
ActiveSheet.Protect
End Sub

お礼

ありがとうございます。
やってみたのですが、エラー1004　結合されたセルの一部を変更することはできませんとでてしまいました。
セルを結合しているのですが（横３つ分）この場合はだめなんでしょうか…???