『日付変更禁止』（お願い）

　A1にctrlと：（セミコロン）の日付のみしか入力できないように出来ませんか、
　手入力は禁止にしたいのですが、どちら様かご指導お願いいたします。

　　　お願い

----
 >手入力は禁止にしたいのですが
 どの様にして入力しますか?
 (kyoko)
----
 入力規則を使ってはいかがでしょう？

 どこかのセルに
 =TODAY()
 と入力し、名前を定義しておく

 A1に入力規則を設定する

 データ
 ↓
 入力規則
 ↓
 入力値の種類：リスト
 元の値：=定義した名前
 ↓
 エラーメッセージタブ
 無効なデータが入力されたら〜にチェック
 スタイル：停止
 タイトル、エラーメッセージには好きな文言を設定
 ↓
 ＯＫ
 (MARBIN)
----
 あちゃ〜。
 TODAY関数は揮発性関数なので
 ブックを閉じるときに「保存しますか？」
 が出ますね。
 参考程度、ということで・・・。
 (MARBIN)
----
 要するに、A1 にはその日の日付以外が入力されなければいい、と解釈しました。
 （Ctrl ＋ ;  でなくても、その日の日付であればＯＫ）

 シートモジュールに

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    If Target.Value <> Date Then
        MsgBox ("Ctlr + ; で入力してください")
        Application.EnableEvents = False
        Target.ClearContents
        Application.EnableEvents = True
    End If
 End Sub

 でどうでしょう。
 （ホグペン）
----
（ホグペン）さん、(MARBIN)さん
　ご指導有難うございました。
両方使って見て調子の好いほうを利用させていただきます。

　有難うございました。


----
皆さん、またまたご指導お願いいたします。

A2に日付（手入力可）とB2に＝TODAYで入力規制を掛けたいます、その他C2〜Z2まで色々数字が入っています。A2に日付を入力して２０００行に下げるようにしたあるのですが、B3からB2000まで変更できないようにしたいのですが、どうにかなりませんか
　お願い
----
 B3からB2000をロックし、シートの保護をしてみては？
 (MARBIN)
----
(MARBIN)様

お世話になります。
シートに保護をしたら、解除しないと入力できないですよね。
私は現在中国に居ますが商品などの箱詰めするときなどもチェックシートにチェックするようにしてあるのですが、全部箱詰めした後にシートにチェックをまとめてするなどの人が多いので、パソコンの入力でもまとめて記入し日付をごまかすのではと思い、私がシートの確認の時私だけが見えるようにするか、入力した日付のごまかしを防げたらと思い悩んでいますので。助けてください・・・
お願い

----
　手入力したいところだけロック解除すれば済むことでは？
 (MARBIN)
----
(MARBIN)さん

やってみます、有難うございました
　　お願い