kann jemand helfen oder einen Hinweis geben.
Folgendes Problem, ist vielleicht auch nicht so schwer?
Kann man die im folgenden Code aufgeführte Passworabfrage nach erreichen des Ablaufdatums unterdrücken, so dass nur die Abfrage nach der Kd-Nr. erfolgt?
Bisher erfolgt nach erreichen des Ablaufdatums erst die Abfrage des Passwortes und danch die der Kd-Nr. Dies möchte ich gern verhindern bzw. ausschließen.
Folgendes habe ich bisher:
'Die Passwort Eingabe wird geprüft
Sub xxx()
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!" & 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
'Die Passwort Eingabe wird geprüft, ist Datum kleiner als 1.4.2006
If Date > CDate("01.04.2006") Then
MsgBox "Leider ist die Nutzungsdauer abgelaufen, bitte nun Kundennummer eingeben"
eingabewiederholung: ' neu
PWEingabe = InputBox("Bitte Kundennummer eingeben.")
If CStr(PWEingabe) CStr(Sheets("Fi-Plan(Kunde)").Range("G8")) Then
Fehler = Fehler + 1
If Fehler MsgBox "Sie haben kein oder ein ungültiges Kd-Nr eingegeben!" & vbLf _
& "Noch " & 3 - Fehler & " Versuche."
GoTo eingabewiederholung 'neu
Else
MsgBox "Falsches Kd-Nr, Mappe wird geschlossen"
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
Else
MsgBox "Ihre Kd-Nr Eingabe war OK"
End If
End If
End Sub
Vielen Dank schon Mal
Gruß Torge