Locked eigenschaft in Excel

Hi,

ich sitz schon den halben Tag dran und hoffe, mir kann jemand helfen.

Ich habe eine Mappe, Die normalerweise geschützt ist. Dazu habe ich eine Checkbox, mit der ich den Schutz von zwei Zellen aufheben möchte. Ich hab das so gemacht.

Private Sub Checkbox_click()
Worksheets(„Tabelle1“).unprotect
If Checkbox.value = True Then

____range(„E25:E26“).locked = false

else

____range(„E25:E26“).locked= true

end if

worksheets(„Tabelle1“).protect
end sub

die unterstriche sind nur zur lesbarkeit.

Mein Problem ist folgendes. Den Zellschutz hebt Excel wie gewünscht auf. Wenn ich ich den Zellschutz jedoch wieder Aktivieren möchte, bringt Excel die Fehlermeldung, das die Lockedeigenschaft nicht festgelegt werden kann. WIESO NICHT.

ich danke für alle Hinweise, egal wie seltsam sie anmuten.

Micha

Hallo michael,

damit die Eigenschaft verfügbar ist, musst du erst das Worksheet unprotecten, dann die Zellen wieder protecten, anschliessend das Worksheet wieder protecten.

Gruss

Mike

ich sitz schon den halben Tag dran und hoffe, mir kann jemand
helfen.

Ich habe eine Mappe, Die normalerweise geschützt ist. Dazu
habe ich eine Checkbox, mit der ich den Schutz von zwei Zellen
aufheben möchte. Ich hab das so gemacht.

Private Sub Checkbox_click()
Worksheets(„Tabelle1“).unprotect
If Checkbox.value = True Then

____range(„E25:E26“).locked = false

else

____range(„E25:E26“).locked= true

end if

worksheets(„Tabelle1“).protect
end sub

die unterstriche sind nur zur lesbarkeit.

Mein Problem ist folgendes. Den Zellschutz hebt Excel wie
gewünscht auf. Wenn ich ich den Zellschutz jedoch wieder
Aktivieren möchte, bringt Excel die Fehlermeldung, das die
Lockedeigenschaft nicht festgelegt werden kann. WIESO NICHT.

ich danke für alle Hinweise, egal wie seltsam sie anmuten.

Micha