Private Sub Worksheet_Change(ByVal Target As Range)
    With Application
        .EnableEvents = 0
        MsgBox "На этом листе запрещено изменять данные ячеек", vbInformation,
        .Undo
        .EnableEvents = 1
    End With
End Sub