Salta ai contenuti

Recuperare i giorni di prova rimanenti con VBA

Questa funzione VBA consente di recuperare in modo programmatico il numero di giorni o di esecuzioni rimanenti per una cartella di lavoro in versione di prova. Funziona anche per le chiavi registrate che hanno una data di scadenza o un numero limitato di esecuzioni.

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

È quindi possibile richiamare la funzione:

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

👉 Vedere anche: Come creare cartelle di lavoro in versione di prova