Vérifier si le classeur est en état d'essai avec VBA

XLS Padlock fournit une API VBA qui vous permet de déterminer par programmation si votre classeur compilé s’exécute en état d’essai. À l’aide de la fonction ci-dessous, vous pouvez activer ou désactiver des fonctionnalités spécifiques, afficher des messages de mise à niveau, ou créer d’autres limitations d’essai personnalisées en fonction de l’état de la licence de l’utilisateur…

👉 Insérez la fonction suivante dans un module VBA :

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

Vous pouvez ensuite appeler la fonction :

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

👉 Voir aussi : Définir des restrictions sur les clés d’activation