السلام عليكم
اريد كود اضعه فى جميع ملفات الاكسيل بغلق جميع ملفات الاوفيس المفتوحة إن امكن
و أن لم يمكن فيمكن غلق جميع ملفات الاكسيل المفتوحة
ملحوظة لقد قمت بالبحث و وجدت هذا الكود
Sub Close1()
Sheets("Welcom").Range("A50") = 0
Sheet1.Activate
Application.DisplayFullScreen = False
Application.Quit
ActiveWorkbook.Close SaveChanges:=yes
End Sub
و لكنه يغلق الاكسيل فقط و عند وضعه فى جميع الملفات بيضرب أعتقد بسبب السطر الثانى
الكود جيد جدا و يمكن وضعه فى ملف ثم فتح ملفات العمل
و لكن عند غلق الملفات فى نهاية يوم العمل مثلا ستضطر الى البحث عن الملف و تفعيل الماكرو
و شكرا