Zeitbefristete XLS-Datei
31.01.2006 20:57:47
Uwe
ich habe im Netz folgenden Code zur Erweiterung einer zeitlichen Begrenzung eine XLSDdatei gefunden. Läuft echt Super.
Private Sub Workbook_Open()
Dim Pfad As String
Dim wb1 As Workbook
Dim ws1 As Worksheet
Set wb1 = ThisWorkbook
Set ws1 = wb1.Worksheets("Timer")
Application.ScreenUpdating = False 'ausschalten der Bildschirmaktualisierung
Sheets("Timer").Visible = xlVeryHidden 'Vorteil sie können nicht über "Format" -> "Blatt einblenden" eingeblendet werden
If ws1.Cells(1, 1).Value = "" Then 'eintrag des starttages der Frist beim ersten Start
ws1.Cells(1, 1).Value = Date
End If
'Test ob die Frist rum ist
If ws1.Cells(1, 2).Value = "unbegrenzt#543" Then 'bei Besitz einer unbegrenzt gültigen Version (string ist egal bedeutung ist wichtig)
ElseIf ws1.Cells(1, 1).Value + ws1.Cells(1, 2).Value < Date Then 'wenn startdatum+Frist schon vergangen sind
Application.ScreenUpdating = True
MsgBox "Die Laufzeit dieser Trialversion ist abgelaufen."
Application.DisplayAlerts = False
wb1.Close SaveChanges = False
End If
Application.ScreenUpdating = True 'ausschalten der Bildschirmaktualisierung
End Sub
Ich kann jedoch nix mit dem folgenden Eintrag anfangen:
If ws1.Cells(1, 2).Value = "unbegrenzt#543" Then 'bei Besitz einer unbegrenzt gültigen Version (string ist egal bedeutung ist wichtig)
Wie vergebe ich ein unbegrenztes Zeitlimit?
Könnt Ihr mir da Helfen?
Schon einmal vielen Dank!