الترياق

االسلام عليكم استاذنا  شكرا جزيلا

في 04/03/2011 at 01:28, عبدالله باقشير said:

السلام عليكم

جمعة مباركة

 

هذا الكود يوضع في الوحدة النمطية للورقة

 

 

 

 

 

Private Sub Worksheet_Change(ByVal Target As Range)

If Me.[T1] Then Exit Sub

    If Not Application.Intersect(Target, Range("F3:F12")) Is Nothing Then

        Application.EnableEvents = False

        Application.Undo

        Application.EnableEvents = True

        MsgBox "خلية لا يمكن تعديلها"

    End If

End Sub

 

 

ايضا يوجد رابط تحميل في رابط المدونة ادنى التوقيع

حماية خلايا معينة من التعديل.rar