Verfalsdatum Excelmakro
Nessig
mit Hilfe eines anderen Entwickler haben wir ein Makro für ein sogenanntes Verfallsdatum entwickelt. Ziel des Makro soll es sein, das ab ein bestimmten Datum der Benutzer der Excelberechnung ein Passwort eingeben muß. Sollte er diese passwort nicht haben, soll sich die Exceldatei schließen. Aber der Benutzer mit ein Passwort soll auch das Gültigkeitsdatum nach Eingabe des Passwortes ändern können.
Das Makro sieht so aus:
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim verfall As Date
verfall >= CDate("13.08.2008") 'Datum setzen, ab dem das Zugangswort erfragt werden soll _
(bis zu diesem Datum ist die Mappe ohne Zugangswort zu öffnen!)
If Date >=CDate 'wenn Datum größer oder gleich in "CDate" gesetztes Datum _
dann Passwort/Zugangswort Abfrage
PW = InputBox("Die Testphase ist abgelaufen," _
& vbCr & "Zugang nur mit Passwort möglich!", "Info")
End If
Select Case PW
'Zugangswort/wörter vergeben
Case "Test", "Test2", "Test3" ' es sind auch mehrere Zugangswörter möglich!
'Wenn ein falsches Zugangswort verwendet wird
Case Else
If Date >= CDate ' wenn Datum größer oder gleich in "CDate" gesetztes Datum _
dann Infobox starten und Datei schließen
MsgBox "Die Datei wird geschlossen!", vbCritical + vbOKOnly, "Falsches Kennwort"
ActiveWorkbook.Close savechanges:=False
End If
End Select
End Sub
Dieses Makro zeigt uns immer wieder Fehler an. Kann uns einer hier helfen?