وضع شرط فى حدث الملف لتنفيذ كود

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

السلام عليكم

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

الشرط 

اذا كان قيمة محتوى الخلية A1 فى شيت help  لا تساوى محتوى الخليا من B1 الى B3

يتم استدعاء كود Kill_Myself

لانى لم اوفق فى وضع الشرط بشكل صحيح

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

اعتقد هذا السطر في الكود يقوم بما تريد

If Application.CountIf(ActiveSheet.Range("b1:b3"), Sheets("help").Range("a1")) < 3 Then Kill_Myself

 

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

السلام عليكم

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

جزاك الله خير 

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

ارجو النظر فى المرفق

وارجو ان نصل لحل

للوتضيح

المفوروض عند فتح الملف

اذا كام محتوى الخليه a1  لا يساوى b1  او لا يساوى  b2 او لا يساوى b3 ينم حزف الملف

المفترض ان الخليه b1 الى b3  هما اسماء المستخدمين  او اسماء الاجهزة التى مصرح بها استخدام الملف

وان الخليه a1  هو اسم المستخدم الحالى  او اسم الكمبيوتر الحالى

Book12.rar

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

السلام عليكم

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

جزاك الله خير 

تم حل الموضوع  ووضع الشرط كما ذكرت

وارجو منك توضيح الشرك وخاصه    3>

If Application.CountIf(ActiveSheet.Range("b1:b3"), Sheets("help").Range("a1")) < 3 Then Kill_Myself

تم تعديل أكتوبر 21, 2017 بواسطه ۩◊۩ أبو حنين ۩◊۩