Verificare se la cartella di lavoro è in stato di prova con VBA

XLS Padlock fornisce un’API VBA che consente di determinare a livello di codice se la cartella di lavoro compilata è in esecuzione in stato di prova. Utilizzando la funzione seguente, è possibile abilitare o disabilitare funzionalità specifiche, visualizzare messaggi di aggiornamento o creare altre limitazioni di prova personalizzate in base allo stato della licenza dell’utente…

👉 Inserire la seguente funzione in un modulo 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

È quindi possibile chiamare la funzione:

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

👉 Vedere anche: Impostare restrizioni sulle chiavi di attivazione