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

[وليد زقزوق]

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

ما اريده هو امكانيه التحكم في عدد المرات + ان الكود لا يترف علي هذا لاجهاز من خلال الاي بي لاني مسحت البرنامج ونزلته تاني ولكن لا يفتح برضو

تحياتي،،

3 Times Only1.rar

[عبد الله بولنوار]

Private Sub Workbook_Open()
Dim Retvalue As String, GD As Integer
    Retvalue = GetSetting("A", "0", "Runcount")
    GD = Val(Retvalue) + 1
    SaveSetting "A", "0", "RunCount", GD
    If GD > 4 Then ' الرقم (3) يحدد عدد مرات التشغيل
        MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
        ThisWorkbook.Close 0
    End If
End Sub

الكود واضح اذا GD اكبر من 4 تظهر الرسالة و يغلق الصفحة لو غيرت الرقم الى 10 سيفتح الملف 10 مرات و هكذا

[دغيدى]

Option Explicit

Private Sub Workbook_Open()
Dim Retvalue As String, GD As Integer
    Retvalue = GetSetting("A", "0", "Runcount")
    GD = Val(Retvalue) + 1
    SaveSetting "A", "0", "RunCount", GD
    If GD >= [A3] Then ' الرقم (3) يحدد عدد مرات التشغيل
        MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
        ThisWorkbook.Close 0
    End If
End Sub

يمكنك تحديد عدد المرات من الخلية  A3    

3 Times Only1.rar