In Abhängigkeit von Wert, Zeilen sperren

Hallo,
ich habe folgendes Anliegen.
Ich habe eine Tabelle (im Tabellenblatt1), die durch eine UserForm gefüllt werden kann. Nun würde ich gerne die Funktion hinzufügen, dass wenn der Wert "Ja" in eine Zelle in der Spalte R eingetragen wird, die entsprechende Zeile gesperrt wird und nur über ein Passwort überschrieben werden kann, bzw. der Schreibschutz aufgehoben werden kann.
Kurzer Hintergrund, damit man sich es eventuell besser vorstellen kann.
Derjenige, der den Wert "Ja" in die Zellen schreibt, überprüft die Richtigkeit der Einträge in der Zeile. Sind diese Richtig sollen sie nicht mehr verändert werden können.
Das ganze erstreckt sich über 52 Spalten (B bis BA) und es können bis zu 600 Einträge in die Tabelle eingefügt werden, also 600 Zeilen.
Mit dem Folgenden Code (den ich über einen Bekannten bekommen habe) funktioniert es auch schon mehr oder weniger. ABER es dauert ewig, bis er überprüft hat, ob der Definierte Wert drinsteht oder nicht.


Private Sub Worksheet_ change(ByVal Target As Range)
Dim rngLock As Range, Zelle As Range
Set rngLock = Range("R1:R600")
For Each Zelle In rngLock
If Zelle = "" Then
ActiveSheet.Unprotect "XXX"
ActiveSheet.Range(Cells(Zelle.Row, Zelle.Column - 18), Cells(Zelle.Row, Zelle._ Column + 52)).Locked = False
ActiveSheet.Protect "XXX"
Else
If Zelle = "Ja" Then
Activesheet.Unprotect "XXX"
Activesheet.Range(Cells(Zelle.Row, Zelle.Column - 18), Cells(Zelle.Row, Zelle._ Column + 52)).Locked = True
Column + 6)).Locked = True
ActiveSheet.Protect "XXX"
End It
End if
Next
End Sub

Mit bisherigen Beiträgen konnte ich leider nichts anfangen... Wäre um Hilfe sehr dankbar!
Gruß
Tobi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rngLock As Range, Zelle As Range Set rngLock = Intersect(Target, Range("R1:R600")) If Not rngLock Is Nothing Then Call Unprotect(Password:="XXX") For Each Zelle In rngLock If Zelle.Text = "Ja" Then Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 53)).Locked = True Else Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 53)).Locked = False End If Next Call Protect(Password:="XXX") Set rngLock = Nothing End If End Sub

Hi Nepumuk,
vielen Dank für deine schnelle Hilfe!
Leider klappt das noch nicht :/
Ich hab deinen Code in die "Tabelle1" Kopiert. Nun bekomme ich jedoch die Fehlermeldung "Fehler beim Kompilieren: Sub oder Function nicht definiert" und es wir diese Codezeile markiert:


"Private Sub Worksheet_Change(ByVal Target As Range)"

. Eine Idee wie man das löst?
Eine Sache habe ich bei meiner Problembeschreibung auch vergessen noch zu erwähnen, was wahrscheinlich auch Relevanz hat.
Diese Überprüfung auf den Wert "Ja" müsste so erfolgen, dass wenn die Excel geschlossen und von jemand anderes wieder geöffnet wird, die entsprechenden Zeilen mit dem Wert "Ja" gesperrt sind. Also quasi eine Routine, oder?
Viele Grüße
Tobi

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rngLock As Range, Zelle As Range Set rngLock = Intersect(Target, Range("R1:R600")) If Not rngLock Is Nothing Then Call Unprotect(Password:="XXX") For Each Zelle In rngLock If Zelle.Text = "Ja" Then Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 53)).Locked = True Else Range(Cells(Zelle.Row, 1), Cells(Zelle.Row, 53)).Locked = False End If Next Call Protect(Password:="XXX") Call ThisWorkbook.Save Set rngLock = Nothing End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngLock, Zelle Set rngLock = Intersect(Target, Range("R1:R600")) If rngLock Is Nothing Then Exit Sub Call Unprotect(Password:="XXX") For Each Zelle In rngLock Range("B" & Zelle.Row & ":BA" & Zelle.Row).Locked = Zelle.Text = "Ja" Next Call Protect(Password:="XXX") End Sub

Beliebteste Forumthreads (12 Monate)

In Abhängigkeit von Wert, Zeilen sperren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

In Abhängigkeit von Wert, Zeilen sperren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread