اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

السلام عليكم

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

 

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

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

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

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

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

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

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

vb666.png

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

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

Capture.PNG

Yasser.xlsm

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

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

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

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

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

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

 

الملف مرفق

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

تقبلو تحياتي

ياسر العربي

:fff::fff::fff::fff:

يتبع

 

start.rar

 

 

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

  • Like 6
  • Thanks 1
رابط هذا التعليق
شارك

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

 

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

 

 

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

 

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

 

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

 

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

 

تقبلو تحياتي

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

تقبل تحياتي

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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  في بداية شرح السلسلة نزلها وقم بفتح السورس كود عن طريقها

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

تقبل تحياتي

vb6&vba.rar

رابط هذا التعليق
شارك

  • 1 year later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information