Gruppe
Ereignis
Problem
Der Blattschutz soll in Abhängigkeit des Anwendernamens (Menü EXTRAS / OPTIONEN / Register ALLGEMEIN / ANWENDERNAME) spaltenweise gesetzt werden.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim rng As Range
Worksheets("Tabelle1").Unprotect "HWH"
Set rng = Range("A1").CurrentRegion
rng.Locked = True
Select Case Application.UserName
Case "Anwender1": rng.Columns(1).Locked = False
Case "Anwender2": rng.Columns(2).Locked = False
Case "Hans W. Herber": rng.Columns(3).Locked = False
Case "Anwender4": rng.Columns(4).Locked = False
Case "Anwender5": rng.Columns(5).Locked = False
End Select
Worksheets("Tabelle1").Protect "HWH"
End Sub