Hallo zusammen,
ich bin mal wieder mit einem Code am verzweifeln.
Ich habe verschiedene Tabellenblätter mit einem Passwort geschützt, wobei nur in einem von den Blättern verschiedene manuelle Abfragen stattfinden können (Blatt „Eingabe“)
In „Eingabe“ sind alle Zellen mit einem Passwort gesperrt, bis auf die, wo manuelle Eingaben erfolgen sollen.
Daneben habe ich auch verschiedene Auswahl - Dropdowns (ActiveX), welche wiederum jeweils mit einer Zelle im Blatt verbunden sind (LinkedCell).
Die LinkedCell sind auch „gesperrt“ (Zellen formatieren => Schutz => gesperrt), da diese mir nur als Hilfszellen dienen, damit ich die Berechnungen in der Datei durchführen kann.
Bei Abänderung der Auswahl in den Dropdowns, krieg ich aber so eine Fehlermeldung.

Frage:
Wie kann ich die jeweiligen „linkedcells“ (in meinem Fall die Zellen J2, D19 und D25) NUR bei einer Änderung im jeweiligen Dropdown entsperren (und dann wieder postwenden sperren), denn ich möchte vermeiden, dass in den Zellen manuelle Eingaben erfolgen können.

Mit folgendem Makro funktioniert es nicht (hier nur fürs Entsperren), denn irgendwie ist die Zeile „Sheets(„Eingabe“).Range(……“falsch

Sub Blattschutz_Ein (ParamArray Blatt ())
Dim ws
For Each ws In Blatt
Worksheets(ws).Unprotect Password:="1234"
Sheets("Eingabe").Range("J2", "D19", "D26").Unprotect "1234"
Next ws
Application.ScreenUpdating = False
Application.EnableEvents = False
End Sub

Kann mir einer helfen ?
Danke
Thorsten