Checkbox mit Userkennung aktivieren
06.11.2017 21:16:13
maik
Ist Zustand:
Excel Tabelle mit 52 Checkboxen, die jeweils einen zugeordneten Bereich einfärben und anschließend gegen Veränderung sperren, wenn die Checkbox aktiviert wurde.
Das Blatt ist über einen Blattschutz gesperrt.
Die Liste wird von mehreren Usern benutzt, von denen auch jeder etwas eintragen darf, bis die Checkbox aktiviert wurde, ab dann sind die Zellen schreibgeschützt.
Gibt es über die verschiedenen UserIDs die Möglichkeit, nur 3 speziellen Benutzern das Aktivieren der Checkboxen zu ermöglichen?
Alle anderen sollen trotzdem weiter Schreibrechte haben, nur eben die Checkboxen nicht aktivieren können.
Anbei ein Auszug für eine beispielhafte Checkbox mit Code, worin die Freigabe der drei Nutzer zugefügt werden sollte wenn möglich:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.Unprotect 'Blattschutz aufheben
Range("B3", "B12").Interior.ColorIndex = 43 'green
Range("B3:B12").Select
Selection.Locked = False 'entsperren
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True 'Blattschutz setzen
Else
ActiveSheet.Unprotect 'Blattschutz aufheben
Range("B3", "B12").Interior.ColorIndex = xlNone 'keine Hintergrund-Farbe
Range("B3:B12").Select 'Zellen auswählen
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True 'Blattschutz setzen
End If
End Sub