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

السلام عليكم

اليوم اضع لكم شرح  حل لموضوع تفعيل الماكرو عن طريق لغة برمجة الفيجوال بيسك 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 يتابع الدروس من اولها حتى يتثنى له انهاء هذا العمل

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

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

لتحميل السورس كود اضغط هنا

تقبلو تحياتي

ياسر العربي

يتبع

http://up.top4top.net/downloadf-144afoa1-rar.html

شارك المقال

شاركه على فيسبوكشاركه على جوجل+