|
Habe eine Bestansliste erstellt. Es sind mehrere Arbeitsblätter. Von den Mitarbeitern ist der Warenausgang und Wareneingang auf einem geschützten Blatt einzutragen. Auf einem anderen Arbeitsbltt der Bestandsliste erscheint dann der Bestand. Diese Blatt ist auch geschützt .Schutz erfolgt durch folgenden Befehl.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B4:E2000")) Is Nothing Or IsEmpty(Target) Then Exit Sub
ActiveSheet.Unprotect "passwort"
Target.Locked = True
ActiveSheet.Protect "passwort"
End Sub
Nun habe ich eine zellenformatierung mit der Bedingung eingefügt sich rot zu färben, wenn ein gewisser Wert der Ware unterschritten wird.
Es erschein immer Fehler 1004 Zelle ist gesperrt. Danach ist das Arbeitsblatt entsperrt. Ich will aber, das die Mitarbeiter die werte einfach eintragen, ohne das die Sprerre aufgehoben wird.
Weiss jemand einen Rat ?Bin selber kein Programmierer.
|