Private Sub in User Form

Hallo,

ich habe im Archiv folgenden Code gefunden, der es ermöglichen soll bei der Passwort-Eingabe das Passwort nicht als Klartext sondern als Sternchen (****) erscheinen zu lassen. Nachdem ich mir eine User Form mit "OK" und "Abbrechen" Knopf gebastelt, und den Code eingefügt habe, erscheint nach dem Aufrufen:

Run-time error '424': Object required
(Ich habe die englische Version von Office 9.0)

Hier ist der Quellcode:

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
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

Da die Schaltflächen in der User Form ja "CommandButton1_Click()" und "CommandButton2_Click()" heissen, habe ich versucht "fOK_Click()" und "fCancel_Click()" entsprechend den Schaltflächen in "CommandButton1_Click()" usw. umzubennenen, aber das hat nichts gebracht.
Könnt ihr mir vielleicht helfen?

Gruß
Matthias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tobias,

beim Öffnen der Datei wird ein Passwort abgefragt. Bisher habe ich das so gemacht:

Private Sub Workbook_Open()
'Sheets("blank").Select
Dim sWort As String
sWort = InputBox( _
prompt:="Passwort:", _
Title:="Sicherheitsabfrage", _
Default:="")
If sWort <> "passwort" Then
Beep
MsgBox "Das eingegebene Kennwort ist falsch", _
vbOKOnly, " Loginfehler! "

ThisWorkbook.Close savechanges:=False

Else
Application.ScreenUpdating = False 'Falckern des Bildschirms vermeiden
ActiveWorkbook.Unprotect password:="unprotect"
ActiveWindow.DisplayWorkbookTabs = False 'Registerblätter ausblenden

Sheets("C").Visible = True 'Blatt einblenden
Sheets("C").Select
Sheets("C").ScrollArea = "m2:m2" 'Scrollsperre
ActiveSheet.Protect password:="unprotect"
ActiveWindow.DisplayHeadings = False 'Zeilen beschriftung ausblenden

Application.ScreenUpdating = True

ActiveSheet.Protect password:="unprotect"
ActiveWorkbook.Protect password:="unprotect"

End If
End Sub

(hab ihn stellenweise gekürzt um es hier etwas übersichtlicher zu machen)

Da aber bei der Eingabe das Passwortes dasselbe sichtbar ist, ist das kein richtiger Schutz. Deshalb wollte ich es realisieren, dass statt des Passworts **** erscheint.

Ich habe jetzt aus Deinem code "Unload Me" herausgenommen, und das Makro läuft, aber es wird halt immer noch das Passwort angezeigt.

Gruß
Matthias

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread