cmb_Button userabhängig ein/ausblenden
22.08.2005 18:31:59
Torsten
mit folgendem Code habt Ihr mir vor kurzem ausgeholfen:
Private Sub Workbook_Open()
With Worksheets("START")
.Shapes("cmb_PROT").Visible = Application.UserName = "ABC" Or _
.Shapes("cmb_PROT").Visible = Application.UserName = "DEF"
' .Shapes("cmb_PROT").Visible = Application.UserName = "GHI"
' .Shapes("cmb_PROT").Visible = Application.UserName = "JKL"
.Shapes("cmb_UNPROT").Visible = Application.UserName = "ABC" Or _
.Shapes("cmb_UNPROT").Visible = Application.UserName = "DEF"
' .Shapes("cmb_UNPROT").Visible = Application.UserName = "GHI"
' .Shapes("cmb_UNPROT").Visible = Application.UserName = "JKL"
End With
End Sub
Leider funktioniert das so nicht wie gewünscht. Der Button wird nur bei UserName "ABC" angzeigt. Wenn ich das "or" auch hinter die übrigen Zeilen stelle, funktioniert gar nichts, daß heißt, Excel kommt beim Öffnen der Datei mit einer Fehlermeldung. Was mache ich denn noch falsch?
Vielen dank für Eure Hilfe im voraus.
Gruß
Torsten