Fehlermeldung Locked und Range
20.01.2006 13:33:18
Puchta
Ich habe eine Tabelle über Blattschutz geschützt, nur die Eingabezellen sind nicht gesperrt. Ich will nun über ein Makro diese nicht gesperrten Zellen sperren, wenn entweder D21 "" oder O21 "" ist.
In einer kleinen Testdatei funktioniert es auch. Wenn ich es aber in der "richtigen" Datei anwenden will, kommt Fehlermeldung:
"Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden."
Hier der Code:
Sub zellen_sperren()
ActiveSheet.Unprotect
If Range("D21").Value <> "" Then
Range("E29:M41", "E58:M130").Locked = True
End If
If Range("O21").Value <> "" Then
Range("E29:H41", "E58:H130").Locked = True
Range("M39", "M68").Locked = False
Range("M88", "M108").Locked = False
Range("M128").Locked = False
End If
ActiveSheet.Protect
End Sub
Das Makro bleibt in der 4. Zeile stehen.
Vorschläge?