Re: Protect/Unprotect mit VBA
05.12.2002 13:12:46
Andreas
Es funktioniert aber trotzdem nicht. Und zwar kommt immer der Fehler:
Laufzeitfehler 1004
Die Unprotect-Methode des Worksheets-Objektes ist fehlerhaft.Hier noch mal meine gesamte Prozedur:
Private Sub OK_Click()
If TextBox1.Text = "xxx" Then 'Passwort für den Einkauf
If OK.Caption = "gesperrt" Then
Worksheets("START").Unprotect
CommandButton1.Caption = "ungesperrt"
Else
Worksheets("START").Protect
CommandButton1.Caption = "gesperrt"
End If
Tabelle1.Visible = xlSheetVisible
Tabelle10.Visible = xlSheetVisible
Tabelle2.Visible = xlSheetVisible
Tabelle3.Visible = xlSheetVisible
Tabelle4.Visible = xlSheetVisible
Tabelle8.Visible = xlSheetVisible
Modul7.Einkauf_BeiKlick
End
End if
End Sub
Und zwar funktionier es folgendermaßen.
ich habe auf der Tabelle "START" einen CommandButton.
Wenn ich darauf klicke kommt ein UserForm mit einer Passwortabfrage mittels Textbox.