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