Verschiedene Zellbereiche sperren
17.12.2021 16:37:50
Erwin
ich habe eine größere Datei u.a. mit 52 Kalenderwochen-Tabellenregister. In diesen 52 Blätter (1KW usw.) habe ich einen bestimmten zusammenhängenden
Bereich nicht gesperrt, den Rest schon.
Dies ist der Code, der auch einwandfrei funkioniert
Sub KW_sperren()
'Alle Register KWen sperren
Dim ws As Worksheet
For Each ws In Worksheets
If ws.name Like "*KW" Then
With ws.Range("A2:P146") 'Diesen Bereich
.Locked = False 'nicht sperren
.FormulaHidden = False
End With
ws.Protect Password:="...", _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
End If
Next ws
End Sub
sondern wirklich nur die Bereiche nicht mehr sperren, die beschreibbar bleiben sollen.
Mit dem Code
Sub KW_sperren()
'Alle Register KWen sperren
Dim ws As Worksheet
For Each ws In Worksheets
If ws.name Like "*KW" Then
'Diese Bereiche nicht sperren
With ws.Range("A4:G4,A7:P8,A10:G10,A13:P14,A16:G16 usw.).Select
.Locked = False
.FormulaHidden = False
End With
ws.Protect Password:="...", _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
End If
Next ws
End Sub
Laufzeitfehler 1004: Die Select-Eigenschaft des Range-Objektes kann nicht zugeordnet werden.
Kann mir jemand sagen, wo da der Fehler liegt.
Danke im Voraus.
Erwin