شغل برنامجك بدون تفعيل الماكرو لمن يعانون من تفعيل الماكرو

[ياسر العربى]

السلام عليكم

تعمدت ان اضع هذا الموضوع مستقل عن سلسلة  الشروحات كي يتمكن الجميع من رؤية الموضوع لمن لم يتابعوا السلسلة

 

اليوم اضع لكم حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 6

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

اظهار الانطباع الاول لبرنامجنا 

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

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

قمت بعمل برنامج بسيط يعمل كواجهه للبرنامج الخاص بنا او كشاشة دخول برنامجنا

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

كل ما علينا ان نضع ملف البرنامج الخاص بنا بجانب الملف التنفيذي الذي سيعمل كشاشة بداية للبرنامج

ونغير اسم برنامجنا الى ما هو موضح بالصورة

Yasser.xlsm

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

وطبعا الامتداد xlsm

ويمكن تغييره حتى ممكن نلعب في الامتداد ونخليه مثلا Yasser.dat ونخفيه كمان يبقي كأنه بيشغل من البرنامج التنفيذي

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

ويقوم باعادة التسمية ليصبح Yasser.xlsm

ويقولي ايه رأيه

 

الملف مرفق

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

تقبلو تحياتي

ياسر العربي

يتبع

 

start.rar

 

 

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

[جلال الجمال_ابو أدهم]

ما شاء الله
و جارى التفعيل

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

في انتظار المزيد أخي الحبيب ياسر العربي ولا تنسى فكرة دمج ملف الإكسيل داخل الملف التنفيذي بحيث لا يدع مجالاً لأية ألعاب أخرى من جهة مخربين أمثالي .. وسنقوم ببعض التخريب باستخدام قاهر الملفات التنفيذية .. لن ندعك تهنأ بطريقتك الجديدة الفعالة .. فلكل فعل رد فعل مساوي له في المقدار ومضاد له في الاتجاه

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

[أنس دروبي]

اخي ياسر العربي بارك الله فيكم على هذا الموضوع المتميز 

في انتظار شرحكم حول الطريقة بفارغ الصبر 

نرجو منكم ذلك في القريب العاجل 

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

 

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

في انتظار على نار .. للشرح الجبار
لا تتأخر علينا يا عربي يا مغوار

[علي الشيخ]

مشكور أخي ياسر وطريقة ممتازة صراحة وجديدة بالنسبة لي وفي إنتظار الشرح

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

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

35 دقائق مضت, علي الشيخ said:

مشكور أخي ياسر وطريقة ممتازة صراحة وجديدة بالنسبة لي وفي إنتظار الشرح

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

أخيراً ظهرت على الشاشة ..فينك يا حاج

والله جيت في بالي أكتر من 40 مرة (شفت الدقة دي)

خير اللهم اجعله خير ..لعل غيابك عن إخوانك خير إن شاء الله

لكم افقتدت وجودك فيما بيننا

[ياسر العربى]

23 ساعات مضت, جلال الجمال_ابو أدهم said:

ما شاء الله
و جارى التفعيل

 

15 ساعات مضت, ياسر خليل أبو البراء said:

 

 

2 ساعات مضت, أنس دروبي said:

 

منذ ساعه, علي الشيخ said:

 

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

 

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

 

تقبلو تحياتي

 

[علي الشيخ]

منذ ساعه, ياسر خليل أبو البراء said:

أخيراً ظهرت على الشاشة ..فينك يا حاج

والله جيت في بالي أكتر من 40 مرة (شفت الدقة دي)

خير اللهم اجعله خير ..لعل غيابك عن إخوانك خير إن شاء الله

لكم افقتدت وجودك فيما بيننا

أستاذي وأخي في الله تسلم وما بعدنا إلا الإنشغال وبعض الظروف أبعدتنا شوية نأسف على التقصير

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

[الزباري]

جميل بارك الله فيك، ولكن كيف عند تغيير اسم الملف لا يعمل البرنامج

[ياسر العربى]

13 ساعات مضت, الزباري said:

جميل بارك الله فيك، ولكن كيف عند تغيير اسم الملف لا يعمل البرنامج

شكرا اخي الكريم لمرورك الكريم

 

هل تقصد انه عند تغيير اسم ملف الاكسيل غير الاسم  Yasser  لا يعمل

لاني قمت بوضع اسم الملف تحديدا اثناء البرمجة لبرنامج الشاشة الافتتاحية

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

 

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

 

تقبل تحياتي

 

[أنس دروبي]

بارك الله فيك أخي ياسر العربي على الطريقة 

صراحة طريقة متميزة جداً وجميلة 

لدي تعليق بسيط لنفترض مثلاً 

أن ملف أكسيل نريد اخفاءه بحيث لاأحد يقوم بالتطفل واللعب فيه

أو نقوم بحمايته كحماية مصنف وليس حماية ورق العمل 

بحيث يفتح برقم سري فقط مثل قواعد  البيانات أكسس 

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

