ich möchte gerne, dass die Spalten C und D für sämtlichen User ausgeblendet werden, außer für "benutzerA" und "benutzerB" und "benutzerC" und "benutzerD". Wenn ich jedoch im untenstehenden Code mehr als zwei Benutzer abfrage, dann funktioniert das nicht. Mit zwei Benutzern (so wie untenstehend) funktioniert es.
Was mache ich falsch?
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A1").Select
With Worksheets("Nettopreisliste")
Sheets("Nettopreisliste").Unprotect Password:="xxxx"
Columns("C:D").Hidden = True
Columns("C:D").Hidden = Not (Environ$("UserName") = "benutzerA")
Columns("C:D").Hidden = Not (Environ$("UserName") = "benutzerB")
Columns("N:Z").Hidden = True
Sheets("Nettopreisliste").Protect userinterfaceonly:=True, Password:="xxxx"
End With
End Sub