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
 IsValidationOK = False
End If
Exit Function
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"
Sheet1.Range("S24") = "FAIL"
End If
End Sub