Hallo Adde,
der Schutz von Zellen wird nur aktiv, wenn du das Arbeitsblatt mit einem Blattschutz versiehst.
Bevor du das folgende Makro in deine Arbeitsmappe kopierst, solltest du bei allen Zellen in deinem Arbeitsblatt den Schutz aufheben.
Das folgende Makro aktiviert den Schutz, wenn in den Zellen AK2, AS2, AK12 und AS12 jeweils (zusammen) die Zahl drei steht. Kopiere das Makro in das [url=
http://www.excelbeispiele.de/Tabelle.htm]VBA-Projekt deiner Tabelle[/url]:
[code]Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereich As Range
Dim rngZelle As Range
Dim bDrei As Boolean
'Bereich festlegen, der überwacht werden soll
Set rngBereich = Union(Range("AK2"), Range("AS2"), Range("AK12"), Range("AS12"))
'Schalter für die Dreier-Eintragungen auf wahr setzen
bDrei = True
'Hier wird der definierte Bereich überwacht
If Not Intersect(Target, rngBereich) Is Nothing Then
'Überprüfen, welche Zellen im Bereich einen Wert kleiner 3 haben
For Each rngZelle In rngBereich
If rngZelle.Value < 3 Then bDrei = False 'falls kleiner 3, dann Schalter auf falsch setzen
Next rngZelle
With ActiveSheet
'nun den Blattschutz aufheben - Passwort ABC, falls kein Passwort gewünscht ist einfach durch .Unprotect bzw. .Protect ersetzen
.Unprotect "ABC"
With .Range("D2:H2")
If bDrei = True Then
.Locked = True 'falls alle Zellen den Wert drei haben, dann Zellen D2 bis H2 sperren
Else
.Locked = False 'falls nicht entsperren
End If
End With
'nun wieder den Blattschutz aktivieren
.Protect "ABC"
End With
End If
End Sub[/code]
Gruß
M.O.
