Clever-Excel-Forum

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?

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

Gruß
Marcus

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.

Hallo,

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

elamigo

marose67

elamigo

marose67