kann jemand helfen?
möchte, dass bei folgende Passwortabfrage nach der 3 Falscheingabe die Abfragebox noch einmal aufgerufen wird und eine Kundennummer, die sich auf dem ausgeblendeten Tabellenblatt befindet abfragt. Hatt den Hintergrund, dass das Passwort nach ca 4 Wochen ungültig wird und dass Blatt nur noch über eine Nummer eingeblendet werden darf.
Folgender Code lieg mit hifle des Forums bereits vor:
'bei öffnen abfrage Password
Private Sub Workbook_Open()
Dim PW As String, PWEingabe As String, Fehler As Byte
PWort = "abc"
'Ablauf wird geprüft, ist aber kein wirklicher Schutz!!
If Date > CDate("01.05.2006") Then
MsgBox "Zeit abgelaufen, bitte Kundennummer eingeben"
ThisWorkbook.Close
End If
'Die Passwort Eingabe wird geprüft
Do
PWEingabe = InputBox("Bitte geben sie Ihr Paßwort ein" & Chr(13) & _
"Das richtige Paßwort lautet: ""abc""", "Paßwortabfrage")
If PWEingabe <> "abc" Then
Fehler = Fehler + 1
If Fehler < 3 Then
MsgBox "Sie haben kein oder ein ungültiges Paßwort eingegeben bitte Kundennummer eingeben!" & vbLf _
& "Noch " & 3 - Fehler & " Versuche."
Else
MsgBox "Falsches Passwort, Mappe wird geschlossen"
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
Else
MsgBox "Ihre Paßwort-Eingabe war OK"
End If
Loop Until PWEingabe = "abc"
' blatt einblenden
'End Sub
Hoffe ist nicht zu kompliziert, komme leider an diesem Punkt nicht weiter.
Vielen Dank
Torge