Ir al contenido

Obtener los días de prueba restantes con VBA

Esta función de VBA le permite obtener mediante programación el número de días o ejecuciones restantes de un libro de prueba. También funciona con claves registradas que tienen una fecha de caducidad o un número limitado de ejecuciones.

👉 Inserte la siguiente función en un módulo de VBA:

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

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

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

👉 Véase también: Cómo crear libros de prueba