Private Sub Workbook_Open()
Dim Nutzer As String
Dim admin
Dim anwender()
Dim ersteller
Dim ende As Long
Dim i As Long
ersteller = Array("ich")
ende = Worksheets("Tabelle1").Cells(Rows.Count, 3).End(xlUp).Row
ReDim anwender(0)
For i = 1 To ende
If Worksheets("Tabelle1").Cells(i, 3) <> "" Then
ReDim Preserve anwender(UBound(anwender) + 1)
anwender(UBound(anwender)) = Worksheets("Tabelle1").Cells(i, 3)
End If
Next i
admin = Array("erster")
Nutzer = Environ("USERNAME")
If UBound(Filter(ersteller, Nutzer, True, vbTextCompare)) > -1 Then
ActiveSheet.Unprotect
Else
If UBound(Filter(admin, Nutzer, True, vbTextCompare)) > -1 Then
ActiveSheet.Unprotect
Else
If UBound(Filter(anwender, Nutzer, True, vbTextCompare)) > -1 Then
ActiveSheet.Unprotect
ActiveSheet.Cells.Locked = True
ActiveSheet.Range("K:J").Locked = False
ActiveSheet.Protect
End If
End If
End If
End Sub