Zellen sperren

Hallo....mein Problem ist vielleicht ein wenig komplizierter, hab mich hier schon umgeschaut aber wurde nicht so recht schlau...
Ich möchte, dass, wenn in den Spalten B-D, G und I-O in den Zeilen 3-27 ein bestimmter Wert steht die jeweilige Zeile gesperrt wird, allerdings nur für die Zeilen, in denen der Wert NICHT steht.
Beispiel: ich trage in G16 den Wert "X" ein. Dadurch werden die Felder B16, C16, D16, I-O16 gesperrt für jeden Eintrag. Das Feld G16 kann aber noch bearbeitet werden, zum Beispiel um den Eintrag zu löschen und die Schreibsperre dadurch wieder aufzuheben.
Das Ganze also für die Zeilen 3-27 und die oben genannten Spalten, jeweils für eine Zeile.
Ist sowas prinzipiell möglich? Wenn ja: Wie? :)
Gruss
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen sperren

26.12.2004 21:19:26

Matthias

AW: Zellen sperren

26.12.2004 21:32:01

Hajo_Zi

AW: Zellen sperren

26.12.2004 21:39:31

Hajo1

AW: Zellen sperren

26.12.2004 22:03:55

Martin

AW: Zellen sperren

26.12.2004 22:06:55

Hajo_Zi

AW: Zellen sperren

26.12.2004 22:17:02

Martin

AW: Zellen sperren

26.12.2004 22:22:00

Hajo_Zi

AW: Zellen sperren

26.12.2004 22:26:52

Martin

OT: Forum

PeterW

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("Sperren")) Is Nothing Then If Target.Count > 1 Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True Exit Sub End If If UCase(Cells(Target.Row, Range("Abfrage").Column).Value) = "X" Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True Exit Sub End If End If End Sub

Hallo Martin,


Private Sub Worksheet_Change(ByVal Target As Range)
'   erstellt von Hajo.Ziplies@web.de 26.12.04
' <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a>
Dim RaBereich As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:D27, G3:G27, I3:O27")
ActiveSheet.Unprotect ("Passwort")
If Not Intersect(Range(Target.Address), RaBereich) Is Nothing Then
If Target <> "" Then
Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Locked = True
Cells(Target.Row, 7).Locked = True
Range(Cells(Target.Row, 9), Cells(Target.Row, 15)).Locked = True
Target.Locked = False
Else
Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Locked = False
Cells(Target.Row, 7).Locked = False
Range(Cells(Target.Row, 9), Cells(Target.Row, 15)).Locked = False
End If
End If
ActiveSheet.Protect ("Passwort")
Set RaBereich = Nothing
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread