Zellen sperren/entsperren über VBA
05.09.2005 13:21:14
Torsten K.
mit folgendem Code kann ich eine einzelne markierte Zelle sperren/entsperren.
Sub Locked()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Selection
If Selection.Locked = False Then
Selection.Locked = True
Else
Selection.Locked = False
End If
Next c
Application.ScreenUpdating = True
End Sub
Was muß ich noch ändern, damit der Code für einen ganzen Range funktioniert (also für mehrere markierte Zellen gleichzeitig)? Ich war eigentlich der Meinung, daß der Code oben schon genauso fuunktioniert. Tut er aber nicht.
Vielen Dank für Eure Hilfe.
Gruß
Torsten
Anzeige