► الشحّاد الإلكتروني : فكرة رائعة لجمع الأكواد المفيدة عمليا في ملف واحد ◄

[الفدائي]

 

 

الإخوة الأعزاء , لقد استفدت ايما فائدة من هذا المنتدى , جزى الله عنا اخواننا خير الجزاء

 

الفكرة : جمع الاكواد التي غالبا ما اتعامل بها في برامجي ووضعها في ملف وربطها بصورة ظريفة وجذابة  بحيث يمكن الرجوع لهذه الاكواد في اي وقت

 

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

 

فعندما يبحث احدنا عن الاتي :

 

 - كود لإخفاء الريبون Ribbon  أو إخفاء شريط الحالة Statusbar  والشيت  Sheet tabs

 - كود لإغلاق الخلايا Lock area ( وليس حمايتها )  من التعديل ما عدا التي تحددها انت . 

 - كود لإخفاء اشرطة التمرير Scroll bars وتعطيل عجلة الماوس Mouse wheel

 - كود لمربع النص بان لا يقبل اي حرف او رمز الا  الأرقام فقط  Numeric

 - كود بان لا يغلق الاكسل الا بعد التحقق من شيء معين

 - اكواد مقارنة القيم واظهار الرسائل  المختلفة .

......  الخ  

 

كلها سيجدها هنا  مفصلة

 

اتمنى ان تنال الفكرة اعجابكم خاصة المبتدئين امثالي

 

 

اسألكم الدعاء

 

وشكرا ,

 

أخوكم : الفدائي

 

__________________________________________

Electronic-Beggar.zip

تم تعديل مايو 11, 2013 بواسطه احمد فضيله

[حمادة عمر]

السلام عليكم

الاخ الكريم / الفدائي

 

بارك الله فيك

مجهود جميل فعلا ...  تشكر عليه

وملف دمه خفيف

ولاثراء الموضوع اضع روابط موضوع ( محفظة الاكواد المتنوعة )

http://www.officena.net/ib/index.php?showtopic=37647&hl=%2B%D9%85%D8%AD%D9%81%D8%B8%D8%A9+%2B%D8%A7%D9%84%D8%A7%D9%83%D9%88%D8%A7%D8%AF#entry202299

 

http://www.officena.net/ib/index.php?showtopic=37670&hl=%2B%D9%85%D8%AD%D9%81%D8%B8%D8%A9+%2B%D8%A7%D9%84%D8%A7%D9%83%D9%88%D8%A7%D8%AF

 

http://www.officena.net/ib/index.php?showtopic=39791&hl=%2B%D9%85%D8%AD%D9%81%D8%B8%D8%A9+%2B%D8%A7%D9%84%D8%A7%D9%83%D9%88%D8%A7%D8%AF#entry222361

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

[أبو محمد عباس]

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

الاخ العزيز الفدائي جزاك الله خيرا

عمل رائع جعله الله في ميزان حسناتكم

دمتم برعاية الله وحفظه

[احمد فضيله]

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

[الفدائي]

بارك الله فيكم إخواني الكرام على مروركم وإشادتكم

 

الأخ حمادة مشكور علي الروابط  

تم تعديل مايو 11, 2013 بواسطه الفدائي

[خالد الشاعر]

استاذ الفدائي

 

عمل رائع به فكرة جميلة

 

لى سؤال لو سمحت

 

هل ممكن بدل اخفاء كل شريط الاوادت

 

نوقف عمل بعض الايقونات فقط

 

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

[الفدائي]

الاخ خالد تقصد مثلا تعطيل عملية القص او النسخ مثل الاتي :

 

Application.CutCopyMode = False

 

لكن مع ايقونات الريبون الكثيرة هذه نحتاج لاكواد كثيرة وبحث هنا وهناك لتعطيل ما نريد

 

انظر الملفات المرفقة التي كنت قد حصلت عليها من احدى المنتديات الاجنبية احدهم به اوامر لتعطيل بعض المجموعات المخصصة من الريبون ( انظر المجموعات الجديدة اقصى يمين الريبون عند الضغط على الازرار ) - والاخر للاخفاء

 

 

Enable-Disable custom Ribbon buttons in Excel .zip

Hide-Display-Built-in Tab-Group.zip

[خالد الشاعر]

استاذ فدائي

 

الف الف شكر

 

تسلم ايدك

 

جزاك الله كل خير و جعلة فى ميزان حسناتك

[قنديل الصياد]

بارك الله فيك اخى العزيز

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

[جمال الفار]

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

الفاضل الفدائي/ جزاك الله خيرا

عمل اكثر من  رائع
جزيت عنه خيرا

وفقكم الله

تقبلوا احترامى وتقديرى

[؛ أحمد النجار ؛]

جزاك الله خيرا على ما قدمت

 

ملف رائع جدا

 

جعله الله في ميزان حسناتك

[محمود_الشريف]

أخى الكريم  الفدائي/ جزاك الله خيرا

عمل اكثر من  رائع
جزيت عنه خيرا

وفقكم الله

تقبلوا احترامى وتقديرى

[أم عبد الله]

الأستاذ / الفدائي

 

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

 

فكرة جميلة جداً ومتعة وامكانيات الأكواد في الاكسيل لا تنتهي.جزاك الله خيراً.

[عادل ابوزيد]

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

[ريان أحمد]

السلام علليكم    فكرة جميلة لو قمنا بتطبيقها

 

أين الأكواد

 

ظهرت رسالة الخطأ التالي

 

 

 

 'Hide Status bar
 Application.DisplayStatusBar = False

'Hide ribbon
If Application.ExecuteExcel4Macro("Get.ToolBar(7,""Ribbon"")") Then
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"
Else
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", True)"
End If
 

 

في السطر الأحمر

[ريان أحمد]

up

[ابو راكان العودة]

السلام عليكم 

لو تكرمت  كود تعطيل عجلة الماوس Mouse wheel

غير موجود هل ممكن تزويدنا به وجزاكم الله خير