Office: Zellen nach Eingabe sperren

Hallo zusammen,

ich habe folgende Aufgabenstellung für eine IT-Inventarliste.
In den Spalten C3:N3 stehe meine Merkmale (Überschriften) als Spalten (s. a. Screenshot)
In jeder Zeile darf nur ein Asset stehen, der Rest der Zellen je Zeile muss dann automatisch gesperrt werden, damit keine weiteren Einträge vorgenommen werden; mit Ausnahme der Spalte B. Dort muss noch die Inventarnummer eingetragen werden

Bsp:
Überschrift C3=Telefon
In Zelle C4 wird aus Auswahlliste das Asset ausgewählt. Zellen D3:N3 müssen gesperrt werden.
Nächste Zeile: D5 wird aus Auswahlfeld gefüllt; Zellen D4;E4:N4 müssen gesperrt werden.
Nächste Zeile: I6 wird aus Auswahlfeld gefüllt ; Zellen C6:H6;J6:N6 müssen gesperrt werden.

Der User ist aber nicht verpflichtet, Zeile für Zeile diagonal in der Reihenfolge auszuwählen. Wichtig ist immer, wenn ein Feld gefüllt wird, müssen die anderen Felder der Zeile gesperrt werden; mit Ausnahme der Spalte B. Löscht er den Feldinhalt einer Zelle , sind alle Felder frei, bis er wieder in der Zeile nur ein Feld gefüllt hat.

Ich hoffe, es ist mit dem Screenshot verständlich und ihr könnt mir eine schnelle Lösung anbieten.

Im Voraus schon einmal recht herzlichen Dank für euer Interesse und eure Hilfsbereitschaft.

VG IKOS

:)

 

Hallo,

Rechtklick auf den Tabellenreiter - Code anzeigen. Folgende Prozedur einfügen:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngColumn As Long
If Not Intersect(Target, Range(Cells(4, 3), Cells(Rows.Count, 14))) Is Nothing Then
Call Unprotect(Password:="GEHEIM")
With Target
For lngColumn = 3 To 14
If .Column <> lngColumn Then Cells(.Row, lngColumn).Locked = True
Next
End With
Call Protect(Password:="GEHEIM")
End If
End Sub

Kennwort anpassen !!!

 

Falsch, Nepumuk. Unprotect ist ein No-Go, für diesen Fall ist im Workbook.Open-Event UserInterfaceOnly = True zu setzen. Damit verhindert man, dass der Code mittendrin abbricht und das Blatt ungeschützt bleibt.

 

Ich habe in meinem Bsp. die Zellenangaben korrigiert (fett markiert).

 

Was heißt das ggf. für das Coding bzgl. einer Anpassung.

Ich habe den Code so wie beschrieben eingegeben. Obwohl Zelle C4 ausgefüllt ist, konnte ich in D4 etwas hinzufügen. Danach war aber das ganze Blatt gesperrt, was ja nicht sein soll.

 

Was heißt das ggf. für das Coding bzgl. einer Anpassung.

Ich habe den Code so wie oben beschrieben eingegeben. Nachdem Zelle C4 ausgefüllt war, ist das ganze Blatt gesperrt, was ja nicht sein soll! Es soll jeweils die bearbeitete Zeile gesperrt werden, wenn eine Zelle in dem Zeilen-Array gefüllt ist.

 

Hallo Ikos1,

- Grafiken in einem Excel-Hiffe-Forum ist sind wie einem Blinden die Farbe zu erklären
- einfach umständlich, das Wesentliche bleib auf der Strecke usw.
- das Argument 'Daten sind Betriebsgeheimnis' ist gegenstandslos
- wenn der Fragesteller ein bißchen Zeit investiert
- eine Demodatei mit unverfänglichen Inhalten zu erstellen
- die von Nepumuk angeführte Locked-Eigenschaft der Zellen wirkt nur
- wenn der Blattschutz gesetzt ist
- ohne Blattschutz ist ein bischen mehr Vba-Code erforderlich,
- um den/die Anwender daran zu hindern, Zellen einer Sperrliste anzuwählen
- die bereits schon einen Wert enthalten
- in diesem Fall wird das Korrigieren einen falschen Werte noch umständlicher

Gruß von Luschi
aus klein-Paris

 

Hallo IKos1,

zunächst einmal: wie Luschi schon betonte, eine Excel-Beispieldatei ist eine gute Grundlage für den Helfer und erhöht die Wahrscheinlichkeit, dass Dir geholfen wird.

Im vorliegenden Fall war das Bild für mich ausreichend, testen kannst Du ja selber.
Siehe meinen Lösungsvorschlag im Anhang; in der Tabelle habe ich eine kleine Gebrauchsanweisung eingefügt.

 

Hallo,

vielen Dank an alle für die konstruktiven Anmerkungen und der Lösung! Es klappt tadellos auf Anhieb! Ihr habt sehr geholfen.