وضع اكثر من كود في حدث الصفحة

[لؤي الخزرجي]

السلام عليكم اخواني الاعزاء

 

كيف يمكنني وضع اكثر من كود في حدث الصفحة

بحيث يعملون بالتسلسل عند بدء تشغيل ملف الاكسل

 

تحياتي

[لؤي الخزرجي]

up up up

 ارجو الاجابة مهم جداااااااااااااااااااا

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

ارفق ملفك أخي الفاضل ..

[لؤي الخزرجي]

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

لدي ملف اكسل

اريد ان ينفذ اكثر من كود عند فتح الملف على شرط يكون كلهم عن طريق الحدث

Private Sub Workbook_Open

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

تحياتي

تم تعديل مارس 10, 2015 بواسطه لؤي الخزرجي

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

تفضل أخي الحبيب وإن كنت لا أدري شكل الأكواد لديك ..

Codes To Run At Startup.rar

[لؤي الخزرجي]

اشكرك اخي العزيز

لدي هذه الاكواد

ارفقها لك بالملف

 

 

22.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / لؤي الخزرجي

بارك الله فيك

حسب فهمي للطلب !!! اخي الكريم

يتم وضع الاكواد المقصودة في حدث الـ  ThisWorkbook

بالشكل التالي ( مع ملاحظة ان الملف لا يفتح بعد التاريخ المحدد في الكود ) برجاء تغييره لمشاهدة طريقة عمل الكود

Private Sub Workbook_Open()
If Date > DateValue("3/3/2015") Then
If InputBox("ÇäÊåÇÁ ÕáÇÍíÉ ÇáÈÑäÇãÌ áÇÚÇÏÉ ÇáÊÝÚíá ÃÏÎá ßáãÉ ÇáÓÑ ") <> "áÄí ÇáÎÒÑÌí" Then
MsgBox "ßáãÉ ÇáãÑæÑ ÎØÇÆÉ "
ThisWorkbook.Close
Else
MsgBox "ÊÝÖá ÈÇáÏÎæá ßáãÉ ÇáãÑæÑ ÕÍíÍÉ  "
End If
If CloseMode = vbFormControlMenu Then Cancel = True
MsgBox " !!! ÓæÝ íÊã ÇÛáÇÞ ÇáÈÑäÇãÌ äåÇÆíÇð "
Application.DisplayAlerts = False
Application.Quit
End If
'====================
UserForm2.Show
'====================
Sheet3.Select
Range("b1").Select
'====================
End Sub

تقبل خالص تحياتي

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

أخي حاول أن تخفف من حجم ملفك وقم بضغطه ثم رفعه .. لم أفهم الأكواد

[لؤي الخزرجي]

اخي العزيز

انا اشكر اهتمامك بالموضوع

بالمرفقات ملف الاكسل الخاص بالموضوع ارجو منك تطبيق ثلاث خطوات عند فتح ملف الاكسل

 

1. تشغيل الكود الخاص بنتهاء الصلاحية // في حال ادخال الباسورد الصحيح يكمل البرنامج للكود الذي بعده وفي حال عدم ادخال الباسورد الصحيح يعطي تنبيه بااغلاق الملف حصرا من عبارة الاغلاق (( بحيث انه يحمي الملف من اي تلاعب ))

2. في حال ادخال الباسورد صحيح يكمل للكود الخاص بتشغيل الفورم

3 . بعد اكمال الكود الثاني يشغل الكود الثالث لاختيار شيت البداية والخلية المراد البدء عندها .

 

ملاحظة : اسم المستخدم / 123    كلمة المرور/ 123  ///////الخاص بواجهة الدخول

 

تحياتي وامتناني لك

 

1111.rar

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

لم أدرك جيدا المطلوب لكن جرب التالي

Private Sub Workbook_Open()
If Date > DateValue("10/3/2015") Then
    If InputBox("انتهاء صلاحية البرنامج لاعادة التفعيل أدخل كلمة السر ") <> "123" Then
        MsgBox "كلمة المرور خطائة "
        ThisWorkbook.Close
        If CloseMode = vbFormControlMenu Then
            Cancel = True
            MsgBox " !!! سوف يتم اغلاق البرنامج نهائياً "
            Application.DisplayAlerts = False
            Application.Quit
        End If
    Else
        MsgBox "تفضل بالدخول كلمة المرور صحيحة  "
        UserForm2.Show
        Sheet3.Select
        Range("B1").Select
        Exit Sub
    End If
End If
End Sub

[لؤي الخزرجي]

عااااااااااااااااااااااااااااااااااااااااشت يداك اخي الكريم هذا هو المطلوب

تحياتي

لؤي الخزرجي

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

الحمد لله الذي بنعمته تتم الصالحات

الحمد لله أن تم المطلوب على خير .. رغم إني مكنتش فاهم ايه المطلوب بالضبط !

حدد مشاركتي كأفضل إجابة (عشان عايز أزعل حمادة حبيبي)

تقبل تحياتي

تم تعديل مارس 11, 2015 بواسطه YasserKhalil

[محمد لطفى]

باشا

[لؤي الخزرجي]

