Retrieving subscription/licence information with VBA

Purpose: retrieving subscription/licence information with VBA

XLS Padlock supports online activation and license validation for your Excel workbook app.

In some cases, you may need your activation server to pass some additional data about the subscription or license of your end user. The following VBA code allows you to get a custom string value returned by the server on a successful validation.

This function will only work after a successful validation. It will return blank data in all other cases.

Please refer to the documentation of the XLS Padlock's Activation Kit / FastSpring subscription kit / WooCommerce Integration Kit to see how to pass custom data to the workbook app during the validation process.

Public Function ReturnValidationAdditionalServerData()
Dim XLSPadlock As Object
 
On Error GoTo Err
 
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
 
ReturnValidationAdditionalServerData = XLSPadlock.PLEvalVar("ValidationAddServerData")
 
Exit Function
 
Err:
 
ReturnValidationAdditionalServerData= ""
 
End Function

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

Private Sub Workbook_Open()
 
Sheet1.Range("S24") = ReturnValidationAdditionalServerData()
 
End Sub