Öffnen nach einem bestimmten Datum II
27.10.2004 17:01:37
Tobias
vielen Dank noch erst einmal an cora und xule für die Beantwortung der letzten Frage.
Trotzdem habe ich immer noch ein Problem:
Ab einem bestimmten Datum soll eine Excel-Datei nur noch zum "Anschauen" geöffnet werden können. Eine Speicherung, auch unter anderem Namen, soll nicht mehr möglich sein. Hier mein Programmcode:
Sub auto_open()
Dim Ende As Date
Ende = "20.10.2004"
If Date > Ende Then
Eingabe = InputBox(" Zeitpunkt abgelaufen. Bitte das Passwort eingeben:")
If Eingabe = "555" Then Exit Sub
MsgBox "Falsches Passwort. Die Datei kann nicht gespeichert werden."
If ThisWorkbook.Saved Then
ThisWorkbook.Saved = True
MsgBox "Die Daten wurden nicht gesichert."
End If
End If
End Sub
Ich hänge an der letzten IF-Schleife. Der Benutzer soll jetzt nichts mehr mit der Datei machen können. Aber irgendwie kann er noch alles machen.
Bin für jede Tipps dankbar.
Tobias
Anzeige