تشغيل ملف أكسل عند بدء تشغيل ويندوز من خلال الكود

[أنس دروبي]

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

أساتذتي الافاضل وأحبائي كما عودتمونا دائماً في هذا الصرح العربي العملاق بالاكواد المتميزة والرائعة و المبتكرة 

أتمنى منكم عرض رأيكم في هذه الفكرة ....!

منذ فترة وأنا أقوم بالبحث حول كيفية فتح ملف إكسل أو وضع إكسل في قائمة (برامج بدء التشغيل) عند الدخول الى ويندوز

ولكن كانت نتائج البحث في الأكثرية هي وضع ملف اكسل يدوياً في قائمة تشغيل البرامج عند بدء التشغيل وهذا صراحة لا أريده.....

لإن الطريقة موجودة ببساطة وبكثرة في كثير من المواقع العربية والأجنبية

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

عند فتح ملف أكسل يوجد فيه خيار تشغيل تلقائي للملف عند الدخول الى ويندوز

وهذا الخيار مربوط بكود يقوم بوضع الملف المطلوب تشغيله في (قائمة بدء التشغيل) أو بطريقة أخرى حسب البرمجة بلغة VBA 

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

يوجد في الملف المرفق (يوزر فورم) فيه بداية الحل 

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

أخوكم أنس دروبي

Automatically Open Excel Files at Startup from VBA.rar

تم تعديل أكتوبر 2, 2015 بواسطه أنس دروبي
تعديل

[أنس دروبي]

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

أخواني الكرام هل في شيئ جديد حول الطلب 

نريد عرض الأفكار والاراء حول الموضوع

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

[جعفر الطريبق]

الأستاد الفاضل

جرب الكود التالي في ال  ThisWorkbook Module:

Private Sub Workbook_Open()
    If MsgBox("Do you want to add this workbook to the Windows startUp ?", vbYesNo + vbQuestion) = vbYes Then
        AddToWinStartUp Me.FullName, True
    End If
End Sub

Private Sub AddToWinStartUp(ByVal File As String, ByVal Add As Boolean)
     CreateObject("wscript.shell").RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\", IIf(Add, File, vbNullString), "REG_SZ"
End Sub

 

للتدكير فقط ممكن أن يختلف ال (Key Path (  Microsoft\Windows\CurrentVersion  في اصدارات أخرى للويندوز .. كما أن المستخدم User ينبغي أن يتوفر على الحق Privileges في تغيير الريجيستار  Registry

لازالة الملف من قائمة البرامج عند بدء تشغيل الويندوز شغل الكود التالي :

 AddToWinStartUp Me.FullName, False

 

تم تعديل أكتوبر 3, 2015 بواسطه جعفر الطريبق

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

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

[saad abed]

اخى جعفر الطريبق

احيى اهل المغرب جميعا

اكوادك جباره

انت متمكن بسم الله ما شاء الله

 

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

أخي الحبيب جعفر

تسلم الأيادي على الكود المميز والرائع

بارك الله لنا فيك وجعلك ذخراً لنا

تقبل تحياتي

[أنس دروبي]

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

والله أخي سعد عابد صدق عندما قال أحيي أهل المغرب

والله ياأخي جعفر أنت ميراث استاذنا الكبير رحمه الله وأسكنه فسيح جناته 

الأستاذ عماد الحسامي

الكود جبار ورائع بكل ماتقوله الكلمة من معني 

تم تجربته على ويندوز 8 وويندوز7 اصدار 64 بت من خلال اوفيس 2010 و2007 32 بت 

واعطى المطلوب اثناء اعادة تشغيل الكمبيوتر 

ولكن أخي وحبيبي الأستاذ جعفر هل نستطيع تعديل الكود بحيث يكون في اليوزرفورم من خلال (checkbox) أو (commandbutton)

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

Private Sub AddToWinStartUp(ByVal File As String, ByVal Add As Boolean)
     CreateObject("wscript.shell").RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\", IIf(Add, File, vbNullString), "REG_SZ"
End Sub

 لجمالية الموضوع وأثراءها بشكل أفضل 

فالصحيح هو أن يكون اضافة الملف مرة واحدة في قائمة بدء التشغيل

 

بارك الله فيك وجعلك ذخراً للأمة العربية والاسلامية

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

[أنس دروبي]

السلام عليكم 

أساتذي الكرام والأفاضل

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

هل نستطيع تعديل الكود لكي يكون في اليوزر فورم

وليس عند تشغيل الملف تظهر الرسالة كل مرة 

[جعفر الطريبق]

استادي الفاضل أنس دروبي

تفضل الكود في اليوزرفورم

Private Sub CommandButton1_Click()
    If MsgBox("Do you want to add this workbook to the Windows startUp ?", vbYesNo + vbQuestion) = vbYes Then
        AddToWinStartUp ThisWorkbook.FullName, True
    End If
End Sub

Private Sub AddToWinStartUp(ByVal File As String, ByVal Add As Boolean)
     CreateObject("wscript.shell").RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\", IIf(Add, File, vbNullString), "REG_SZ"
End Sub

 

تم تعديل أكتوبر 5, 2015 بواسطه جعفر الطريبق

[أنس دروبي]

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

أخي وأستاذي الكبير جعفر الطريبق الله يبارك فيك وجزاكم الله كل خير 

وأتشرف أن تكون معلمي في مجال البرمجة والعمل معكم في أنشاء اضخم وأكبر البرامج المحاسبية على أكسل

أنت في مجال البرمجة ونحن في مجال التصميم والرسم 

وأن شاء الله نكون مع بعض وكافة الأعضاء الكرام منبراً لنشر العمل والمعرفة في أرجاء الارض والأمة الاسلامية

بارك الله فيكم الموضوع أصبح مجاب بشكل نهائي 

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

 

[عزيز عرابي]

موضوع مميز

[أنس دروبي]

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

على المشاركة

نسأل الله ان نقدم افكار ومواضيع جديدة لخدمتكم

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

[arsalan]

بارك الله فيك اخي