Blattschutz
28.01.2005 14:00:24
Steffen
Sub SetProtect()
Dim rng As Range
Cells.Locked = True
For Each rng in ActiveSheet.UsedRange.Cells
if not rng.interior.colorindex = 2 then
rng.locked = false
end if
next rng
ActiveSheet.Protect
End Sub
Es bewirkt, dass alle Zellen die nicht gelb hinterlegt sind schreibgeschützt werden!
Dass hab ich mal irgendwo hier auf der Seite gefunden, habs schonmal in ein programm eingebaut. Damals hats funktioniert, jetzt bekomm ich fehlermeldung:
Laufzeitfehler '1004':
Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Weiß jemand vielleicht nen grund?
danke im voraus, steffen