Passwort auf Textfeld

[elamigo]

Hallo zusammen,

derzeit Sperre ich ein Tabellenblatt wie folgt per VBA: 

Code:

       ActiveSheet.Protect = "pw", DrawingObjects:=False, Contents:=True, Scenarios:= _
       False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
       AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
       AllowUsingPivotTables:=True

wie kann ich den Code so umschreiben, dass er nicht immer das selbe password nimmt, sondern den Inhalt einer Textbox in einer Userform?

[marose67]

Hallo,
hier ein altes Beispiel von mir. Bei mir funktioniert es noch: http://ms-excel.eu/vba/vba-userform/vba-...frage.html

Gruß
Marcus

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

[marose67]

Hallo,

hier mal eine ganz einfache Variante. Einfach hinter der Userform diesen Teil austauschen:

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