هل ممكن عمل فتره تجرييه للبرنامج بالاكسل عن طريق الريجسترى ؟

[خالد كامل11]

هل من الممكن عمل فتره تجرييه للبرنامج بالاكسل عن طريق الريجسترى

[abouelhassan]

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

لاحد اساتذة المنتدى

بعد انتهاء فترة الصلاحية يطلب كلمة السر 1234 فتتجدد الصلاحية

Option Explicit

Private Sub Workbook_Open()
Dim M, pasword
pasword = "1234"

If Date >= CDate("01/05/2020") Then
M = MsgBox("انتهت الفترة التجريبية اذا كان لديك كلمة المرور فاضغط نعم", vbCritical + vbYesNo, "تأكيد")
If M = vbNo Then
Application.Quit
Else
If M = vbYes Then
If pasword = InputBox("ادخل كلمة المرور هنا", "كلمة المرور") Then
   Sheet1.Select
   
   Exit Sub
GoTo 1
Else
MsgBox "ليس لديك الحق في فتح البرنامج", vbCritical, "خطأ"
Application.Quit
End If: End If: End If: End If
1 End Sub