Ga naar inhoud

Resterende proefdagen ophalen met VBA

Met deze VBA-functie kunt u programmatisch het aantal resterende dagen of uitvoeringen van een werkmap in de proefversie ophalen. Ze werkt ook voor geregistreerde sleutels met een vervaldatum of een beperkt aantal uitvoeringen.

👉 Voeg de volgende functie in een VBA-module in:

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

Vervolgens kunt u de functie aanroepen:

Sub Test_Trial()
 rdays = ReadTrialState()
 Worksheets("Sheet1").Range("A1").Value = rdays
End Sub

👉 Zie ook: Hoe u werkmappen in de proefversie maakt