Pular para o conteúdo

Obter os dias restantes da versão de avaliação com VBA

Esta função VBA permite que você obtenha de forma programática o número de dias ou execuções restantes de uma planilha em versão de avaliação. Ela também funciona com chaves registradas que têm uma data de expiração ou um número limitado de execuções.

👉 Insira a função a seguir em um módulo 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

Em seguida, você pode chamar a função:

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

👉 Veja também: Como criar planilhas em versão de avaliação