Dieses kleine Excel VBA Makro unterbindet, in einem Bereich, dass in den genannten Bereich hinein kopiert wird.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngBereich As Range
Set rngBereich = Range("A1:E5")
Set rngBereich = Intersect(Target, Range("A1:E5"))
If Not rngBereich Is Nothing Then
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then
        Application.CutCopyMode = False
        MsgBox "Kopieren und Ausschneiden verboten"
    End If
End If
End Sub