كود لحفظ وغلق كل الملفات المفتوحة

[صلاح الصغير]

السلام عليكم

اريد كود اضعه فى جميع ملفات الاكسيل بغلق جميع ملفات الاوفيس المفتوحة إن امكن

و أن لم يمكن فيمكن غلق جميع ملفات الاكسيل المفتوحة

ملحوظة لقد قمت بالبحث و وجدت هذا الكود

Sub Close1()
 
    Sheets("Welcom").Range("A50") = 0
    Sheet1.Activate
    Application.DisplayFullScreen = False
    Application.Quit
    ActiveWorkbook.Close SaveChanges:=yes
    
   End Sub

و لكنه يغلق الاكسيل فقط و عند وضعه فى جميع الملفات بيضرب أعتقد بسبب السطر الثانى

الكود جيد جدا و يمكن وضعه فى ملف ثم فتح ملفات العمل 

و لكن عند غلق الملفات فى نهاية يوم العمل مثلا  ستضطر الى البحث عن الملف و تفعيل الماكرو

و شكرا

[صلاح الصغير]

up

[صلاح الصغير]

up

[أحمد يوسف]

المطلوب ليس بسيطا كما تقول لكنه صعب وعليك الصبر حتى تتمكن الأساتذة من المساعدة

[صلاح الصغير]

شكرا للاهتمام و المتابعة

[صلاح الصغير]

شكرا للاهتمام و المتابعة

[صلاح الصغير]

شكرا للاهتمام و المتابعة

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

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

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

    Sheets("Welcom").Range("A50") = 0
    Sheet1.Activate

لأنه وما دمت تريد وضع الكود في كل ملفات العمل فهذا يعني ضرورة وجود شيت اسمه (Welcom) في كل هذه الملفات... ثم إن الكلمة Sheet1 تجدها في نسخ إكسيل بالإنجليزية أما في النسخ بالفرنسية فتجدها Feuil1...

بن علية حاجي

[صلاح الصغير]

شكرا للاهتمام و المتابعة

ا / بن عليا

كل المرجو بصرف النظر عن الكود و هو منقول

المطلوب بالظبط هو كود أضعه فى كل ملفات الاكسيل و عند تنفيذه يقوم بحفظ كل ملفات الاوفيس المفتوحة و غلقها

[صلاح الصغير]

عفوا

نسيت ارد على سؤال

اريد غلق الملف الذي به الكود ايضا 

لانه سيكون من ضمن ملفات العمل

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

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

يمكنك استعمال الكود التالي:

Sub Close1()
    For Each WBook In Application.Workbooks 
        WBook.Save 
    Next WBook 
    Application.Quit
End Sub

ملاحظة: هذا الكود يمكنك وضعته في ملف واحد (منه تُغلق كل الملفات المفتوحة) أو في عدة ملفات (من أيّها تُغلق كل الملفات المفتوحة) مع ربطه بزر للتنفيذ...

بن علية حاجي

[صلاح الصغير]

ا / بن علية

الكود يغلق ملفات الاكسيل فقط

المطلوب جميع ملفات الاوفيس

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

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

هذا كما قال أخي الكريم أحمد يوسف، ما تطلبه ليس بسيطا، ولا أستطيع مساعدتك فيه، لأن كل عنصر من عناصر مكتبة أوفيس (الوورد، إكسيل، أكسس وغيرها) له خصوصية متعلقة بـ VBA وليست من قدراتي ومعرفتي... معذرة على هذا...

بن علية حاجي

[صلاح الصغير]

العفو يا فندم

و شكرا لحضرتك على التعاون المثمر دائما