ارجو شرح هذا الكود

[الشافعي]

السلام عليكم اخوتي الكرام

ارجو لو تكرمتم شرح الكود هذا

If Me.[T1] Then Exit Sub
    If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If

Exit Sub
End If

[الشافعي]

للرفع