إجمالي مرات مشاهدة الصفحة

السبت، 23 أبريل 2016

انتهاء صلاحية المصنف بعد عدد معين من مرات فتحه 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

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

هناك 6 تعليقات:

  1. جزاكم الله خيراً أخي الكريم مجدي .. الأروع هو مرورك العطر بالمدونة وإن شاء الله انتظر الجديد يومياً

    ردحذف
  2. بارك الله لك في اهلك و مالك

    ردحذف
  3. جهود مشكورة ابدعت

    ردحذف
  4. بارك الله فيك أخي الكريم ومشكور على المرور العطر بالمدونة

    ردحذف
  5. هههههه عمل جميل لسه واخد بالي انك جبت سيرتي في الموضوع دا
    على العموم اللي عايز يجدد الباقة من غير الكلام دا يجيلي :) ههه
    تقبل تحياتي

    ردحذف