تعديل على زر خروج

[الجموعي]

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

أريد منكم مساعدة في تعديل هذا الكود بحيث عن الخروج من ملف معين لا يتم إغلاق باقي الملفات

مثال عندي ملف بإسم اوفيسنا1 وملف أخر بإسم أوفيسنا 2

عن الضغط على زر خروج  يقوم بالخروج من الملفين وأنا أريد الخروج من ملف واحد فقط

Private Sub Cmd_Close_Click()
ActiveWorkbook.Save
Workbooks.Application.Quit
End Sub

[ياسر خليل أبو البراء]

Private Sub Cmd_Close_Click()
ActiveWorkbook.Save
ActiveWorkbook.Quit
End Sub

تم تعديل يناير 14, 2015 بواسطه YasserKhalil

[الجموعي]

Private Sub Cmd_Close_Click()
ActiveWorkbook.Save
ActiveWorkbook.Quit
End Sub

 أستاذي الكريم قمت بتجربة الكود ولم يفلح

ظهرت هذه الرسالة

[ياسر خليل أبو البراء]

استخدم Close بدلاً من Quit

[الجموعي]

استخدم Close بدلاً من Quit

فعلا نجحت العمليه بهذا الكود لكن في حالة إذا كانت الورك بوك مفتوحة

عندما أضفت هذه الاكواد في حدث الوررك بوك

Private Sub Workbook_Open()
Workbooks.Application.ShowStartupDialog = False
Workbooks.Application.DisplayAlerts = False
ActiveWorkbook.Application.Visible = False
UserForm1.Show
End Sub

عند الضغط على زر حفظ وخروج

يغلق الملف لكن يبقى يعمل في الخلفية أقوم بإغلاقه عن طريق إدارة المهام

وبالنسبة لإخفاء الورك بوك اريده أيضا ان يخفي فقط وورك بوك معين ليس كل الوورك بوك المفتوحة

زر خروج.rar

[ياسر خليل أبو البراء]

جرب أن تضع في حدث المصنف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Application.Visible = True
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub

[الجموعي]

 

جرب أن تضع في حدث المصنف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Application.Visible = True
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub

 

بارك الله فيك استاذي على الكود

مزالت مشكله بسيطة وهي عند تشغيل ملف زر خروج وقبله كنت فاتح ملفات اخرى

عند تشغيله تختفي باقي الملفات وعند الضغط على زر حفظ وخروج تظهر تلك الملفات