Ich würde gerne zwei Module schreiben: Eines zum sperren der Arbeitsblätter und eines zum freigeben. Diese kann ich dann an verschiedenen Stellen nutzen um z.B. Blätter freizugeben, Zellen auszublenden und dann die Blätter wieder zu sperren.
Meine Subs lauten:
Sub freigeben()
Application.ScreenUpdating = False
Dim Passwort As String
Passwort = "test"
Sheets("Willkommen").Unprotect Passwort
Sheets("Eingabe").Unprotect Passwort
Sheets("Ergebnis").Unprotect Passwort
Application.ScreenUpdating = True
End Sub
und
Sub sperren()
Application.ScreenUpdating = False
Dim Passwort As String
Passwort = "test"
Sheets("Willkommen").Protect Passwort
Sheets("Eingabe").Protect Passwort
Sheets("Ergebnis").Protect Passwort
Application.ScreenUpdating = True
End Sub
Die Erste ("freigeben") funktioniert. Die Zweite ("sperren") hingegen nicht (Laufzeitfehler '1004'). Woran könnte dies liegen?Vielen Dank schon mal für eure Hilfe!
Philipp