サンプルマクロは、一度に複数のセルが変更されること（クリア、
ペーストなどで）を禁止します。
禁止したいシートのコードウインドに記述してください。

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim myRow As Long

    If Target.Count > 1 Then
        MsgBox "複数セルの変更はできません。", vbCritical
        With Application
            .EnableEvents = False
            .Undo
            .EnableEvents = True
        End With
    End If

End Sub