VBA 貼り付け 制限

Question

特定のシートで張り付けることができるオプションを値のみの貼り付けと数式のみの貼り付けに制限したいです。

現在作成しているExcelのファイルでは条件付き書式が設定されております。
しかしそのファイルは多くの方が扱うものなので、コピペなどが頻繁されてしまいます。
条件付き書式などについて理解がある方であれば、値で貼り付けなどをしていただけますが、知識が無い方だと全て貼り付けなどをしてしまい、結果として条件付き書式がうまく機能しないということが起こってしまいます。

そのようなことを防ぐためにも、マクロから貼り付けることができる種類を 値のみ と 数式のみ という風に制限することはできないでしょうか。
値のみ と 数式のみという２種類が難しければ、値のみの貼り付けに制限するということでも大丈夫です。
また、貼り付けの制限もブックのシート全てというようなことではなく、このシート１は値のみの貼り付けしかできない、シート２は貼り付けの制限がないというようにしたいです。

以下のサイト（知恵袋）を拝見して、それを参考にアレンジしてみたのですが、
知恵袋のコードですと、値貼り付けさせるかどうかを target.count で分岐させております。
これだと多くのセルを選択して、一気にデリートするときなどで、使えない仕様になっております。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1315563813

他にも調べてみましたが、良いアイデアが思い浮かばず、こちらで質問させていただきました。
特定のシートのみで貼り付けを制限させる方法はございますでしょうか。

Answer 1

こんな感じでどうでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Dim v As Variant
    With Application
        v = Target.Value
        .EnableEvents = False
        .Undo
        Target.Value = v
        .EnableEvents = True
    End With
End Sub

Comments

[tttkkk]

ありがとうございます。
jinoji様のコートで目的としていたことが実現できました。
ただ一点エラーが出てしまう場面がございました。
教えていただいたコードを書いたシートでctrl＋aで全範囲を選択して、操作をしようとすると、「メモリが不足しています。」というエラーが出てきてしまいます。
（例えば、コピー元でctrl＋aで全範囲を選択し、jinoji様のコードを書いたシートで同じように全範囲選択し貼り付けるなど。）
（またjinoji様のコードではon error resume nextがあったのでそれを一旦コメントアウトさせてもらいました。）
そのエラーが出てしまうと、v の値がemptyになり、Target.Value = v の部分で全て空白が入力されてしまい、値が消えてしまいました。
メモリ不足のエラーに対応するために少しアレンジさせていただきました。
下記のようなコードになったのですが、jinoji様の観点から何か不備などは思い当たるでしょうか。
せっかく教えていただいたコードにご意見を立て申し訳ありませんが、ご意見いただきますと幸いです。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'On Error Resume Next
On Error GoTo errorLabel1
Dim v As Variant
With Application
v = Target.Value
.Undo
Target.Value = v
.EnableEvents = True
End With
Exit Sub

errorLabel1:
With Application
If (Err.Number = 7) Then
MsgBox "選択範囲が大きすぎたため、操作をキャンセルします。", vbExclamation
.Undo
.EnableEvents = True
Else
MsgBox "エラーが発生したため、操作をキャンセルします。", vbExclamation
.Undo
.EnableEvents = True
End If
End With

End Sub

[jinoji]

処理の先頭で
If Target.Count > 100 Then
MsgBox "選択範囲が大きすぎたため、操作をキャンセルします。", vbExclamation
Application.Undo
End If

とか入れたらいいのかも、とか思いました。

[tttkkk]

なるほど。
確かにそのコードの方が簡略に記載出来て可読性も上がりますね。
そちらのコードで運用させていただきます。

ご回答いただきありがとうございました。