تفعيل والغاء تفعيل كود

[الشيباني1]

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

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Not Intersect(Target, Range("ad2:ae2,aj5:an50")) Is Nothing Then Cells(Target.Row, 30).Select

If Not Intersect(Target, Range("r4:x4,c2:x2")) Is Nothing Then Cells(Target.Row, 1).Select

End Sub

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

ممكن ان تضع شرط الكود بقيمة خلية فاذا كانت 1 يعمل الكود واذا كانت غير ذلك ليكن 5 يتوقف

انا افترضت الخلية AA2

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If [AA2] = 1 Then

GoTo 1

Else: Exit Sub

End If

1:

If Not Intersect(Target, Range("ad2:ae2,aj5:an50")) Is Nothing Then Cells(Target.Row, 30).Select

If Not Intersect(Target, Range("r4:x4,c2:x2")) Is Nothing Then Cells(Target.Row, 1).Select

End Sub

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي الفاضل أبا أحمد حفظكم الله

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

أسمح لي أصيغ سؤالي هنا وهو ما أحتاج إليه بعض الأحيان وربما قد يتوافق مع سؤال السائل الفاضل.

هل بالأمكان يكون هنالك كودين (يتم وضعهما في كود ثالث) الأول يكون في بداية الكود يقوم بتعطيل الكود الذي في حدث الصفحة ثم تنفيذ الكود الأساسي ثم في آخر الكود يتم أعادة تفعيل كود حدث الصفحة.

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

تقبل خالص الشكر والتقدير.

أبو أنس

[الشيباني1]

استاذنا القدير مع شكري وتقديري هل بالامكان عمل زرين للتفعيل والغاؤه

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

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي الفاضل أبا أحمد حفظكم الله

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

أسمح لي أصيغ سؤالي هنا وهو ما أحتاج إليه بعض الأحيان وربما قد يتوافق مع سؤال السائل الفاضل.

هل بالأمكان يكون هنالك كودين (يتم وضعهما في كود ثالث) الأول يكون في بداية الكود يقوم بتعطيل الكود الذي في حدث الصفحة ثم تنفيذ الكود الأساسي ثم في آخر الكود يتم أعادة تفعيل كود حدث الصفحة.

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

تقبل خالص الشكر والتقدير.

أبو أنس

تجد ما تريد (حسب فهمي) في الكود MySub فهو يلغي حدث الصفحة ثم يفعله

استاذنا القدير مع شكري وتقديري هل بالامكان عمل زرين للتفعيل والغاؤه

تم عمل الزرين

الرجاء التجربة

إيقاف.rar

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي الفاضل عبد الله المجرب أبا أحمد حفظكم الله

ما شاء الله عليك

(حسب فهمي)

فهمك عالي الجودة والكفاءة.

تقبل كل الشكر والأحترام لشخصكم النبيل.

بارك الله بك وفيك وفي ذريتك من بعدك (بعد عمر طويل إن شاء الله حتى ينتفع بعلمك زادك الله علماً على علم ووسع أبواب رزقك).

أبو أنس ناصر حاجب

[الشيباني1]

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

[الشيباني1]

استاذنا العزيز لا زلت منتظرا لأني لن يخيب بأذن الله ظني