Hallo Leute, ich brauche mal eure Hilfe. Ich habe eine daten mit 4 Tabellen (Mo-Fr, Sa, So+Ft, Sonder, Sonder01) und in jeder Tabelle sollen bestimmte Zellen gesperrt werden. Ich habe schon ein bisschen herumgesucht und bin auf ein VBA gestoßen, was meinen Vorstellungen entspricht
so sieht die Orginal aus
Sub test()
Dim Blatt As Worksheet, rng As Range

Set Blatt = Worksheets("PLAN")
Set rng = Blatt.Range(Cells(20, 1), Cells(30, 30))
rng.Select
Blatt.Unprotect
Blatt.Cells.Locked = False
rng.Locked = True
Blatt.Protect

End Sub
und so wollte ich es ändern
Sub test()
Dim Blatt As Worksheet, rngSichern As Range
Set Blatt = Worksheets("Mo-Fr")
Set rngSichern = Blatt.[B13:B65]
Set rngSichern = Blatt.[E69:E70]
Set rngSichern = Blatt.[E74]
Set rngSichern = Blatt.[E77]
Set rngSichern = Blatt.[E80:E81]
Set rngSichern = Blatt.[E83]
Set rngSichern = Blatt.[G13:H65]
Set rngSichern = Blatt.[K69:K70]
Set rngSichern = Blatt.[K74]
Set rngSichern = Blatt.[K77]
Set rngSichern = Blatt.[K80:K81]
Set rngSichern = Blatt.[K83]

Blatt.Unprotect
'Setzt alle "Gesperrt"-Haken auf "Aus"
Blatt.Cells.Locked = False
'Setzt die Haken im Bereich rngSichern = A1:B11
rngSichern.Locked = True
Blatt.Protect
End Sub
leider funktioniert das nicht, kann mir jemand weiter Helfen. Danke Mario