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

 


Copyright © 2021 G.D.G. Software