Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalten ausblenden - jedoch nicht für bestimmte

Spalten ausblenden - jedoch nicht für bestimmte
22.07.2013 16:17:04
Rebecca
Hallo,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden - jedoch nicht für bestimmte
22.07.2013 16:25:05
Rudi
Hallo,
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
Gruß
Rudi

AW: Spalten ausblenden - jedoch nicht für bestimmte
22.07.2013 16:29:57
UweD
Hallo
Hast du mal Select Case versucht?
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
Gruß UweD

Anzeige
AW: Spalten ausblenden - jedoch nicht für bestimmte
22.07.2013 19:39:30
Rebecca
Vielen lieben Dank Euch beiden !!!!!
Es funktioniert !!!! Juhuuuuu ;-)

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige