Benutzer darf bearbeiten - sperren
12.03.2019 01:45:43
bassi
vielleicht weiß jemand eine VBA Lösung?
Es gibt 10 Bereiche auf einem geschützten Tabellenblatt.
Bereich 1:
F9 und F10 sind per "Benutzer darf bearbeiten" geschützt.
Diese Bearbeitung soll aber nur möglich sein, wenn in C5 eine
1 steht. C5 ist ebenfalls per "Benutzer darf bearbeiten"
geschützt (anderer Benutzer), soll aber immer zugänglich sein.
(steht in C5 keine 1, dann ist die Zelle leer)
Bereich 2:
F19 und F20 sind per "Benutzer darf bearbeiten" geschützt.
Diese Bearbeitung soll aber nur möglich sein, wenn in C15 eine
1 steht. C15 ist ebenfalls per "Benutzer darf bearbeiten"
geschützt (anderer Benutzer), soll aber immer zugänglich sein.
(steht in C15 keine 1, dann ist die Zelle leer)
usw... bis Bereich 10
Es gibt einen Code von Großmeister Hajo.
Der würde vielleicht gehen.
Aber ich kriege das nicht hin, die einzelnen Bereiche zuzuweisen.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' erstellt von Hajo Ziplies 19.12.02
' bestimmte Zellen dürfen nur gewählt werden
' wird eine Zelle außerhalb des Bereich gewählt wird immer die erste Zelle gewählt
' im Beispiel B3
' sollen Formel geändert werden sind diese einzeln auszuwählen
Dim RaBereich As Range, RaZelle As Range
If Range("a1") = "1" Then Exit Sub
' Bereich der Wirksamkeit
Set RaBereich = Range("a1,B3:C20,D1:D17,f2:f4,f11:f20")
For Each RaZelle In Range(Target.Address)
' überprüfen ob Zelle im vorgegebenen Bereich
If Intersect(RaZelle, RaBereich) Is Nothing Then
Application.EnableEvents = False
Range("B3").Select
Application.EnableEvents = True
Exit For
End If
Next RaZelle
End Sub
Würde mir jemand hier behilflich sein? Das wäre furchtbar lieb.
Viele Grüße
bassi