Herbers Excel-Forum - das Archiv

Sperren von Zellen, die eine Bedinungen erfüllen

Bild

Betrifft: Sperren von Zellen, die eine Bedinungen erfüllen
von: Fritsche

Geschrieben am: 08.03.2005 15:19:23
Hallo,
ich benötige noch einmal Eure Hilfe!
wie kann ich eine Zelle schützen (Aktivierung des Blattschutzes), wenn der Inhalt ein Attribut z.B. "no" erfüllt? Es ist also so eine Art bedingte Formatierung.
Über ein Feedback freue ich mich sehr.
Gruß
Christian
Bild

Betrifft: AW: Sperren von Zellen, die eine Bedinungen erfüllen
von: th.heinrich

Geschrieben am: 08.03.2005 15:36:53
Hallo Christian,
in etwa so.
Sub noeSchutz()
'abgeaendert. original von Holger
ActiveSheet.Unprotect
For Each cell In Range("A1:F10")
cell.Locked = False
Next
For Each cell In Range("A1:F10")
If cell.Value = "nö" Then cell.Locked = True Else cell.Locked = False
Next
ActiveSheet.Protect
End Sub

gruss thomas
Bild

Betrifft: AW: Sperren von Zellen, die eine Bedinungen erfüllen
von: Fritsche
Geschrieben am: 08.03.2005 15:48:26
Danke Thomas
Bild

Betrifft: danke fuer die rueckmeldung :-) ot.
von: th.heinrich
Geschrieben am: 08.03.2005 20:38:36
 Bild