Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i%
     
If Sh.Name <> "Sheet1" And Sh.Name <> "Sheet2" And Sh.Name <> "Sheet3" And Sh.Name <> "Sheet4" And Sh.Name <> "Sheet5" Then
         

    If Not Application.Intersect(Target, Range("a1:a1000")) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
Else
If Not Application.Intersect(Target, Range("a1:j5")) Is Nothing Then
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
       
End If
End If

End Sub