Office: Zellen sperren mit VBA / locked + protect

Liebe Forenmitglieder!

Ich bitte um (Mit)Hilfe bei folgendem Problem:
Ich habe ein worksheet das gesperrt ist (mit pwd) und auf dem nur in 10 Feldern über dropdown (Namensfeld) oder Tastatur numerische Eingaben möglich sind.
Ich kopiere nun dieses Worksheet (selbe Arbeitsmappe) und möchte dass danach 5 der 10 Felder gesperrt sind und vom Benutzer nicht mehr verändert werden können.

Mit meinem Versuch

Worksheets(txt).Unprotect ("pwd")
Worksheets(txt).Range("C6", "C8", "C10", "C12", "C14").Select
Selection.Locked = True
Worksheets(txt).Protect ("pwd")

bin ich gescheitert.*frown.gif*

Weiß jemand weiter?

DANKE im vorhinein für die Hilfe!

LG, Gert

:)

 

Moin, Gert.

in die Range-Angabe gehört meist nur ein Paar Anführungsstriche (hier werden nur die 5 Zellen geschützt, alle anderen sind frei):

Code:

 

Vielen Dank für die prompte Antwort, jinx!
Leider nicht der gewünschte Effekt! Ich kann, nach wie vor, via dropdown oder Tastatur eingeben UND alle anderen Zellen sind jetzt auch offen.

Ich hab wahrscheinlich zu wenig eindringlich darauf hingewiesen, dass sich die Zelleigenschaft "locked/unlocked" der übrigen Zellen NICHT verändern darf.

WWW - wer weiß weiter?

LG, Gert

 

Moin., Gert,

wenn in den Zellen Auswahlen nach Daten/Gültigkeit möglich sind, könnte man diese in der Kopie löschen und den Wert stehen lassen:

Code:

Ansonsten: zeig mir, was Du in der Mappe hast, dann kann ich Dir auch möglicherweise helfen. *wink.gif*

 

lieber jinx!
danke für den validation tipp - der war schritt eins. damit war mein dropdown weg!

bin dann aber selbst noch draufgekommen, was da nicht funktioniert.
ich hatte trotz der locked eigenschaft für das feld immer noch "Benutzer dürfen Bereiche bearbeiten" definiert. erst mit dem Befehl

With ActiveSheet
.Unprotect ("pwd")
.Protection.AllowEditRanges("Bereich2").Delete

hab ich die sperre ermöglicht.

nochmals vielen dank für die hilfe und den denkanstoß!

lg, gert