جمال احمد محمود قطب قام بنشر يونيو 27, 2017 قام بنشر يونيو 27, 2017 اغلاق الشيت بدون ظهور رسالة هل تريد حفظ التغييرات
ياسر خليل أبو البراء قام بنشر يونيو 29, 2017 قام بنشر يونيو 29, 2017 السلام عليكم جرب الكود التالي Sub SaveCloseAllOpenWorkbooks() Dim Wb As Workbook With Application .ScreenUpdating = False For Each Wb In Workbooks With Wb If Not Wb.ReadOnly Then .Save End If If .Name <> ThisWorkbook.Name Then .Close End If End With Next Wb .ScreenUpdating = True .Quit End With End Sub
جمال احمد محمود قطب قام بنشر يوليو 9, 2017 الكاتب قام بنشر يوليو 9, 2017 انا جربت اكثر من كود ولم يعمل الرجاء ادراج شيت جاهزة بالكود وشكرا
ياسر خليل أبو البراء قام بنشر يوليو 9, 2017 قام بنشر يوليو 9, 2017 جرب الكود التالي وإذا لم يفلح لابد من توضيح المسألة بشيء من التفصيل فقد لا يتعلق الأمر بالكود بل بطريقة الاستخدام في بعض الأحيان Sub Close_Files() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close End If End Sub الرد بعد 10 أيام .. صدقني أنا نسيت الموضوع أصلاً حاول تتابع الموضوع لأن كل ما بعدت المسافة في الرد كلما نسيت .. الزهايمر ربنا يكفيك شره
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.