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

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

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

https://www.djelfa.info/vb/showthread.php?t=935330


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

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

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

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


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

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

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


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

شكرا



>>>>> ردود الأعضـــــــــــــــــــاء على الموضوع <<<<<
==================================

>>>> الرد الأول :

ما فهمنا والوا علاش راك تهدر

=========


>>>> الرد الثاني :

بارك الله فيك على النصيحة

=========


>>>> الرد الثالث :

بارك الله فيك ، تسلم

=========


>>>> الرد الرابع :

شكرا جزيلا

=========


>>>> الرد الخامس :

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


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

=========


بارك الله فيك


لماذا الموضوع أصبح منقول ..............لم أفهم السبب