Excelのマクロでセル単位でロックをかける方法に関する質問です。

質問

Excelのマクロでセル単位でロックをかける方法に関する質問です。

例えばa1からd10の範囲のセルに対して
a列の各セルは、IF関数で数値か""を返しているとします。

a列のセルが数値であれば、同じ行の各セルをロックし、""であれば、後からそのセルに手入力できるようにロックを外したいと思います。（もちろんIF関数は書き換えられますが、それでＯＫです)

例えば、a1が数値なら、a1,b1,c1,d1の各セルはロックに、
　　　　a1が""なら、a1,b1,c1,d1の各セルはアンロックに
したいわけです。

手作業だと行数が多い場合大変なので、マクロで自動的に行いたいと思いますが、マクロ初心者のため、どうすればよいのかわかりません。

どなたかご教授願えればありがたいです。
よろしくお願いします。

回答No.1

keithin · ベストアンサー

＞a列の各セルは、IF関数で数値か""を返しているとします。

この前提で。
詳細の補足を求めても正直きりがないので，簡易マクロで。
当該のシートのシート名タブを右クリック，コードの表示を選ぶ。
現れたシートに書きをコピー貼り付ける

private sub worksheet_calculate()
　dim h as range

　'シートの保護にパスワードを付けているときは，次の一行を修正すること
　activesheet.protect userinterfaceonly:=true

　for each h in range("A1:A10")
　　h.resize(1, 4).locked = (h <> "")
　next
end sub

＃もうちょっと大規模な範囲に処理をしたい等の場合は，A列各セルの数式が変化する元になるセルによるchangeイベント等で操作しても良い。
　もう少し丁寧に説明すると，
１．何かをすると　　←これが具体的に何なのか，を拾ってマクロに３の仕事をさせます。
２．A列のあるセルの式の計算結果が変わるので
３．対応するセル範囲のlockedを変更する

マクロの練習用には確かによい教材ですので，先にご紹介したサンプルなどもちょっと参考にもう一がんばりしてみてください。

お礼

完璧です。
ありがとうございました。