ich habe für jede Kalenderwoche ein eigenes Tabellenblatt, also 1KW bis 53KW. Daneben habe ich noch zwei Blätter zur Auswertung und für Sonstiges. Die 53 KW-Blätter möchte ich nun ab der Zeile 48 sperren. Die Zellen darüber sollen beschreibbar bleiben. Die anderen Tabellenblätter "Auswertung" und "Sonstiges" sollen unberührt bleiben.
Folgenden Code habe ich mir schon zusammengestellt, funktioniert aber nicht:
Sub kw_sperre()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "*KW" Then
Range("A2:E47").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="...", _
DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next ws
End Sub
Für die Aufhebung der Sperre habe ich auch einen Code, der aber ebenfalls nicht funktioniert:Sub aufheben()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "*KW" Then
ActiveSheet.Unprotect ("...")
End If
Next ws
End Sub
Wo liegt der Fehler, wer kann mir helfen?Wäre für einen Tipp sehr dankbar
Erwin