تعطيل حقل بناءً على قيمة في حقل آخر

[gelani]

كل عام وأنتم بخير

عندي أربعة اعمدة من a1 الى d1 تحتوي على الاسم ونوع الاجازة ( عادية -اضطرارية -إستثنائية )المطلوب هو تعطيل الحقول في حالة إدخال قيمة في أي منهم .

وللتوضيح إذا أدخلت قيمة في b1 لا يسمح بادخال بيانات في الخلايا c1 و d1 وكذلك بالنسبة لباقي الحقول حيث لايسمح الا بنوع واحد من الاجازات .

[علي السحيب]

شاهد أخي المرفق التالي:

الورقة الأولى تحتوي على ما طلبت

الورقة الثانية تحتوي على طريقة أخرى لإختيار نوع الإجازة والتي أعتقد أنها أسهل في التعامل من الطريقة التي طرحتها.

___________________________.rar

[gelani]

شكراً للأستاذ علي السحيب

فتحت الملف المرفق ولم يكن به سوى كود الترقيم التلقائي الموجود في العمود B سواء في الصفحة الأولى أو الثانية .

يوجد خطأ ما حيث أنني عند تنزيل الملف تأتي رساله بوجود خطأ وطلب ارسال تقرير وعند الرفض يفتح الملف مع ظهور نص ( تم إصلاحه ) بالخط الأحمر .

عزيزي الكود لم يعمل حيث أنني أستطيع إدراج ثلاثة أنواع من الإجازات في وقت واحد والمطلوب واحد من الثلاثة ومنع الادخال في الأخريات .

تحياتي مرة أخرى لك ولجميع أعضاء المنتدى الرائع .

[علي السحيب]

شيء أكثر من غريب .. لقد قمت بتجربة الكود وهو يعمل بشكل ممتاز بدون أي أخطاء ..

أود من الأعضاء الذين قاموا بتحميل الملف المرفق أن يبدوا رأيهم فيه .. وأن يخبرونا إذا كانت هناك أي أخطاء.

ربما تكون هناك مشكلة في مستوى الأمان.

للتأكد أرجو الذهاب إلى القائمة أدوات ثم ماكرو ثم أمان ثم إختيار مستوى الأمان منخفض ثم إغلاق الملف وفتحه مرةً أخرى.

شكراً للجميع.

[الجزيرة]

شكرا لكم جميعاً

قمت بتحميل الملف وفتحته وهو يعمل 100%

[علي السحيب]

أشكرك أخي الجزيرة على تفاعلك.

[gelani]

شىء محير فعلاً

عند تحميل الملف المرفق تأتي رسالة طلب ارسال تقرير بالخطاء وعند الرفض يتم فتح الملف ولا يوجد به أي اكواد سوى كود الترقيم التلقائي كما أشرت لكم مسبقاً على الرغم من تخفيض مستوى الأمان .

ارجو وضع الكود على الشاشة وسوف استخدمة وسأوافيكم بالنتائج .

مع أطيب وأرق تحياتي وتقديري .

[علي السحيب]

ضع الكود التالي في الورقة الأولى:

Private Sub Worksheet_Change(ByVal Target As Range)
If (Range("D" & Target.Row).Value <> "" And (Range("E" & Target.Row).Value <> "" Or Range("F" & Target.Row).Value <> "") _
Or Range("E" & Target.Row).Value <> "" And (Range("D" & Target.Row).Value <> "" Or Range("F" & Target.Row).Value <> "") _
Or Range("F" & Target.Row).Value <> "" And (Range("D" & Target.Row).Value <> "" Or Range("E" & Target.Row).Value <> "")) Then
MsgBox "لا يمكنك إختيار أكثر من نوع للإجازة", vbExclamation, "عفــواً"
Application.Undo
Exit Sub
End If
End Sub