(تمت الاجابة) عمل كود لعمل زر لغق و حفظ مصنف إكسل

[أبوبكر مسعودي]

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

طلب مساعدة في كود لعمل زر لغق و حفظ مصنف إكسل و شكرا

[بن علية حاجي]

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

أخي الكريم، أقترح عليك كودين:

الأول : يقوم بحفظ المصنف وغلق برنامج إكسيل

Sub Save_CloseApplication()

	ActiveWorkbook.Save

	Application.Quit

End Sub

والثاني : يقوم بحفظ المصنف وغلق المصنف دون غلق برنامج إكسيل

Sub Save_CloseWorkbook()

    ActiveWorkbook.Save

	ActiveWorkbook.Close

End Sub

ملاحظة: كلا الكودين يطالبانك بحفظ المصنف باسم إذا لم يتم سابقا حفظه باسم

أخوك بن علية

تم تعديل فبراير 17, 2012 بواسطه hben

[Ahmed Elbhiry]

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

أخي الكريم، أقترح عليك كودين:

الأول : يقوم بحفظ المصنف وغلق برنامج إكسيل

Sub Save_CloseApplication()

	ActiveWorkbook.Save

	Application.Quit

End Sub

والثاني : يقوم بحفظ المصنف وغلق المصنف دون غلق برنامج إكسيل

Sub Save_CloseWorkbook()

	ActiveWorkbook.Save

	ActiveWorkbook.Close

End Sub

ملاحظة: كلا الكودين يطالبانك بحفظ المصنف باسم إذا لم يتم سابقا حفظه باسم

أخوك بن علية

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

تم تعديل فبراير 17, 2012 بواسطه Ahmed Elbhiry

[أبوبكر مسعودي]

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

[عبدالله المجرب]

تم تعديل العنوان للدلالة

[منياوى]

لكم جزيل الشكر

[علي فاهم]

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

[manosre]

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