للبرامج التي تقوم بحذف الاشرطة عند الفتح

[ابومؤنس]

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

هناك بعض برامج الاكسيل التي عند فتحها تقوم بالغاء اشرطة الادوات مثل شريط التنسيق والشريط القياسي وشريط الصيغ واسم الصفحات . وعند اغلاق هذة البرامج وفتح ملف او برنامج اخري لا بد من اعادة هذة الاشرطة الي مكان السابق .

هذا الكود يقوم باعادة هذة الاشرطة الي امكانة قبل اغلاق البرنامج او الملفات حتي لا نقوم في كل مرة باعادة هذة الاشراطة كلما فتحنا هذة البرامج .

Sub Clos()
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.DisplayFormulaBar = True
Application.Quit
End Sub

ويمكن عمل هذا الكود عن طريق تسجيل ماكرو يقوم باعادة الاشرطة السابقة ثم فتح تحرير ذلك الماكرو واضافة في السطر ماقبل الاخير العبارة التالية :

Application.Quit

وهي المسؤلة عن اغلاق الاكسيل .

بالتوفيق ,,,

[ابو عسعس]

بارك الله فيك أخي أبو مؤنس

وجعلك من عباده الصالحين .... آمين يا رب العالمين

[حسام نور]

- توضيح غايه في الأهميه عزيزنا أبومؤنس ... لك كل الشكر والتقدير