入力用のセルと管理用のセルを分けるには？？

質問

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myC As String
Dim x As Range
　　If Intersect(Target, Range("A1,C2,D4")) Is Nothing Then Exit Sub
　　Select Case Target.Address(0, 0)
　　　　Case "A1": myC = "E"
　　　　Case "C2": myC = "F"
　　　　Case "D4": myC = "G"
　　End Select
　　If Cells(Rows.Count, myC).End(xlUp).Value = "" Then
　　　　Set x = Cells(Rows.Count, myC).End(xlUp)
　　Else
　　　　Set x = Cells(Rows.Count, myC).End(xlUp).Offset(1)
　　End If
　　x.Value = Target.Value
End Sub

入力用セルと、管理用のセルを分けたい・・・・・
という質問をしてこのマクロを教えていただいたんですが、
実際には入力用にしたいセルが、４０箇所以上ありまして
一つ一つ反映させるのではなく、すべての箇所に入力して確認後に
まとめて反映させたいのですが不可能でしょうか？？
何か方法があるようでしたらヨロシクお願いします！！
エクセル２００３です。

回答No.2

kagakusuki

回答番号:ANo.1のaki_like様の方法で、書かれていない事がありましたので、勝手ながら補足させて頂きます。
　保護機能を使われる際には、パスワードを設定する事も出来ますし、パスワードを使わずに保護をする事も出来ます。
　但し、パスワードを使わずに保護した場合には、保護機能の使い方を知っている人なら誰でも、保護を解除してしまう事が出来ます。

お礼

すみません・・・・。
タイトルのせいで分かりづらくなっちゃいましたね。
また質問しなおします。
またよろしくお願いします。

回答No.1

aki_like

マクロ不要の方法

入力用のセルを選択→セルの書式設定→保護の
「ロック」のチェックボックスのチェックをはずす
次に、画面上のメニューバーの中にある
ツール→保護→シートの保護

これで、チェックをはずさなかったセルは編集出来なくなります。
（＝チェックをはずしたセルのみ編集可能）

お礼

すみません・・・・。
タイトルのせいで分かりづらくなっちゃいましたね。
また質問しなおします。
またよろしくお願いします。