Hallo,
kann jemand helfen?
Im folgenden Code möchte ich einen Hinweis einbauen, der 3 Tahe 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, sondern eben 3 Tage vor Ablauf. Bei mir im Code erscheint der Hinweis sowie die Datei einmal geöffnet wurde.
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 beim zweiten öffnen.
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.