Passwortprüfung
13.02.2008 13:54:26
Torge
kann jemand helfen?
Suche nach einer Möglichkeit das öffnen einer Datei vom Datum abhängig zu machen. Sollte ungefähr so sein, User A darf die Datei mit seinem PW immer öffnen, das Ablaufdatum muss in diesem Fall ausgeschaltet sein. Bei öffnen der Datei von User B, sollte das Ablaufdatum vom Zeitpunkt des öffnen der Datei, also (heute) auf x + 30 Tage gesetzt werden. Und bei öffnen der Datei von User C (heute) auf x + 100 Tage. Öffnet nun der User A die Datei, welche User B oder C geöffnet hat, dann muss das Ablaufdatum nicht aktiv sein, d.h. er darf diese Datei jederzeit öffnen.
Hab ähnlichen Code schon aus dem Forum erhalten, weiss aber nicht, ob man den noch weiter anpassen muss.
"Dim Ende1 As Date, Ende2 As Date, Pass$, PW1$, PW2$
Ende1 = "30.05.2007"
Ende2 = "30.05.2008"
PW1 = "AA"
PW2 = "BB"
If Date > Ende2 Then ' nach 2 Jahren
Pass = InputBox("Passwort", "Passwortabfrage")
If Pass <> PW2 Then GoTo Bye
ElseIf Date > Ende1 Then '1 bis 2 Jahre
Pass = InputBox("Passwort", "Passwortabfrage")
If Pass <> PW1 Then GoTo Bye
Else
MsgBox "Ok"
End If
Sheets("Passwort").Range("D5") = Pass
Exit Sub
Bye:
ThisWorkbook.Close
end sub"
Vielen Dank an der Stelle.
T.