Retrieve number of remaining days in trial with VBA

 

Purpose: retrieve number of remaining days in trial with VBA

The following VBA code lets you retrieve the number of remaining days for a trial workbook. It will also work for non-trial keys if your key has an expiration date or number of runs.

Public Function ReadTrialState() 

Dim XLSPadlock As Object 

On Error GoTo Err 

Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object 

ReadTrialState = XLSPadlock.PLEvalVar("TrialState") 

Exit Function 

Err: 

ReadTrialState = "" 

End Function

 

You can then call the function:

Sub Test_Trial()

 rdays = ReadTrialState()  

 Worksheets("Sheet1").Range("A1").Value = rdays

End Sub

 


Copyright © 2021 G.D.G. Software