Zellenschutz bei Freigabe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F5")) Is Nothing Then If Target.Value = 1 Then ActiveSheet.Unprotect 'Blattschutz aufheben Range("D5:E5").Locked = True 'Zellschutz setzen ActiveSheet.Protect 'Blattschutz setzen Else ActiveSheet.Unprotect 'Blattschutz aufheben Range("D5:E5").Locked = False 'Zellschutz aufheben ActiveSheet.Protect 'Blattschutz setzen End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim strAlterWert As String If Not Intersect(Target, Range("D5:E5")) Is Nothing Then If Range("F5").Value = 5 Then Target.Value = Sheets("Backup").Range(Target.Address).Value Else Sheets("Backup").Range(Target.Address).Value = Target.Value End If End If End Sub

Hi Michi,
ich verstehe nicht 100%ig was Du erreichen willst. Ich habe es jetzt mal so gelöst, dass man, sobald in einer Zelle in der Spalte F oder K STOP eingetragen ist, in den vier Feldern links davon keine Änderungen vornehmen kann. Aber nur in dieser Zeile! Hast Du das so gemeint?:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim strAlterWert As String
If Not Intersect(Target, Range("B:E")) Is Nothing Then
If (Cells(Target.Row, 6).Value = "STOP") Then
Target.Value = Sheets("Backup").Range(Target.Address).Value
Else
Sheets("Backup").Range(Target.Address).Value = Target.Value
End If
End If
If Not Intersect(Target, Range("G:J")) Is Nothing Then
If (Cells(Target.Row, 11).Value = "STOP") Then
Target.Value = Sheets("Backup").Range(Target.Address).Value
Else
Sheets("Backup").Range(Target.Address).Value = Target.Value
End If
End If
End Sub

Ich habe es für diese beiden Spalte nur mal ganz primitiv untereinander gesetzt. Wenn Du es für mehr Bereiche brauchst, kann man mal darüber nachdenken ob man es eleganter lösen kann (Mit Array und Schleife). Aber melde Dich erst mal ob ich überhaupt richtig liege.
Gruß
Uwe
(:o)

Private Sub Worksheet_Change(ByVal Target As Range) Dim strAlterWert As String If Not Intersect(Target, Range("B:E")) Is Nothing Then If (Cells(Target.Row, 6).Value = "STOP") Then Application.EnableEvents = False Target.Value = Sheets("Backup").Range(Target.Address).Value Application.EnableEvents = True MsgBox "Dieser Wert darf nicht verändert werden !!!", vbCritical, "STOP" Else Sheets("Backup").Range(Target.Address).Value = Target.Value End If End If If Not Intersect(Target, Range("G:J")) Is Nothing Then If (Cells(Target.Row, 11).Value = "STOP") Then Application.EnableEvents = False Target.Value = Sheets("Backup").Range(Target.Address).Value Application.EnableEvents = True MsgBox "Dieser Wert darf nicht verändert werden !!!", vbCritical, "STOP" Else Sheets("Backup").Range(Target.Address).Value = Target.Value End If End If End Sub

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread