Hinweismeldung vor Ablaufdatum
17.04.2008 10:07:38
Toxma
Im folgenden Code möchte ich einen Hinweis einbauen, der 3 Tage vor dem Ablauf einen Hinweis bringt und ich weiss nicht ob das geht. Der Hinweis soll, bzw. darf nicht bereits nach dem ersten öffnen der Datei erscheinen, wie jetzt, sondern eben 3 Tage vor Ablauf. Bei mir im Code erscheint der Hinweis sowie die Datei einmal geöffnet wurde bei jedem öffnen. Hab bis jetzt leider keine günstige Lösung gefunden.
Select Case ThisWorkbook.Sheets("Passwort").Range("C1")
Case ""
ThisWorkbook.Sheets("Passwort").Range("C1") = Date
Case Is < DateAdd("d", -10, Date)
If IsEmpty(ThisWorkbook.Sheets("(Quick-Check - Berechnung)").Range("S10")) Then
MsgBox "Sie sind nicht berechtigt diese Datei zu öffnen" _
' & vbCr & "bitte wenden Sie sich an den Programmersteller!"
' ActiveWorkbook.ChangeFileAccess xlReadOnly
' Kill ActiveWorkbook.FullName
' ThisWorkbook.Close False
Exit Sub
End If
Case Else
'hier wird der Hinweis angezeigt aber leider nicht erst 3 Tage vor Ablauf, sondern schon nach dem zweiten öffnen der Datei, wenn ein Datum eingetragen wurde. Dieser Hinweis soll aber nur genau 3 Tage vor Ablauf erscheinen.
tage = 3 - (Date - ThisWorkbook.Sheets("Passwort").Range("C1"))
' MsgBox "Nutzergruppe 'A' erkannt, noch " & CStr(tage) & " Tage bis Ablauf der Nutzungsdauer für A"
End Select
Vielen Dank
T.