kann man bei Eingaben in der InputBOX die Eingabe maskieren, e.h. mit "*". - Es soll ein Passwort eingegeben werden und das sollte man nicht sehen ...
Danke,
Markus
kann man bei Eingaben in der InputBOX die Eingabe maskieren, e.h. mit "*". - Es soll ein Passwort eingegeben werden und das sollte man nicht sehen ...
Danke,
Markus
benutze doch eine Userform, gestallte ein Textfeld, stelle in den Eigenschaften der Userform bei PasswordChar dein gewünschtes Symbol ( z.B. "*" ) ein, erstelle ausserdem auf der Userform eine Befehlsschaltfläche und belege diese mit dem Code:
Private Sub CommandButton1_Click()
If TextBox1 = "hallo" Then
ActiveSheet.Unprotect password:="moinmoin"
Else
ActiveSheet.Protect password:="moinmoin"
End If
Unload Me
End Sub
der die Eingabe im Textfeld überprüft.
Auf dem tabellenblatt erstellst du auch eine Befehlsschaltfläche die du mit dem Code belegst:
Sub zur_passwordabfrage()
UserForm1.Show
End Sub
fertig.
Gruss Bernd