ich habe ein Problem mit dem ich mit meinen bescheidenen Kenntnissen leider nicht weiterkomme und erhoffe Eure Hilfe.
Wir haben hier im Betrieb ein selbsterstelltes Vertriebsprogramm welches erst nach 90 Tagen Testzeitraum beim jeweiligen Vertriebsaussendienstmitarbeiter registriert werden muss.
Bisher gab es nur einen einzigen Schlüssel (im Beispiel abc). Wir möchten aber das man bis zu drei alternative Schlüssel eingeben kann. Wie muss man die Zeile evtl. ergänzen um
abc ODER def ODER ghi als Passwort eingeben zu können.
Public Sub DatumsCheck()
Dim ersterAufruf As Date
If GetSetting("TEST", "Einstellungen", "ErsterAufruf") = "31.12.9999" Then Exit Sub
If GetSetting("TEST", "Einstellungen", "ErsterAufruf") = "" Then
'setzen des Datums
SaveSetting "TEST", "Einstellungen", "ErsterAufruf", Format(Date, "dd.mm.yyyy")
End If
'Check ob noch Gültig
ersterAufruf = GetSetting("TEST", "Einstellungen", "ErsterAufruf")
MsgBox "Der erste Aufruf war am " & ersterAufruf
If DateDiff("d", DateValue(ersterAufruf), Date) > 90 Then
If Application.InputBox("Der Testzeitraum ist vorbei!" & vbLf _
& "Geben Sie den Productkey, den Sie von" & vbLf _
& "Ihrem Vorgesetzten erhalten haben," & vbLf _
& "in das vorgesehene Feld ein, dann können Sie" & vbLf _
& "das Programm unbegrenzt verwenden" & vbLf _
& "Productkey Eingabe der Firma") = "abc" Then
SaveSetting "TEST", "Einstellungen", "ErsterAufruf", "31.12.9999"
Else
MsgBox "Der Lizenzschlüssel ist nicht richtig," & vbLf _
& "das Programm wird jetzt geschlossen." & vbLf _
& "Versuchen Sie es erneut indem Sie das" & vbLf _
& "Programm wieder aufrufen, oder senden." & vbLf _
& "Sie eine E-Mail an Ihren Vorgesetzten ."
ThisWorkbook.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End If
Else
MsgBox "Sie haben noch " & 90 - DateDiff("d", DateValue(ersterAufruf), Date) & " Tage _
zum testen!"
End If
End Sub
Wer kann mir bitte dieses Makro ändern um mein Problem zu lösen.Vielen DAnk
Liebe Grüße
Claudia