Zeilen ausblenden VBA

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Range("A1").Select
With Worksheets("Nettopreisliste")
Sheets("Nettopreisliste").Unprotect Password:="xxxx"
Select Case Environ("UserName")
Case "benutzerA", "benutzerB", "benutzerC", "benutzerD"
Columns("C:D").Hidden = False
Case Else
Columns("C:D").Hidden = True
End Select
Columns("N:Z").Hidden = True
Sheets("Nettopreisliste").Protect userinterfaceonly:=True, Password:="xxxx"
End With
End Sub

Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="xxx"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
With Worksheets("Gesamtaufmass")
Sheets("Gesamtaufmass").Unprotect Password:="xxx"
Select Case Environ$("UserName")
Case "koepp", "BenutzerB", "benutzerC", "benutzerD"
Rows("35:39").Hidden = False
Columns("V;Y").Hidden = False
Case Else
Rows("35:39").Hidden = True
Columns("V:Y").Hidden = True
End Select
Sheets("Gesamtaufmass").Protect userinterfaceonly:=True, Password:="xxx"
End With
End Sub