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

[abouelhassan]

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

الاخوة الافاضل الكرام

استطيع تنفيذ هذا بالاكسيل

بوضع كود فى thisworkbook

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

هل يمكن تنفيذ هذا بالاكسس ان شاء الله لايصعب عليكم

ااوكد لحضرتكم مش عايز فترة تجريبية لا انا عايز كل 100 مرة فتح للبرنامج يطلب باس ورد للفتح

بارك الله فيكم لا حرمت منكم اخواتى الاعزاء

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

    If GD > 100 Then
        x = InputBoxDK("", " Password")
        If x = 123456 Then
            GD = 0
            SaveSetting "Excel", "0", "RunCounter", GD
        Else
            MsgBox "Password Is Invalid." & Chr(10) & "Workbook Will Close." & Chr(10) & " ", 64
            ThisWorkbook.Close 0
        End If

 

DATA12.mdb

تم تعديل فبراير 7, 2021 بواسطه abouelhassan

[د.كاف يار]

تفضل التعديل اخي الكريم

سيتم تنبيه المستخدم في حال الاستخدام وصل الى 100 مرة 

و للاستمرار يجب ادخال مفتاح الترخيص للاستمرار 

مفتاح الترخيص هو 123 

تستطيع التعديل عليه 

 

DATA12.mdb

تم تعديل فبراير 7, 2021 بواسطه د.كاف يار

[abouelhassan]

اتقدم اليك بكل الشكر اخى استاذ د.كاف يارحسين كمال

انا للامانة مش عارف اجرب الكود

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

وكمان منع الرايت كليك وكل ماتم الغائه ازى ارجعه معلش مشكوووور اخى

تم تعديل فبراير 7, 2021 بواسطه abouelhassan

[abouelhassan]

تسلم ايدك اخى استاذ د.كاف يارحسين كمال

انا دخلت قائمة فايل وحاولت 

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

ويعمل ممتاز بس الى انا معرفتش ارجعه

فى شاشة الفتح اخفاء الجداول والتقارير ممكن بعد اذنك تقولى ارجع الاخفاء ازى معلش مشكوووور

مثل الصورة الاخيرة

تم تعديل فبراير 7, 2021 بواسطه abouelhassan

[د.كاف يار]

تفضل التعديل اخي الكريم

DATA12.mdb

[abouelhassan]

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

بارك الله فيك اشكرك من قلبى ربنا يرضى عنك يارب

[ابوخليل]

تفضل 

تم تعديل الباسوورد

DATA12.rar

[abouelhassan]

ربنا يرضى عنك استاذى واخى ابو خليل

بارك الله فيك تسلم ايدك

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

تم تعديل فبراير 8, 2021 بواسطه abouelhassan

[ابوخليل]

هنا ، في نموذج  frmlogin 

If (UserName = rst!User_Name) And (EncryptDecrypt(Password, UserName) = rst!Password) Then

التعديل :

If (UserName = rst!User_Name) And (EncryptDecrypt(rst!Password, UserName) = Me.Password) Then

التفكير المنطقي يظهر الفرق

[abouelhassan]

الف شكر يا استاذ ابو خليل. 

ربنا يحفظك يارب ويديك الصحة والعافية ويبارك لك في اسرتك الكريمة يارب