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

Beiträge aus den Excel-Beispielen zum Thema "array einlesen und auslesen"