Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Folgende(r) 1 Nutzer sagt Danke an marose67 für diesen Beitrag:1 Nutzer sagt Danke an marose67 für diesen Beitrag 28 • elamigo
Hi, danke erstmal. Ich glaube wir sind nah dran. Mein Ziel ist es, ein PW in das Textfeld einzugeben. Diese Eingabe solle nach Bestätigung der neue Blattschutz sein.
hier mal eine ganz einfache Variante. Einfach hinter der Userform diesen Teil austauschen:
Zitat:Private Sub CommandButton1_Click()
Worksheets(1).Unprotect Password:=Range("A1")
Passwort = TextBox1.Value
If Passwort <> "Passwort" Then
TextBox1 = ""
Schalter = False
Exit Sub
End If
Schalter = True
Range("A1") = Passwort
Worksheets(1).Protect Password:=Range("A1")
Unload Me
End Sub
Gruß
Marcus
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
Folgende(r) 1 Nutzer sagt Danke an marose67 für diesen Beitrag:1 Nutzer sagt Danke an marose67 für diesen Beitrag 28 • elamigo