Met VBA controleren of de werkmap zich in de proefstatus bevindt

XLS Padlock biedt een VBA-API waarmee u programmatisch kunt bepalen of uw gecompileerde werkmap in een proefstatus draait. Met de onderstaande functie kunt u specifieke functies in- of uitschakelen, upgradeberichten weergeven of andere aangepaste proefversiebeperkingen instellen op basis van de licentiestatus van de gebruiker…

👉 Voeg de volgende functie toe aan een VBA-module:

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

Vervolgens kunt u de functie aanroepen:

Sub Test_IsTrial()
    If IsTrial() Then
       MsgBox "Trial"
    Else
       MsgBox "Registered"
    End If
End Sub

👉 Zie ook: Beperkingen instellen op activeringssleutels