Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sperren von Zellen, die eine Bedinungen erfüllen

Forumthread: Sperren von Zellen, die eine Bedinungen erfüllen

Sperren von Zellen, die eine Bedinungen erfüllen
08.03.2005 15:19:23
Zellen,
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sperren von Zellen, die eine Bedinungen erfüllen
08.03.2005 15:36:53
Zellen,
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
Anzeige
AW: Sperren von Zellen, die eine Bedinungen erfüllen
08.03.2005 15:48:26
Zellen,
Danke Thomas
danke fuer die rueckmeldung :-) ot.
08.03.2005 20:38:36
th.heinrich

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige