Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'This code prevents modification or deletion of cells in the range below.
If Intersect(Target, Range("A2:O3,A4:A17,B11:P12,B33:L50,B59:B60,C32:J32,D4:D17,E18:F19,E20,F21:F22,F59:N60,G18,G20:G22,H18:I18,W2:X3,W4:W10,W13:W17,AW1")) Is Nothing Then Exit Sub
On Error GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) Then
Application.Undo
MsgBox " You can't delete or modify cell contents in this range " _
, vbCritical, "Vocational Services - OVR " & ActiveSheet.Name
Application.Speech.Speak "You can't delete or modify cell contents in this range. It is locked.", SpeakAsync:=True
End If
ExitPoint:
Application.EnableEvents = True
End Sub