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