تعديل كود حماية خلايا معينة من الحذف

Private Sub Workbook_SheetSelectionChange _

 (ByVal Sh As Object, ByVal Target As Range)

 

 Application.EnableEvents = False



If Sh.Name <> "Sheet3" Then



 If Not Application.Intersect(Target, _

      Range("A1:W1")) Is Nothing Then _

      Target.Offset(2).Select: GoTo End_Me

 

Else

    If Not Application.Intersect(Target, _

      Range("A1:A100")) Is Nothing Then _

      Target.Offset(, 2).Select: GoTo End_Me

 

End If



End_Me:

 Application.EnableEvents = True

End Sub

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