Habe den Tip bekommen und mir aus´m Archiv und mir von 10649 die untere Funktion abgeguckt. Bekomme Aber die Fehlermeldung
"Die Methode 'VBE' für das Objekt Applikation ist fehlgeschlagen"
& beim Debuggen wird die mit Was ist falsch?
Private Sub CommandButton2_Click()
If TextBox1.Text = "Herber" Then
Application.VBE.MainWindow.Visible = True ' <<<
Unload Me
Else
MsgBox "Kennwort falsch.", 48, "Hinweis"
With TextBox1
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With
End If
End Sub
Danke für Hilfe
Christoph