عليكم السلام ورحمة الله وبركاته
جرب اخي الفاضل الكود التالي لاحد الاساتذة الافاضل بالمنتدي لا اتذكر بالتحديد لمين
مع ملاحظة انه يجب تسمية النطاق الذي يوجد به معادلا باسم (myrange)
عن طريق تظليلها واذا كانت بعيده عن بعضها استخدم مفتاح Ctrl
Private Sub Worksheet_Change(ByVal Target As Range)
If Me.[T1] Then Exit Sub
If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "عفوا ليس لديك الصلاحية للتعديل"
End If
End Sub