نرجو التعليق حول الامر 

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

 

[ياسر العربى]

44 دقائق مضت, أنس دروبي said:

بارك الله فيك أخي ياسر العربي على الطريقة 

 

جزيت خيرا اخي انس دروبي

انت تريد ان تطبق  هذه الطريقة

تفضل انظر الموضوعات وقل لي ماذا ترى هل فعلا حماية فعاله ام لا

http://www.officena.net/ib/topic/65615-أفضل-حماية-للاكسيل-تفوق-التحويل-الى-ملفات-تنفيذية-100مرة/

http://www.officena.net/ib/topic/65946-اختبار-مدى-حماية-الملف-التنفيذي-للفيجوال6-مع-الاكسيل/

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

تقبل تحياتي

[الزباري]

9 ساعات مضت, ياسر العربى said:

شكرا اخي الكريم لمرورك الكريم

 

هل تقصد انه عند تغيير اسم ملف الاكسيل غير الاسم  Yasser  لا يعمل

لاني قمت بوضع اسم الملف تحديدا اثناء البرمجة لبرنامج الشاشة الافتتاحية

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

 

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

 

تقبل تحياتي

 

نعم هذا ما أقصده، فعندما أغير الإسم تظهر لي رسالة بأن ملف yasser غير موجود

[ياسر العربى]

1 دقيقه مضت, الزباري said:

نعم هذا ما أقصده، فعندما أغير الإسم تظهر لي رسالة بأن ملف yasser غير موجود

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

ياريت توضح وجهه نظرك حتى اساعدك ماذا تريد ان يحدث  ما هي النتيجة المرغوبه

تقبل تحياتي

[الزباري]

1 دقيقه مضت, ياسر العربى said:

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

ياريت توضح وجهه نظرك حتى اساعدك ماذا تريد ان يحدث  ما هي النتيجة المرغوبه

تقبل تحياتي

من الواضح أنني لم أغير اسم الملف في الماكرو .. تقبل تحياتي

[محمد عبدالسلام]

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

اخي ياسر العربي بارك الله فيك على هذا الموضوع المتميز  سؤال

كيف يمكنني  تغيير اسم   الملف الخاص في الكود

 

[أنس دروبي]

9 ساعات مضت, ياسر العربى said:

جزيت خيرا اخي انس دروبي

انت تريد ان تطبق  هذه الطريقة

تفضل انظر الموضوعات وقل لي ماذا ترى هل فعلا حماية فعاله ام لا

http://www.officena.net/ib/topic/65615-أفضل-حماية-للاكسيل-تفوق-التحويل-الى-ملفات-تنفيذية-100مرة/

http://www.officena.net/ib/topic/65946-اختبار-مدى-حماية-الملف-التنفيذي-للفيجوال6-مع-الاكسيل/

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

تقبل تحياتي

أخي الحبيب والغالي ياسر العربي

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

القصد حبيبي ياسر أنه

ماهو الكود الذي نضيفه في الفيجوال بيسك لكي يستطيع فتح ملف أكسل محمي بكلمة مرور (حماية مصنف) 

لنتفرض مثلاً لدي ملف أكسل فيه فورم عند فتح الملف وبعد تفعيل الماكرو تغلق واجهة اكسيل ويظهر الفورم 

الذي اريده بحيث إذا المستخدم فتح ملف اكسيل من غير البرنامج التنفيذي تظهر له كلمة السر ولايستطيع التعديل أو اللعب في الملف 

بارك الله فيك لو تشرحلي هذه الجزئية فقط

[ياسر العربى]

تفضل اخي الكريم الطريقة بالسورس كود

1 ساعه مضت, أنس دروبي said:

أخي الحبيب والغالي ياسر العربي

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

[ياسر العربى]

3 ساعات مضت, محمد عبدالسلام said:

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

اخي ياسر العربي بارك الله فيك على هذا الموضوع المتميز  سؤال

كيف يمكنني  تغيير اسم   الملف الخاص في الكود

 

اخي الكريم هل لديك الفيجوال 6 ام ؟؟؟؟

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

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

وتقدر تعدل كل ما تحتاجه

 

[محمد عبدالسلام]

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

اخي ياسر العربي

ياريت توضح كيف يمكنني  تغيير  اسم الملف لي توفيق  مع الملف الشخصي لدي

yasser.zip

[ياسر العربى]

41 دقائق مضت, محمد عبدالسلام said:

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

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

http://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي

في الملف المرفق شرح فيديو طريقة عمل الشاشة وكيفية تغيير اسم الملف وكلمة المرور

اما اذا كان الموضوع به عناء ممكن حضرتك تبعتلي كل اللي محتاج تعمله وانا اعمله لك باذن الله

تقبل تحياتي

vb6&vba.rar

[محمد عبدالسلام]

اخي الكريم ممكن رفع الايقونات بارك الله فيك

[ياسر العربى]

هل تقصد هذه الايقونات

ico.rar

[bin7shr]

عمل مميز بارك الله في علمك