هل يمكن من خلال data validation نمنع الكتابه

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم الساده الكرام

هل يمكن من خلال  data validation ان نمنع الكتابه فى خليه او عمود بناء على محتوى خليه معينه

بمعنى  اذا كان محتوى الخلية  Z1 تساوى 30 لا نستطيع الكتابه فى الخلايا  x1 : x30 وتظهر رساله ونتمكن من الكتابه اذا كان محتوى الخليه 31

ارجو الافاده مع التطبيق

جزاكم الله كل الخير

تم تعديل ديسمبر 22, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[۩◊۩ أبو حنين ۩◊۩]

للرفع اكرمكم الله

[الصـقر]

تفضل اخى الكريم 

جرب الملف المرفق

عذرا ابو حنين انت ليه كل اسئلتك صعبه وفنيه ؟؟؟؟

تقبل تحياتى

Book1.zip

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

الاخ الفاضل حسام 

سلمت يداك .. وجزاك الله كل الخير 

اخى الحبيب كيف حال المعالدلة اذا كان المطلوب 

عدم الكتابه فى الخليه لو كان الرقم الموجود فى الخليه Z1 اقل من 

اذا كان الرقم اقل من 30 مثل 29 او 20 لا يتم الكتابه

وهل يمكن تحديد الاقام بين رقيمن مثل

لا يتم الكتابه اذا كان محتوى الخليه  Z1 بين 30 : 28

جزاك الله كل الخير

[الصـقر]

استاذى الفاضل

جرب المعادله التالية ستفى بالغرض

=OR($Z$1>30;$Z$1<28)

[سليم حاصبيا]

السلام عليكم

اكتب هذا الكود

و يمكنك تغيير النطاق و الخلية المفتاح حسب ما فهمت من المشاركة لايسمح بالكتابة الا اذا كانت خلية محددة تساوي 30

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If [h1] = 30 Then
    If Not Intersect(Target, Range("a1:a10")) Is Nothing Then
    Range("B1").Select
    End If
End If
End Sub

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

الاخ الفاضل حسام ... تم تجربة المعادلة 

ونحجت بصوره مرضية

جزاك الله كل الخير 

اخى الحبيب سليم 

اولا شاكر لك تعاونك والحل الجميل بالكود 

واريد ان اضيف شرط اخر لو H1 29

اريد ان يتم اضافة A11:A20

هل يمكن ذلك

[سليم حاصبيا]

انسخ الكود من السطر الثاني حتى السادس

و الصقه قبل كلمة end sub مباشرة و اضف الشروط الجديدة على ما تم لصقه

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم 

الاخ الفاضل سليم 

جزاك الله كل الخير 

كود ممتاز جدا  .. ويبقى شئ اخير

اظهار رساله  تاكد من عدد ايام الشهر

اين موضعها من الكود