Verificar se a Planilha Está em Estado de Avaliação com VBA

O XLS Padlock fornece uma API de VBA que permite determinar de forma programática se a sua planilha compilada está sendo executada em estado de avaliação. Usando a função abaixo, você pode ativar ou desativar recursos específicos, exibir mensagens de atualização ou criar outras limitações de avaliação personalizadas com base no status da licença do usuário…

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

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

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

👉 Veja também: Definir restrições nas chaves de ativação