حاولت فيه ونجح جزئيا جزء الحمد لله جزء ان شيت3 محمى النطاق من a1:a100
بس احتاج تعديل عدم حماية شيت3 من a1:w1
اردت وضعه لمن يحتاجه شكرا استاذى سليم بارك الله فيك وبك ولك
وهذا الكود لمن يحتاجه
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "Sheet3" Then
If Not Application.Intersect(Target, Range("a1:w1")) Is Nothing Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
Else
If Not Application.Intersect(Target, _
Range("A1:A100")) Is Nothing Then _
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub