sheetsの保護されていないセルの値を消去

質問

エクセル2010です。

ネットでも検索してみましたが・・・

sheetsの保護されていないセルの値をいっぺんに消去したいのですが

全部選択した状態だと　できませんのは　わかりますが

マクロを使う方法以外に　方法は　ないのでしょうか？

↓の質問のページは　拝見しました

＞http://questionbox.jp.msn.com/qa588853.html

よろしくお願いします。

回答No.4

keithin · ベストアンサー

はい？？

＞名前ボックスを利用するやりかたですね。

いいえ。そうではありません。
ご説明した肝心の内容をまるきりスルーして，口先だけで返答されても，そんなことをお話ししたんじゃありませんよとお返しするしかないですね。

お礼

keithinさん　回答ありがとうございました。

大変勉強になりました。

回答No.3

keithin

＞マクロを使う方法以外に　方法は　ないのでしょうか？

ということは，多少の操作で手を動かすのはヤブサカではないという事でいいですね。

手順：
Ctrl+Fで検索のダイアログを出す
ダイアログのオプション>>を開く
現れた書式▼ボタンで「書式」を開始，保護のタブで「ロック」が緑色になっているのをクリックして白くしてＯＫする
検索する文字列欄は何も記入しないまま，「すべて検索」する
ダイアログに保護されていないセルが一覧されるので，ダイアログ上でCtrl+Aで選択する

と，シート上の該当するセルが全て選択されるので，とりあえずDeleteキーで削除する

＃シート上の該当するセルが全て選択された状態で，名前ボックスに「非保護セル」とでも記入して名前を付けておくと，以後は一気に操作できるようになります。

お礼

keithinさん　回答ありがとうございます。

名前ボックスを利用するやりかたですね。

勉強になりました。

回答No.2

KURUMITO

マクロで対応することになるでしょう。
シート見出しで右クリックして「コードの表示」を選択します。
表示の画面の右の画面に次のマクロを入力します。A1セルからD20セルの間にある保護されていないセルを空白にすることができます。

Sub 保護されていないセルを空にする()
Dim Rng As Range
For Each Rng In Range("A1:D20")
If Rng.Locked = False Then Rng.ClearContents
Next Rng
End Sub

最後はシート画面に戻ってから、Altキーを押しながらF8キーを押すことでコード名が表示されますのでそれを選んで「実行」を選択すればよいでしょう。

お礼

KURUMITOさん　回答ありがとうございます。

大変勉強に　なりました。ありがとうございます

回答No.1

mu2011

>マクロを使う方法以外に　方法は　ないのでしょうか？
　⇒ダイナミックに対応する方法はマクロ以外無いと思います。
　　仮に対象範囲が事前に分かってるならば、シート保護解除後、その範囲を名前
　　（任意名）登録しておき、一括削除時に名前ボックス枠に名前入力→deleteキー押下で
　　可能ですが如何でしょうか。

お礼

mu2011さん　回答ありがとうございます。

なるほど　そういう方法もあるんですね。