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