既にデータ入力済のセルに上書きを防ぐ方法

質問

シート１の３つのセル（時間・場所・仕事内容）を使って下記のデータを順次入力して別シートにスケジュール表を作っています。
　　１０：００　　東京　　仕事１
　　１０：３０　　東京　　仕事２
　　１１：００　　東京　　仕事３
そこで，ダブルブッキングをしないようにするため，シート１を入力する際，既に同時刻・同場所にデータが入力されているとき（シート２に既にスケジュールが入っているとき），シート１にデータを入力できないもしくは，警告を出す方法はないでしょうか。

回答No.2

pc_knight

２００４９２１さんのされたいことを例えると次のようなことで宜しいでしょうか。
今、シート１に次のようなデータが入力済として
............ Ａ　　　　Ｂ　　　　　Ｃ
１　　時間　　　場所　　　仕事内容
２　１０：００　　東京　　　仕事１
３　１０：３０　　東京　　　仕事２
４　１１：００　　東京　　　仕事３

以下の例のように、（１）新たな行へのデータの追加あるいは（２）既に入力した行のデータの変更などの際、時間と場所の両データとも同じになる行ができることを避けたいというでしょうか。

（１）新たな行へのデータの追加の例
............. Ａ　　　　Ｂ　　　　　Ｃ
１　　時間　　　場所　　　仕事内容
２　１０：００　　東京　　　仕事１
３　１０：３０　　東京　　　仕事２
４　１１：００　　東京　　　仕事３
５　１０：００　　東京　　　仕事Ｎ　←　２行目のデータとダブルブッキングのため警告を出す

（２）既に入力した行のデータの変更の例
............. Ａ　　　　Ｂ　　　　　Ｃ
１　　時間　　　場所　　　仕事内容
２　１０：００　　東京　　　仕事１
３　１０：３０　　東京　　　仕事２
４　１０：００　　東京　　　仕事３　←　２行目のデータとダブルブッキングのため警告を出す

もし、そのようなことでしたら入力直後に警告表示のメッセージを出すことは以下のＶＢＡをシート１のコードにコピペすれば可能です。お試し下さい。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tr As Integer
Dim r As Integer
Dim ret As Integer
tr = Target.Row
For r = 2 To Range("A65536").End(xlUp).Row
If r <> tr And Cells(r, 1) = Cells(tr, 1) And Cells(r, 2) = Cells(tr, 2) Then
ret = MsgBox(prompt:=r & "行に同時刻・同場所のデータがあります", Buttons:=vbOKOnly + vbExclamation, Title:="ダブルブッキング")
End If
Next r
End Sub

お礼

お礼がすっかり遅くなり申し訳ありません。
プログラムは難しくて・・・。
でも，これから少しずつ勉強して行きたいと思います。
ありがとうございました。

回答No.1

esupuresso

シート全体を保護したい場合は、Aの左隣、１の上の小さなマスを右クリック（シート全体が反転表示される）→　「セルの書式設定」を選択→　「保護」タブをクリック→　「ロック」にチェックを入れて「OK」をクリック→　メニューバーの「ツール」→　「保護」をポイント→　「シートの保護」をクリック→　「シートとロックされたセルの内容を保護する」にチェック→　パスワードを入力（これはどちらでもいいです）→　「このシートの全てのユーザーに許可する操作」の場所のチェック項目にチェックを入れます（特に指定が無い場合は「ロックされたセル範囲の選択」と「ロックされていないセル範囲の選択」にチェックが付いてます）→　OKをクリック
セルに入力しようとすると警告が自動的に出てきますので保護した後にでも確認がてら入力してみて下さい

シート全体ではなく範囲指定で保護をしたい場合は、保護したい範囲を選択しておき、メニューバーの「ツール」を選択して後は同じ方法で保護して下さい

解除方法はメニューバーの「ツール」→　「保護」をポイント→　「シートの保護の解除」をクリック→　パスワードを入力してる場合はパスワードを入力→　「OK」で解除されます
パスワードを入力していない場合はそのまま「OK」をクリックすると解除されます