Comprobar si el libro está en estado de prueba con VBA

XLS Padlock proporciona una API de VBA que le permite determinar mediante programación si su libro compilado se está ejecutando en estado de prueba. Usando la función siguiente, puede activar o desactivar funciones específicas, mostrar mensajes de actualización o crear otras limitaciones de prueba personalizadas en función del estado de la licencia del usuario…

👉 Inserte la siguiente función en un módulo de 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

A continuación puede llamar a la función:

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

👉 Véase también: Establecer restricciones en las claves de activación