اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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
رابط هذا التعليق
شارك

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