اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيف اعمل زر خروج من البرنامج ومن الاكسل نهائياً ؟


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

بسم الله الرحمن الرحيم

اخى ايثم :

الكود صحيح لكن يوجد مسافه بعد workbook لذلك لم يعمل معى

و يمكن اضافه حفظ قبل الخروج من الملف

Sub Close_File()
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub
و يمكن أغلاق الاكسيل باكمله بالكود التالى
Sub Close_Excel()
    ThisWorkbook.Save
    Application.Quit
End Sub

مرفق ملف

السلام عليكم

Close.rar

تم تعديل بواسطه هادى محمد المامون سالم
  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

يا جماعة الخير تعلموا تواضع الأساتذة وطريقة التوجيه و التعليم من الأستاذ هادي

الكود صحيح لكن يوجد مسافه بعد workbook لذلك لم يعمل معى

جزاك الله كل الخير أستاذ هادي

نحن نتعلم منك فوق الإكسيل فن التعليم و التوجيه

تحياتي أيسم

رابط هذا التعليق
شارك

  • 9 years later...

ممكن تستخدم الكود لتقفل الملف ب مفتاح

F2

و تقفل الاكسيل بمفتاح

F3

مرفق ملف

Sub Auto_Open()
    Application.OnKey "{F2}", "mod_Auto_Open.Close_File"
    Application.OnKey "{F3}", "mod_Auto_Open.Close_Excel"
End Sub
Sub Close_File()
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub
Sub Close_Excel()
    ThisWorkbook.Save
    Application.Quit
End Sub

 

Auto Close.rar

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information