إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد

[ياسر خليل أبو البراء]

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

إخواني الأحباب في المنتدى الأغر

 

إليكم الكود التالي الذي يقوم بإغلاق المصنف دون حفظ التغييرات ثم يقوم الكود بإعادة فتح المصنف مرة أخرى.

قم بإدراج موديول جديد وضع فيه الكود بهذا الشكل

Sub MyClose()
    Application.OnTime Now + TimeValue("00:00:01"), "DoneMessage"
    ThisWorkbook.Close False
End Sub
 
Sub DoneMessage()
    MsgBox "Done!"
End Sub

وتم تعيين مفتاح ctrl + z ليقوم بتنفيذ الكود كاختصار للتنفيذ

تم تعيين المفتاح عن طريق الضغط على Alt + F8 ثم النقر على Options خيارات ثم من النافذة نكتب حرف الـ z فقط بدون الضغط على الزر Shift ...ثم أوك

 

أتمنى أن تستفيدوا من الكود وإليكم الملف المرفق

دمتم بود

أخوكم أبو البراء

Close Without Save & Reopen Workbook.rar

[خزاني]

بارك الله في جهدك

[ياسر خليل أبو البراء]

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

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

وجزاك الله كل خير

تقبل تحياتي

[مختار حسين محمود]

بارك الله فيكم أخى وأستاذى ياسر

 

واثراءً للموضوع  إليكم هذا الرابط : http://www.officena.net/ib/index.php?showtopic=57976

 

تحياتى لكم

[ياسر خليل أبو البراء]

بارك الله فيك أخي مختار

أيوا افتكرتك النهاردة لما جه في بالي الكود ده بس بصراحة نسيت عنوان الموضوع عشان أبحث عنه

راجع الرابط ده عشان تتأكد إني افتكرتك

http://www.officena.net/ib/index.php?showtopic=60900

والحمد لله بعد ما نصحتني أشتغل على 2010 خدت بنصيحتك واشتغلت على 2013  

ومشكور على النصيحة أخي الحبيب مختار

تقبل تحياتي

[مختار حسين محمود]

أشكرك أخى وأستاذى ياسر 

وأنت دائما على بالى وكل الأخوة الذين أتعلم منهم

أكيد 2013 فيه زيادة عن 2010  لكن لما سطبته  مش عارف ليه  ومن غير سبب رجعت لـ 2010

 

ألق نظرة على :http://www.officena.net/ib/index.php?showtopic=59963

مشاركة 12

[Yasser Fathi Albanna]

سلمت يمينك أخى الحبيب أ / ياسر

وتسلم على هذه الأعمال القيمة

[ياسر خليل أبو البراء]

أخي الحبيب ياسر فتحي

فينك مشغول عننا ليه اليومين دول . لعله خير

مشكور على مرورك العطر

تقبل ودي واحترامي

[Yasser Fathi Albanna]

أخي الحبيب ياسر فتحي

فينك مشغول عننا ليه اليومين دول . لعله خير

مشكور على مرورك العطر

تقبل ودي واحترامي

الحمد لله أخى وأستاذى الحبيب ياسر خليل

شكرا لسؤالك وإهتمامك