Sperren von einzelnen Zellen auf Formelgrundlage

Hallo,
erst einmal sage ich herzlich Hallo, denn ich bin neu im Forum hier.
Ich habe ein Problem, dass ich - leider - auch nicht im Betreff treffend formulieren konnte, deshalb hier einmal in detaillierter Form. Über Suchfunktion bin ich leider nicht fündig geworden. Also, hier mein Problem:
Ich habe eine Zelle, in der gebe ich Fertigungszahlen der Produktion ein. Weiterhin habe ich ein Feld, in dem ich mir kennzeichne, dass ich die Produktionswerte auf ihre Vollständigkeit überprüft habe. Ist die Produktion eines Auftrages nun abgeschlossen, schreibe ich mir da ein "ja" rein. Auf dieses Feld habe nur ich Zugriff. Auf das Feld mit den Produktionsmengen haben noch ein paar weitere Benutzer Zugriff und dadurch kommt es manchmal zu Überschreibungen, die fehlerhaft sein können, weil irgendwelche Eingabewerte falsch vorgenommen wurden.
Das ist unschön. ;)
Habe ich mir also ein "ja" in meine Zelle eingetragen, will ich, dass das Produktionsfeld für Eingaben gesperrt wird. Ist das so möglich?
Ich drücke alle Daumen und hoffe, dass mein Problem verständlich war.
Auf Antworten freue ich mich jetzt schon und sage auch im Voraus brav Danke.
Grüße, der DJ.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi DJ,
Dazu musst du die Zellen für die Eingaben freigeben und anschliessend das Blatt schützen. Mit folgendem Code (in der Tabelle) könntest du das sperren/freigeben steuern. Die 4 Zeilen am Anfang entsprechend anpassen!


Private Sub Worksheet_Change(ByVal Target As Range)
Const tLockCell = "E20"               ' Zelle die die anderen sperrt/freigibt
Const tLockThisCells = "E2:E18, D2:D5"       ' Zellenbereich sperren/freigeben
Const tSperrenMit = "ja"              ' Wert der Bereich sperrt.
Const tPWD = "abc"                    ' Passwort für Blattschutz
If Intersect(Target, ActiveSheet.Range(tLockCell)) Is Nothing Then Exit Sub
Application.EnableEvents = False
ActiveSheet.Unprotect Password:=tPWD
If UCase(Target.Value) = tSperrenMit Then
ActiveSheet.Range(tLockThisCells).Cells.Locked = True
Else
ActiveSheet.Range(tLockThisCells).Cells.Locked = False
End If
ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True, Password:=tPWD
Application.EnableEvents = True
End Su

GreetZ Renée

Beliebteste Forumthreads (12 Monate)

Sperren von einzelnen Zellen auf Formelgrundlage

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sperren von einzelnen Zellen auf Formelgrundlage

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread