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


 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


Copyright © 2021 G.D.G. Software