値貼り付けもダメなんですね。修正します。
VBAが使える環境なら...
●C2:C10に入力規則が設定されている場合の例
Alt+F11 同時押し
→Sheet1(Sheet1)のようなシートモジュールに以下のコード貼り付け
Private Sub Worksheet_Change(ByVal Target As Range)
Dim VRng As Range, IRng As Range
Dim UStr As String
Set VRng = Range("C2:C10") '飛び飛びは Union(Range("C2:C10"), Range("E2:E10"))
On Error Resume Next
Set IRng = Application.Intersect(Target, VRng)
On Error GoTo 0
If IRng Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
UStr = Application.CommandBars("Standard").FindControl(ID:=128).List(1)
On Error GoTo 0
Select Case True
Case UStr Like "*貼り付け", UStr = "ドラッグ アンド ドロップ", UStr = "オートフィル"
MsgBox VRng.Address(0, 0) & "は貼り付け禁止だよ"
Application.Undo
End Select
Application.EnableEvents = True
End Sub
→Excelマクロ有効ブック(*.xlsm)で保存