ich möchte beim öffnen eines Workbooks eine Passwortabfrage automatisch starten. Die Abfrage erfolgt über eine Userform.
Nun zu meiner Frage, wie kann ich verhindern, das durch drücken der Umschalttaste der Vorgang "Workbook_Open" abgebrochen werden kann? Wichtig ist, dass eine verdeckte Passwortabfrage erfolgt.
Listings:
Private Sub Workbook_Open()
frmPasswort.Show
End Sub
Private Sub UserForm_Initialize()
' Schutz auf Wert 1 : Programm wird abgebrochen
' Schutz auf Wert 0 : Programm "EditApplication" läuft ab
Paßwort = CDbl(1) ' Schutz auf Wert 1 setzen
fKennwort.Text = "" ' Kennwort löschen
fKennwort.PasswordChar = "*" ' Echo-Zeichen
fKennwort.MaxLength = 8 ' Kennwortlänge
End Sub
Private Sub fCancel_Click()
Unload Me ' Formular schließen
Paßwort = CDbl(1) ' Schutz auf Wert 1 setzen
ThisWorkbook.Close savechanges:=False
End Sub
Private Sub fOK_Click()
Paßwort = CDbl(0) ' Schutz auf Wert 0 setzen
If fKennwort.Text = "" Then
MsgBox "Kennwort fehlt", _
vbOKOnly, "Nachricht"
fKennwort.SetFocus ' Fokus auf Eingabefeld
ElseIf fKennwort.Text <> "Otto" Then
MsgBox "Kennwort falsch, bitte wiederholen oder abbrechen", _
vbOKOnly, "Nachricht"
fKennwort.Text = "" ' Falscheingabe löschen
fKennwort.SetFocus ' Fokus auf Eingabefeld
Paßwort = CDbl(1) ' Schutz auf Wert 1 setzen
Else
Unload Me ' Formular schließen
End If
End Sub
Vielen Dank im voraus
Richard