قفل خليه معينه

[qutubsi]

اخواني الاعزاء الرجاء المساعدة في شرح طريقة قفل خليه معينه اذا كانت خليه أخرى يوجد بها بيانات

بمعنى آخر

اذا كانت الخليه A1 مكتوب بها أي شئ

لا يمكن الكتابة في الخليه A2 الا بعد مسح البيانات من الخليه A1

 

شاكر ومقدر

[عبدالله المجرب]

السلام عليكم 

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B1]) Is Nothing Then
If Not IsEmpty([A1]) Then
 Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
End If
End If
End Sub

[احمدزمان]

السلام عليكم

اخي ابو احمد

منور المنتدى اخي الحبيب

 

وبطريقة اخرى

يمكن استخدام التحقق من صحة

=LEN(A1) = 0

[qutubsi]

أشكركم على كريم مساعدتكم

وأرجو منكم افادتي لو كنت اريد ان اطبق الطلب اعلاه على اكثر من خليه على حسب الاتي

 

1. اذا كانت الخليه D15 يوجد بها بينات يتم اقفال الخليتين E15 و F15

2. اذا كانت الخليه E15 يوجد بها بينات يتم اقفال الخليتين D15 و F15

3. اذا كانت الخليه F15 يوجد بها بينات يتم اقفال الخليتين E15 و D15

 

 

1. اذا كانت الخليه D18 يوجد بها بينات يتم اقفال الخليتين E18 و F18

2. اذا كانت الخليه E18 يوجد بها بينات يتم اقفال الخليتين D18 و F18

3. اذا كانت الخليه F18 يوجد بها بينات يتم اقفال الخليتين E18 و D18

 

 

1. اذا كانت الخليه D21 يوجد بها بينات يتم اقفال الخليتين E21 و F21

2. اذا كانت الخليه E21 يوجد بها بينات يتم اقفال الخليتين D21 و F21

3. اذا كانت الخليه F21 يوجد بها بينات يتم اقفال الخليتين E21 و D21

 

وكل مجموعة تعمل لوحدها يعني لا يجب اقفال الصف رقم 18 و 21 في حال وجود بيانات في اي خليه من الصف 15

 

واعذروني على الاطاله.

تم تعديل مايو 27, 2013 بواسطه qutubsi

[احمدزمان]

السلام عليكم

 

اخي الفاضل

لتصل لما تريد المفروض ترفق مثال عملي للعمل علية

 

على اي حال عملت لك لمثال في المرفق

وبه الحل باستخدام التحقق من صحة

 

ويمكنك تعديل كود اخي الحبيب عبدالله ليعمل عليه ايضا

 

الكتابةفي خليةواحدةمن3.rar

[qutubsi]

أشكرك اخوي أحمد

ومرفق الملف التي أود العمل عليه التعديل المطلوب يجب ان يكون في حقول المخالفات

TeSt.rar

[احمدزمان]

السلام عليكم

 

اخي

تم عمل اللازم على خلايا الصف 15 مع وجود القائمة

 

وطبقة انت على الباقي

 

ملاحظة

عند الدخول على التحقق من صحة يجب الغاء التأشير على خانة تجاهل الفراغ

 

Teat.rar

[qutubsi]

أشكرك أخي أحمد وأشكر جميع الأخوان الذين ردو على الطلب 

تم عمل المطلوب