انتهاء صلاحية المصنف بعد عدد معين من مرات فتحه Workbook Expired After Three Times

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

أقدم لكم كود يقوم بإغلاق المصنف بعد عدد ثلاثة مرات من فتحه أي يسمح لك بفتح المصنف بعد ثلاثة مرات ، وفي المرة الرابعة يطلب منك كلمة مرور ، فإذا كانت كلمة المرور صحيحة ، تم تجديد الباقة (أي سيسمح لك بفتح المصنف لعدد ثلاثة مرات من جديد) ، أما إذا كانت كلمة المرور غير صحيحة يتم إغلاق المصنف.

يوضع الكود التالي في حدث المصنف ، قم بوضع الكود ثم احفظ المصنف ثم افتحه مرةً أخرى ، ليبدأ العداد التنازلي لانتهاء الصلاحية ، أغلق المصنف ثم افتحة مرةً أخرى (هنا المرة الثانية التي تقوم بفتح المصنف فيها) ، أغلق المصنف ثم افتحه للمرة الثالثة والأخيرة (هنا ستغادر الملف ولن تتمكن من فتحه مرة أخرى ..ما عدا ياسر العربي) .. الآن جاءت اللحظة الحاسمة قم بفتح المصنف لتجد أمامك تلك الرسالة :

اكتب كلمة المرور Yasser .. يا للهول إنها ليست كلمة المرور الصحيحة !! لقد ظهرت تلك الرسالة

حقاً إنها لمأساة .. كيف سأدخل إلى بياناتي مرة أخرى ؟ (السؤال غير موجه لياسر العربي)

افتح المصنف مرة أخرى ولا تقلق فكلمة المرور هي 123

حسناً لقد فتحت لك الباقة من جديد .. وها أنت تستمتع بباقتك الجديدة

وأخيراً إليكم الكود المستخدم ، ويوضع كما ذكرنا في حدث المصنف

Private Sub Workbook_Open()
    Dim Retvalue As String, GD As Integer, X

    Retvalue = GetSetting("ExcelLover", "0", "RunCounter")
    GD = Val(Retvalue) + 1
    SaveSetting "ExcelLover", "0", "RunCounter", GD

    If GD > 3 Then
        X = InputBox("Enter Password To Reset Workbook", "Password")
        If X = 123 Then
            GD = 0
            SaveSetting "ExcelLover", "0", "RunCounter", GD
        Else
            MsgBox "Password Is Invalid." & Chr(10) & "Workbook Will Close." & Chr(10) & "Expired Workbook.", 64
            ThisWorkbook.Close 0
        End If
    End If
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء