ارجو المساعدة شريط القوائم اختفى

[السيوي]

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

[amhateb]

برنامج صغير لأستعادة اعدادات الأكسل

عندك أوفيس 2003 استخدم ملف Eccel10

استعادة اعدادات الأكسل.rar

[السيوي]

السلام عليكم

اخي الفاضل جزاك الله خير على سرعة الرد

ولكن اين اضع هذا الملف ام ماذا افعل به

معذرة على كثرة الاسئلة

[يحيى حسين]

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

أخي السيوي

جرب هذا الكود

 Sub ShowMyMenu()

Application.CommandBars("worksheets menu bar").Enabled = True

End Sub

 

و طريقة إدراج الكود

1. إضغط Alt+F11 .
2. ثم قم بعمل إدراج موديل Insert ----> Module.
3. و ألصق الكود أعلاه .
4. ثم اضغط F5 لتنفيذ الكود

و ان شاء الله ستعود الأمور كمان كانت

[ياسر خليل أبو البراء]

الأخ الحبيب يحيى

جزيت خيراً إلا أن هناك ملحوظة صغيرة جداً على الكود إلا أنها ستعطل الكود عن التنفيذ ألا وهي worksheets فالصحيح worksheet

Application.CommandBars("Worksheet Menu Bar").Enabled = True

أخوك أبو البراء

[يحيى حسين]

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

صدقت اخي ياسر

و عذراً على هذا الخطأ

حيث اني كتبت هذا الكود على الاكسيل 2007 و لم اجربه

جزاك الله خيرا اخي ياسر

[السيوي]

شكرا للاخ يحي الف شكر وزادك الله علما

كما لاننسى دور الاخ ياسر في التصحيح بارك الله فيكم جميعا

جربت الكود ونجحت وظهرت القوائم فجزاكم الله عنا خير

[halwim]

السلام عليكم ....

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

استعادة قوائم و اعدادات الأكسل.rar

[نور محمود]

جزاكم الله خيرا ... الاكسيل دا بحر ملوش اخر

[احمد100]

جزاك الله كل خير حليت لى مشكله كبيره

[ياسر خليل أبو البراء]

نورت المنتدى أخي أحمد

والحمد لله أن تم حل مشكلتك