Eine nach dem Einfügen gesperrte Zelle wieder entsperren

Hallo Philipp,

wenn ich aus einer anderen Mappe etwas in die nicht gesperrten Zellen einfüge, bleibt diese Zelle weiterhin nicht gesperrt. Ich kann das also nicht nachvollziehen.

Wenn bei dir die Zelle gesperrt ist, kannst du sie nicht direkt entsperren, da für diese Zelle der Blattschutz dann aktiv ist. Du müsstest also zuerst den Blattschutz aufheben, dann die Sperrung der Zelle deaktivieren und danach Blattschutz wieder setzen.

Claus

Hallo Daniel,

habe Deinen Code inzwischen getestet - funktioniert einwandfrei!

Vielen Danke noch mal für Deine Mühe.

Beste Grüße, Philipp

Schade, hat niemand eine Idee dazu?

Hallo Phillipp,

doch ;-) Also ich verstehe dein Problem so:

In einem geschützten Tabellenblatt hast du einzelne Zellen editierbar gelassen, indem du im Dialog
Zellen formatieren im Reiter Schutz die CheckBox
Gesperrt nicht gesetzt hast. Jetzt schneidet jemand aus einem anderen Tabellenblatt/Arbeitsmappe die Zelle aus und fügt sie in deinen editierbaren Bereich ein. Damit wird der Bereich ebenfalls geschützt, weil die CheckBox
Gesperrt standardmäßig in allen Tabellenblättern für alle Zellen gesetzt ist und der Blattschutz an ist.

Habe ich das richtig verstanden?

Dann kannst du diesen Code verwenden:

Private Sub Worksheet_Change(ByVal Change As Range)    With ActiveSheet        'Blattschutz aufheben        .Unprotect "%Passwort%"        With Range(Change.Address)            'Dialog 'Zellen formatieren' Reiter 'Schutz' CheckBox 'Gesperrt' = FALSE            .Locked = False            'Linksbündig            .HorizontalAlignment = xlLeft        End With        'Blattschutz setzen        .Protect "%Passwort%"    End WithEnd Sub

Wichtig:

1. %Passwort% musst du am Anfang und am Ende noch durch dein Passwort vom Blattschutz ersetzen. Es steht dann im Code im Klartext.

2. Der Code muss in dem VBA Projekt in die entsprechende Tabelle [hier: Tabelle1 (Tabelle1)], nicht in ein Modul:





Das Makro wird automatisch ausgeführt, wenn sich in dem Arbeitsblatt der Wert irgendeiner Zelle ändert. Der Blattschutz wird aufgehoben und die Zelle mit der Wertänderung wieder auf Kurs gebracht. In dem Bereich
With Range(Change.Address) kannst du auch noch weitere Formatierungen unterbringen. Anschließend wird der Blattschutz wieder gesetzt. Das Makro ist zu Ende.

Viel Erfolg und Frohes Schaffen!

Daniel

Hallo Claus, Hallo Daniel,

der Text, der hier eingefügt werden soll, stammt nicht aus Excel, sondern aus einer Web-Anwendung. Der Effekt lässt sich einfach reproduzieren, indem ihr ein 'normales' Wort (hier aus Google) kopiert und in eine zunächst nicht gesperrte Zelle einfügt. Der
Text bringt irgendwelche Formatierungen mit sich, deshalb die Auswahl der beiden Einfügeoptionen:





Wird die ursprüngliche Formatierung beibehalten oder diese Auswahl einfach ignoriert (dazu neigen die Anwender gerne;-(, dann steht der Text zwar korrekt in der Zelle... diese ist jetzt aber gesperrt! Das sieht man eindeutig, wenn man sich die Zelleigenschaft
vorher und nachher anschaut. Und somit ist keine Korrektur mehr möglich. Bei den Ziffern aus 'meiner' Web-Anwendung kommt auch noch die rechtsbündige Anordnung dazu.

@Daniel: Ob Dein Code trotzdem passt, konnte ich heute aus Zeitmangel leider nicht mehr ausprobieren. Ich gehe am MO aber wieder an das Thema.

Vielleicht ändert die Darstellung oben ja die Lösung. Dann gerne her damit;-)

Ich wünsche euch beiden ein schönes Wochenende!

Beste Grüße, Philipp