ياسر العربى

اخي الكريم قبل ان افتح الملف ياريت تجرب نسخة اوفيس تدعم ال32bit وان شاء الله يعمل معك جيد

اخي الكريم اذا ما عند الفيجوال6 ادخل على الرابط التالي به نسخة محمولة وفي وسط المشاركات ستجد نسخة كاملة http://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي في الملف المرفق شرح فيديو طريقة عمل الشاشة وكيفية تغيير اسم الملف وكلمة المرور اما اذا كان الموضوع به عناء ممكن حضرتك تبعتلي كل اللي محتاج تعمله وانا اعمله لك باذن الله تقبل تحياتي vb6&vba.rar

اخي الكريم هل لديك الفيجوال 6 ام ؟؟؟؟ يوجد نسخه من برنامج الفيجوال بيسك 6 في بداية شرح السلسلة نزلها وقم بفتح السورس كود عن طريقها والتعامل معها كانك بتتعامل مع محرر الاكسيل وتقدر تعدل كل ما تحتاجه

تفضل اخي الكريم الطريقة بالسورس كود Private Sub Form_Load() Dim strPassword As String strPassword = "01097192367" Dim Start, Finsh Form1.Show Start = Timer Finsh = Start + 5 Do Until Finsh <= Timer DoEvents Loop Unload Me Excel.Workbooks.Open App.Path + "\yasser.xlsm", UpdateLinks:=0, Password:="" & strPassword & "" Excel.Application.Visible = True End Sub vb6 &vba.rar

Private Sub Form_Load() Dim Start, Finsh Form1.Show Start = Timer Finsh = Start + 5 Do Until Finsh <= Timer DoEvents Loop Unload Me ' في هذا السطر تستطيع تغيير اسم الملف الخاص بك بما تريد Excel.Workbooks.Open App.Path + "\yasser.xlsm" Excel.Application.Visible = True End Sub ياريت توضح وجهه نظرك حتى اساعدك ماذا تريد ان يحدث ما هي النتيجة المرغوبه تقبل تحياتي

هذه الميزة توجد في الجداول قم بادارج جدول واكتب معادلاتك وسترى كيف تتكرر المعادلة لكل صف تفضل المرفق به طريقتين لحل مشكلتك في شيت2 وشيت3 بيان بالايرادات والمصروفات.rar

تفضل لعله المطلوب =IF(AND(A2=B2;B2=C2;C2=A2);"TRIPLESTARTING";IF(AND(C2=D2;D2=E2;E2=C2);"TRIPLEMIDD";IF(AND(E2=F2;F2=G2;G2=E2);"TRIPLENDING";""))) EXA.rar

جزيت خيرا اخي انس دروبي انت تريد ان تطبق هذه الطريقة تفضل انظر الموضوعات وقل لي ماذا ترى هل فعلا حماية فعاله ام لا http://www.officena.net/ib/topic/65615-أفضل-حماية-للاكسيل-تفوق-التحويل-الى-ملفات-تنفيذية-100مرة/ http://www.officena.net/ib/topic/65946-اختبار-مدى-حماية-الملف-التنفيذي-للفيجوال6-مع-الاكسيل/ راجعهم وباذن الله اشرحها من جديد مع العلم انك ستجد لها شرح ولكن داخل الردود والاستفسارات عن سلسلة الفيجوال 6 تقبل تحياتي

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

تفضل اعمل فلترة حسب اللون

تفضل Book2.rar

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

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

السلام عليكم اليوم اضع لكم شرح حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 بداية الشرح اولا سنقوم بعمل مشروع جديد ليظهر معنا فورم واحد وهو المطلوب لكي يتم ربط الاكسيل مع الفيجوال لابد من وجود مرجع يعتمد عليه البرنامج للتعامل مع الاكسيل وهذه صور من دروس سابقة لمعرفة كيفية اضافة مرجع لبرنامج الاكسيل داخل المشروع الخاص بنا صور من درس سابق لربط الفيجوال بالاكسيل بعد ان قمنا باضافة المرجع الخاص بالاكسيل نأتي لمشروعنا دا شكل الفورم وكوده هتضيف صورة او ليبل حسب ما تشوفه مناسب ليك ودا بدون اي اكواد عادي نأتي للكود نضع في الحدث load الكود التالي Private Sub Form_Load() Dim Start, Finsh Form1.Show Start = Timer Finsh = Start + 5 Do Until Finsh <= Timer DoEvents Loop Unload Me Excel.Workbooks.Open App.Path + "\yasser.xlsm" Excel.Application.Visible = True End Sub الكود عبارة عن اعلان عن متغيرين بداية ونهاية البداية تساوي التايمر النهاية تساوي التايمر + اي وقت تضيفه لفترة عرض الفورم كشاشة افتتاحية وبعد كدا ندخل في حلقة تكرارية حتى تكون النهاية اقل من او تساوي الوقت وبعد تحقق الشرط يتم غلق الفورم وفتح ملف الاكسيل وعرضه في الوضع المرئي وبكدا يكون انتهينا من الدرس الكل مستغرب فيين كود تفعيل الماكرو اقوله مفيش ليه اقوله لان تشغيل ملف الاكسيل عن طريق ملف تنفيذي يجبر وحدات الماكرو على العمل حتى وان كانت غير مفعله الفكرة موجودة من زمان بس محدش كان واخد باله منها لاننا كنا بنقوم بربط ملف عادي وليس به اي وحدات ماكرو وطبعا نقوم بتحويل الملف لملف تنفيذي بعد الانتهاء بالنسبة لمن لديه اي صعوبات في التعامل مع الفيجوال6 يتابع الدروس من اولها حتى يتثنى له انهاء هذا العمل اما بخصوص من لديه الرغبة في وضع هذه الشاشة الافتتاحية ولا يريد ان يشغل باله اقوله ايضا سأقوم بعمل ملف به خيارات لضبطه كما تحتاج للردود او الاستفسار يرجى الدخول على هذا الرابط مرفق السورس كود للبرنامج لمن لا يريد وجع دماغه تقبلو تحياتي ياسر العربي يتبع vb6 &vba.rar

