السلام عليكم
الاخ الكريم / أكرم جلال
بارك الله فيك
بعد اذن استاذي العزيز / جمال عبد السميع ... جزاه الله خيرا
واثراءا للموضوع ... اليك اخي الكريم كود يقوم علي السماح بالكتابة في النطاق A1:A100 بناءا علي قيمة الخليه H1
** اذا كان قيمة الخلية H1 تساوي 5 يمكنك الادخال في النطاق المذكور ... وان كانت غير ذلك لا يمكنك الادخال
ارجو ان يكون هو طلبك ... وعسي الله ان ينفع به
Private Sub Worksheet_Change(ByVal Target As Range)
If Me.[H1].Value = 5 Then Exit Sub
If Not Application.Intersect(Target, Range("A1:A100")) Is Nothing Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
جزاك الله خيرا
كود للسماح بالكتابة في نطاق تبعا لقيمة خليه.rar