エクセル データの入力規則

質問

いつも参考にさせていただいています
A列B列はロックをかけず、C列D列はロックをし、シートの保護をかけています。

A3～A10　入力可
B3～B10　条件により入力可
C3～C10　入力不可
D3～D10　入力不可

C列D列は　一定の条件で保護を解除し入力しています。
B列の条件は、
入力規則で　C列D列が空欄でないときは　停止のエラーメッセージが出るようにしていました。
通常に入力すると停止メッセージが出て入力が出来ないのですが、
貼り付け入力をした場合入力が可能となっております。

貼り付けなどでも入力が出来ないような設定方法
（入力をしようとすると、エラーメッセージが出るような）があればと思い、質問させていただきました。

回答No.1

keithin · ベストアンサー

残念ですが，現状で出来る事は，ほとんどありません。

Ｂ列には入力はしなければならない(これが最優先)ので，これに伴い貼り付けも禁止できません。
貼り付けた瞬間に入力規則の設定は「貼り潰されて」しまうので，貼り付いた値を禁止する機能も無くなってます。

＃参考
一応「やればできる」手としては

シートの保護を一時解除
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim h as range
　set target = application.intersect(target, range("B3:B10"))
　if target is nothing then exit sub

　for each h in target
　　if h <> "" then
　　if cells(h.row, "C") ="" or cells(h.row, "D") = "" then
　　　msgbox "禁止"
　　　application.enableevents = false
　　　application.undo
　　　application.enableevents = true
　　　h.select
　　end if
　　end if
　next
end sub

ファイルメニューから終了してエクセルに戻る
Ｂ列の入力規則は解除する
シートを保護する

お礼

keithin様

ご教授くださりありがとうございます。

if cells(h.row, "C") ="" or cells(h.row, "D") = "" then
を
If Cells(h.Row, "C") <> "" And Cells(h.Row, "D") <> "" Then
として希望通りのシートが作成できました！

お忙しい中ありがとうございました。