Zum Inhalt springen

Verbleibende Testtage mit VBA abrufen

Mit dieser VBA-Funktion können Sie programmgesteuert die Anzahl der verbleibenden Tage oder Ausführungen einer Arbeitsmappe in der Testversion abrufen. Sie funktioniert auch für registrierte Schlüssel mit einem Ablaufdatum oder einer begrenzten Anzahl von Ausführungen.

👉 Fügen Sie die folgende Funktion in ein VBA-Modul ein:

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

Anschließend können Sie die Funktion aufrufen:

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

👉 Siehe auch: So erstellen Sie Arbeitsmappen in der Testversion