Test if online validation was successful or not

Purpose: test if online validation was successful or not

XLS Padlock supports online validation of activation keys. You can decide what to do if validation fails.

Use the following function to get the result of the validation process:

Public Function IsValidationOK()
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
If XLSPadlock.PLEvalVar("ValidationSuccess") = "1" Then
 IsValidationOK = True
Else
 IsValidationOK = False
End If
Exit Function
Err:
IsValidationOK = False
End Function
 

 

You can then call the function. For instance, the following code sets the value of a cell:

Private Sub Workbook_Open()
If IsValidationOK Then
Sheet1.Range("S24") = "OK"
Else
Sheet1.Range("S24") = "FAIL"
End If
End Sub