اخي الكريم حسام انت اكبر من ذلك فلا تدع مثل هؤلاء ان يسحبوك الى منزلتهم يقول ذهب المعلمين وهو لم يسجل الا منذ 40 دقيقه من كلامه قمت باخفاء الموضوع حتى لا يزيد له سعرا ولكن كان ابو البراء اكثرا حزما فاذا به يشهر له الكارت الاحمر وتم ايقافه ونعتذر للجميع

السلام عليكم تعمدت ان اضع هذا الموضوع مستقل عن سلسلة الشروحات كي يتمكن الجميع من رؤية الموضوع لمن لم يتابعوا السلسلة اليوم اضع لكم حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 كثير منا يقوم ببناء برنامجه ولكن تظل مشكلة تفعيل الماكرو العائق امام تشغيل برنامجنا على اجهزة اخرى فيضيع علينا اظهار الانطباع الاول لبرنامجنا واللي ميعرفشي موضوع البرمجة ويلاقيك محتاس عمال تفعل الماكرو كل ما تشغله على جهاز جديد يقول انك مش محترف المهم عشان نشغل برامجنا على اي جهاز بدون تفعيل الماكرو وانسى الماكرو خالص قمت بعمل برنامج بسيط يعمل كواجهه للبرنامج الخاص بنا او كشاشة دخول برنامجنا وتبدأ كما بالصورة لمدة نحددها نحن وبعدها تختفى ويفتح لنا البرنامج بدون تفعيل الماكرو كل ما علينا ان نضع ملف البرنامج الخاص بنا بجانب الملف التنفيذي الذي سيعمل كشاشة بداية للبرنامج ونغير اسم برنامجنا الى ما هو موضح بالصورة Yasser.xlsm وهذا مؤقت فقط لحين شرح كيفية عمل هذه الشاشة الافتتاحية وتحطوا اي اسم لبرنامجكم وطبعا الامتداد xlsm ويمكن تغييره حتى ممكن نلعب في الامتداد ونخليه مثلا Yasser.dat ونخفيه كمان يبقي كأنه بيشغل من البرنامج التنفيذي المهم كل واحد عنده ملف به اكواد ماكرو يقدر يعطل الماكرو عنده ويحط ملفه بجانب هذا الملف التنفيذي ويقوم باعادة التسمية ليصبح Yasser.xlsm ويقولي ايه رأيه الملف مرفق به طريقتين لعمل الملف التنفيذي تستطيعوا تجربة اي واحد تقبلو تحياتي ياسر العربي يتبع start.rar شرح طريقة عمل البرنامج اضغط هنا

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

تفضلوا حل مشكلة تفعيل الماكرو على اي جهاز اخر بدون اللجوء الى تفعيل الماكرو نهائيا شغل برنامجك بدون تفعيل الماكرو تقبلو تحياتي

السلام عليكم اليوم اضع لكم حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6 كثير منا يقوم ببناء برنامجه ولكن تظل مشكلة تفعيل الماكرو العائق امام تشغيل برنامجنا على اجهزة اخرى فيضيع علينا اظهار الانطباع الاول لبرنامجنا واللي ميعرفشي موضوع البرمجة ويلاقيك محتاس عمال تفعل الماكرو كل ما تشغله على جهاز جديد يقول انك مش محترف المهم عشان نشغل برامجنا على اي جهاز بدون تفعيل الماكرو وانسى الماكرو خالص قمت بعمل برنامج بسيط يعمل كواجهه للبرنامج الخاص بنا او كشاشة دخول برنامجنا وتبدأ كما بالصورة لمدة نحددها نحن وبعدها تختفى ويفتح لنا البرنامج بدون تفعيل الماكرو كل ما علينا ان نضع ملف البرنامج الخاص بنا بجانب الملف التنفيذي الذي سيعمل كشاشة بداية للبرنامج ونغير اسم برنامجنا الى ما هو موضح بالصورة Yasser.xlsm وهذا مؤقت فقط لحين شرح كيفية عمل هذه الشاشة الافتتاحية وتحطوا اي اسم لبرنامجكم وطبعا الامتداد xlsm ويمكن تغييره حتى ممكن نلعب في الامتداد ونخليه مثلا Yasser.dat ونخفيه كمان يبقي كأنه بيشغل من البرنامج التنفيذي المهم كل واحد عنده ملف به اكواد ماكرو يقدر يعطل الماكرو عنده ويحط ملفه بجانب هذا الملف التنفيذي ويقوم باعادة التسمية ليصبح Yasser.xlsm ويقولي ايه رأيه مش هشرح غير لما الاقي تفاعل الملف مرفق به طريقتين لعمل الملف التنفيذي تستطيعوا تجربة اي واحد للردود او الاستفسار يرجى الدخول على هذا الرابط تقبلو تحياتي ياسر العربي يتبع start.rar

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

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

تفضل اخي الكريم لعله المطلوب نموذج.rar

بعد الالتزام بالتوجيهات و عدم تكرار المواضيع تفضل المطلوب ANADE GOLD GYM.rar