Mit VBA prüfen, ob sich die Arbeitsmappe im Testmodus befindet

XLS Padlock stellt eine VBA-API bereit, mit der Sie programmgesteuert ermitteln können, ob Ihre kompilierte Arbeitsmappe im Testmodus ausgeführt wird. Mit der folgenden Funktion können Sie bestimmte Funktionen aktivieren oder deaktivieren, Hinweise auf ein Upgrade anzeigen oder weitere benutzerdefinierte Einschränkungen für die Testversion abhängig vom Lizenzstatus des Benutzers erstellen…

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

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

Anschließend können Sie die Funktion aufrufen:

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

👉 Siehe auch: Einschränkungen für Aktivierungsschlüssel festlegen