طلب تعديل على كود حفظ ملف اكسيل

[sarab1618]

السلام عليكم ... و حتى لا أطيل عليكم وأرجو الاهتمام من اصحاب الخبرة ... إني أعمل على فورم يحتوي داتا تضمن سجلات كثيرة ضمن ملف اكسيل وأقوم بإضافة وحذف وتعديل العديد من السجلات يوميا والفورم الذي أعمل عليه يتضمن زر أمر مرتبط بكود يقوم بحفظ الملف عند النقر عليه

المشكلة : ملف الاكسيل الذي أعمل عليه مشترك في شبكة محلية من عدة كمبيوترات وعند القيام بحفظ الملف من قبل كمبيوترين أو أكثر في نفس اللحظة وبسبب كبر حجم الملف والداتا الموجودة عليه فهي تستغرق وقت طويل .. ويسبب هذا البطئ حدوث خطأ على باقي الأجهزة ضمن الشبكة ... والكود المرتبط بزر الامر هو كما يلي :

Private Sub ButtonExit_Click()
ActiveWorkbook.Save
Call MsgBox("  تم حفظ الملف بنجاح  ", mBox, "الحمد لله")

End Sub

فهل من الممكن تغيير الكود ليصبح حفظ الملف أسهل واسرع رغم كبر الداتا على الملف وعدم حدوث اخطاء

وشكرا

[طلعت محمد حسن]

السلام عليكم

اخي الكريم جرب هذا الكود واخبرني عن النتيجة يتم وضع الكود في ThisWorkbook

 

(Private sub Workbook_BeforeClose(Cancel as Boolean

Application.DisplayAlerts=False

ThisWorkbook.save

Application.Quit

End sub