Eingabefelder sperren
22.01.2004 15:01:50
Torsten K.
in einem WS habe ich im Range A7:G65 Eingabefelder, die grün unterlegt sind und über ein cmb_Button aus einem anderen WS heraus gesperrt und wieder entsperrt werden sollen. Leider bleibt Excel an der Stelle "ZE.Locked = True" mit der Fehlermeldung "Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden" hängen.
Private Sub cmb_PROTENTER_Click()
Application.ScreenUpdating = False
Dim rng As Range
Set rng = Worksheets("ENTER").Range("A7:G65")
Dim ZE As Object
If GetPassword = True Then
Application.StatusBar = "Bitte einen Moment Geduld..."
With Worksheets("ENTER")
.Unprotect password:="Kennwort"
.Activate
'For Each ZE In ActiveSheet.UsedRange.Cells
For Each ZE In rng.Cells
If ZE.Interior.ColorIndex = 35 Then
ZE.Locked = True
End If
Next ZE
.Protect password:="Kennwort"
End With
Else
MsgBox "Password ist falsch"
End If
Application.StatusBar = False
Sheets("START").Select
Application.ScreenUpdating = True
End Sub
Kann mir jemand weiterhelfen?
Vielen Dank im voraus.
Gruß
Torsten