VBAで、貼り付け禁止命令を実現したい（エクセル）

質問

お世話になります。

会社で、チーム員全体で、共有し、編集している、エクセルファイルがあるのですが、年配の方が、エクセルを使いこなすのが、今のところ難しく、どこへでも、関係のないデータを、貼り付け、保存してしまい、
それ以前に、正しく、表に入力をした人のデータはかき消されてしまったりしています。そこで、なんでもかんでも貼り付けをする癖を正すため、その表内は、貼り付け禁止にできないかと思いまして、質問しました。私は、VBAの基礎は解るので、色々と調べてみたのですが、貼り付け禁止にするという、やり方は探し出せませんでした。
お忙しいところ、すみませんが、思いつく方、アイディアを頂けませんでしょうか？

何卒、宜しくお願い致します。

回答No.6

taocat

こんばんは。

NO4の回答のお礼のコードは、コピペだけでなく入力についても
いちいち確認することになっていますが、
それって「問題の年配の方」にはいいのかも知れませんが、
普通に入力できる人には非常に煩わしいと思いますが、如何でしょう。

で、上記も勘案して以下のようにしてはどうでしょう。

（１）セルひとつへの入力は、ふつうに入力できるようにする（確認メッセージなし）
（２）セルひとつのコピペは、メッセージで確認する
（３）複数セルの処理は、入力もコピペも無条件にダメとし、その由メッセージを表示する
（４）行の挿入は１行でも複数行でも可能とする

どのシートでも上記動作になるようコードは、ThisWorkBookモジュールに。

'－－－－－－－－－－－－－－－
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

　Dim Ans As Integer

　If Target.Count = 1 Then
　　　If Application.CutCopyMode Then
　　　　　Ans = MsgBox("貼り付けたデータは正しいですか？", vbYesNo, "確認")
　　　　　If Ans = vbNo Then
　　　　　　　MsgBox "正しいデータを貼り付けて下さいな"
　　　　　　　With Application
　　　　　　　　.EnableEvents = False
　　　　　　　　.Undo
　　　　　　　　.EnableEvents = True
　　　　　　　End With
　　　　　End If
　　　　　Application.CutCopyMode = False
　　　End If
　End If
End Sub

'－－－－－－－－－－－－－－－
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

　　If Target.Count = 1 Then Exit Sub
　　If Target.Columns.Count = 256 Then Exit Sub

　　MsgBox "複数セルはいやよ！", vbCritical, "確認"

　　Target.Cells(1).Select
　　Application.CutCopyMode = False

End Sub
'－－－－－－－－－－－－－－－

複数セルに対しては上記コードのように、貼り付ける前、又は、入力する前の、セル範囲を選択した時点で判断した方がいいですよね。

先ず、新しいブックで上記コードをお試しください。