Hello,
I am a new XLS PADLOCK user. I am currently developing a mini software on Excel for my customers and I will need some technical support:
I would like to send on a textbox within my vba userform, a text string: either “Trial Version” or “Registred Version” in order to show when opening the form its registration status.
I used the code here attached below, and compiled my workbook IN Trial MODE, but when I open the compiled and protected workbook, the textbox on the userform shows “Registred Version” instead of “Trial Version” and does not change even if I refresh the window.
I am using Excel 2016, (64 bit)
Your help will be greatly appreciated in solving this issue.
Here is the problematic code:
Public Function IsTrial()
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns(“GXLSForm.GXLSFormula”).Object
IsTrial = XLSPadlock.PLEvalVar(“IsTrial”)
Exit Function
Err:
IsTrial = False
End Function
Private Sub UserForm_Activate()
EnableWindow FindWindowA(“XLMAIN”, Application.Caption), 1
Dim information As String
If IsTrial() Then
information = “Trial Version”
Else
information = “Registred Version”
End If
TextBox1.Value = information
End Sub