حذاري المشاكل التي تأتي من البرامج لأشخاص لا يتقنون البرمجة على إكسال حلها هنا [الأرشيف]

ahcene23

2012-04-17, 01:48

ملاحظة : الى السيد المشرف على هذا المنتدى أن ينتبه إلى هذا النوع من المشاكل التي تأتي من البرامج
لأشخاص لا يتقنون البرمجة يفسدون أكثر من أن يحسنون و هم لا يظنون أنهم يفسدون و الله أعلم

وحتى ألفت إنتباهك الى هذا النوع من المشاكل اليك هذا الموضوع من هذا الربط في منتدنا

http://www.djelfa.info/vb/showthread.php?t=935330 (http://www.djelfa.info/vb/showthread.php?t=935330)

لكن كثير من الزملاء كلموني بالهاتف على أن البرنامج أفسد لهم واجهة إكسال خاصة
إختفاء أشرطة الادوات .
هل يعقل أن يقدم شخص خدمة لكنها تفسد الكثير

أنصحك يأخي و أنصح نفسي و كل عضوا في هذا المنتدى أن نعمل أو نقدم خدمة لوجه الله

ليس فيها أو من ورائها بلاء. في منتدانا المتميز فعلا. وشكرا

أنتهت الملاحظة.

************************************************** ************************************************** ************************************************** **********************

الحل لأختفاء : أشرطة الادوات أو الواجهة أو شريط القوائم في برنامج إكسال Excel 2003-2007-2010

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

1-أفتح إكسال ......سيفتح لك مصنف فارغ

ouvre Excel tu as un classeur "vide" qui s'ouvre

2- عندما يفتح البرنامج أستعمل لوحة المفاتيح و أضغط معاعلى ALT + F11

avec alt+f11 tu dois ouvrir l'editeur vba

3-أكتب ما يلي في صفحة أمامك
tu saisis :

Sub Rest
Dim bar As CommandBar
For Each bar In CommandBars
bar.Enabled = True
Next
End Sub

4-سجل الصفحة
ENREGISTRER LA MACRO

5- نفذ الماكرو التي أسمها Feuil1 أو أضغط على F5

tu exécutes cet macro... en laisant le curseur "dedans "
Lance avec F5

شكرا

netcom199

2012-04-17, 22:30

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

Sub Rest
Dim bar As CommandBar
For Each bar In CommandBars
bar.Enabled = True
Next
End Sub
اغلق الصفحة
اضغط f5
او اضغط على تشغيل ماكرو سترجع القوائم المختفية
شكرا لك