الغاء زر الامر Esc اثناء تنفيذ الكود

[abed14092017]

 

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

تحية طيبة للجميع ارجو ان تكون بخير و صحة  

ارفقت ملف اكسل و صورة 

بدخل الملف userform18 يحتوي على  زر امر  يقوم بفرز و تجميع الصفحات 

وعند تنفيذ الكود يضهر userfor16 و هو عبارة عن عداد مستوى تقدم الكود 

لكن المشكلة انه اثناء تنفيذ الكود اذا ضغط على زر Esc في لوحة المقاتيح تظهر الرسالة المرفة في الصورة 

اريد طريقة بحيث يتم الغاء عمل زر Esc اثناء تنفيذ الكود او ظهور userform16 

بحيث الاسلوب الوحيد للخروج من userfoem 16 هو الضغط على زر "خروج" فقط

علماً ان نسخة الاوفيس لدي 2007

راجياً مساعدتكم و خبراتكم 

و تحياتي للجميع 

اخوكم عبدالله 

 

Book1.xlsm

[AbuuAhmed]

جرب أن يكون الكود في موديول عام.

[AbuuAhmed]

To disable the Esc key

Application.EnableCancelKey = xlDisabled

To re-enable it

Application.EnableCancelKey = xlInterupt

 

[abed14092017]

لم ينجح اي حل مقدم 

 

[AbuuAhmed]

3 ساعات مضت, abed14092017 said:

ينجح اي حل مقدم

نجح معي ونجح مع محمد صالح من أعجابه على الإجابة.

طبعا أقصد إجابتي الثانية.

[أ / محمد صالح]

7 ساعات مضت, abed14092017 said:

لم ينجح اي حل مقدم 

 

أخي الكريم الحل المقدم من أخينا @AbuuAhmed صحيح جدا

ولكن ربما لم يتم التنفيذ بطريقة صحيحة

الطريقة الصحيحة

أن تضع السطر الخاص بتعطيل زر esc أولا

ثم أكواد الاجراء الخاص بك

وفي نهاية تضع كود تمكين زر esc

Sub yoursubname()
    Application.EnableCancelKey = xlDisabled
    ' ضع هنا الكود الذي تريد تنفيذه
    Application.EnableCancelKey = xlInterrupt
End Sub

بالتوفيق