ich habe in einem älteren Beitrag folgenden Code zum Ausblenden von Splaten gefunden:
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
Diesen habe ich wie folgt angepasst: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
Der Hintergrund ist, dass in Zeile 35-39 Preise stehen, die nur sichtbar sein sollen, wenn sich einer der gelisteten User anmeldet. Ansonsten sollen diese Zeilen zwingend ausgeblendet und blockiert sein.Hilfe....
Herzlichen Dank im Voraus.
Beste Grüße
Hinnerk