اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

 

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

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

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

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

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

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

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

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

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

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

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

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

 

1.jpg

Book1.xlsm

قام بنشر

To disable the Esc key

Application.EnableCancelKey = xlDisabled

To re-enable it

Application.EnableCancelKey = xlInterupt

 

  • Like 2
  • 2 weeks later...
قام بنشر
3 ساعات مضت, abed14092017 said:

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

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

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

قام بنشر
7 ساعات مضت, abed14092017 said:

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

 

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

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

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

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

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

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

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

بالتوفيق

  • 4 weeks later...
قام بنشر (معدل)
On 8/8/2024 at 11:01 AM, abed14092017 said:

 

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

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

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

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

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

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

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

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

علماً ان نسخة الاوفيس لدي 2007  jiofi.local.html tplinklogin

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

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

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

 

1.jpg

Book1.xlsm 664.69 kB · 15 downloads

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

 
تم تعديل بواسطه FranklinWrights

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information