Private Sub Workbook_Open()
If Date > DateValue("30/6/2015") Then
    If InputBox("انتهاء صلاحية البرنامج لاعادة التفعيل أدخل كلمة السر ") <> "123" Then
        MsgBox "كلمة المرور خطائة "
        ThisWorkbook.Close
        If CloseMode = vbFormControlMenu Then
            Cancel = True
            MsgBox " !!! سوف يتم اغلاق البرنامج نهائياً "
            Application.DisplayAlerts = False
            Application.Quit
        End If
    Else
        MsgBox "تفضل بالدخول كلمة المرور صحيحة  "
        UserForm2.Show
        Sheet3.Select
        Range("B1").Select
        Exit Sub
    End If
End If
End Sub

اخي العزي بارك الله فيك على المجهود الرائع

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

1 . في حال اذا كان التاريخ قبل شهر 3 فان الكود يعمل بشكل جيد.

2. اما في حال وضع التاريخ لفترة معينة بعد شهر 3 فان الكود لايعمل للمرحلة الثاني

اي ان لاينفذ الاوامر التي بعده

userfrom2.show

sheet3.select

 

ارجو معالجة الكود

تحياتي

لؤي

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

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

Private Sub Workbook_Open()
    If Date < CDate("30/06/2016") Then
        If InputBox("انتهاء صلاحية البرنامج لاعادة التفعيل أدخل كلمة السر ") <> "123" Then
            MsgBox "كلمة المرور خطائة "
            ThisWorkbook.Close
            If CloseMode = vbFormControlMenu Then
                Cancel = True
                MsgBox " !!! سوف يتم اغلاق البرنامج نهائياً "
                Application.DisplayAlerts = False
                Application.Quit
            End If
        Else
            MsgBox "تفضل بالدخول كلمة المرور صحيحة  "
            UserForm2.Show
            Sheet3.Select
            Range("B1").Select
            Exit Sub
        End If
    Else
            UserForm2.Show
            Sheet3.Select
            Range("B1").Select
    End If
End Sub

[لؤي الخزرجي]

اشكرك اخي العزيز لسعت صدرك

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

 

توضيح بسيط للمشكلة (انه كود حماية للملف يطلب الباسورد عندما يكون التاريخ اقدم من تاريخ الوقت الحالي)

 

المطلوب

1. في حال كان التاريخ اقدم من الوقت الحالي يطلب الباسورد

2. اما اذا كان التاريخ سابق من الوقت الحالي (المستقبل) لايطلب الباسورد وانما يعمل بشكل طبيعي الى ان يأتي التاريخ المحدد فأنه يقوم بطلب الباسورد

 

 

شكرا لتعاونك معي اخي العزيز

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

جرب شيل السطر الخماس من تحت ..

UserForm2.Show

ليعمل بشكل طبيعي إذا كان التاريخ الحالي أكبر من التاريخ المسجل بالكود

[لؤي الخزرجي]

لم افهم اي سطر

يرجى التوضيح مع امتناني

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

ذكرت لك رقم السطر (الخامس من تحت)

عموما جرب

Private Sub Workbook_Open()
    If Date < CDate("30/06/2016") Then
        If InputBox("انتهاء صلاحية البرنامج لاعادة التفعيل أدخل كلمة السر ") <> "123" Then
            MsgBox "كلمة المرور خطائة "
            ThisWorkbook.Close
            If CloseMode = vbFormControlMenu Then
                Cancel = True
                MsgBox " !!! سوف يتم اغلاق البرنامج نهائياً "
                Application.DisplayAlerts = False
                Application.Quit
            End If
        Else
            MsgBox "تفضل بالدخول كلمة المرور صحيحة  "
            UserForm2.Show
            Sheet3.Select
            Range("B1").Select
            Exit Sub
        End If
    Else
           
            Sheet3.Select
            Range("B1").Select
    End If
End Sub

[لؤي الخزرجي]

اخي ياسر

توجد ملاحظة صغير

المشكلة هي الان الكود بالعكس يعمل

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

 

ارجو التعديل

تحياتي

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

ضراحة أنا بدأت أتوه منك

جرب تغير العلامة < إلى العكس في السطر الأول .. شوف هتظبط معاك زي ما إنت عايز أو لا .. لأني والله حاسس إني بوادي وإنت بوادي ..

[لؤي الخزرجي]

اخي العزيز ياسر

اسف لانه لم انتبه الى موضوع الرسائل الخاصة

اكرر اعتذاري

وتقبل تحياتي

[لؤي الخزرجي]

اخي ياسر

 

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

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

ضبطت وتمام وعال العال

 

تحياتي لك يااخي العزيز

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

الأخ الحبيب لؤي الأوسي

الحمد لله أن تم المطلوب على خير ..

شفت ممكن تتظبط بايه ؟؟ يدوب بعلامة !

والرسائل الخاصة لن تسرع بالإجابة ، وأنا بعون الله متابع من غير رسائل خاصة

تقبل تحياتي

[لؤي الخزرجي]

انا جدا مسرور لمعرفتي بحضرتكم

وابغى اطمع بكرمك يااخي العزيز

لدي برنامج ادارة مخزون وتقارير تعاونت انا والاخ العزيز الصقر في بناء الملف والحمد لله وتوفيق منه

اكتمل البرنامج ولكن بقى بعض التعديلات البسطة على موضوع التقارير وبصراحا لايوجد اي تقصير

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

احب ان نكمل انا وانت باقي التعديلات اذا امكن بعد موافقتك يااخي ياسر

 

تحياتي

تم تعديل مارس 14, 2015 بواسطه لؤي الخزرجي