Private Sub Workbook_Open()
Dim Nutzer As String
Dim admin
Dim anwender
Dim ersteller
ersteller = Array("ich")
anwender = Array("Meier", "Müller")
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