Ein-/Ausblenden von cmd_Button
12.12.2005 09:53:52
cmd_Button
mit dem folgenden Code möchte ich userabhängig ein cmd_Button ein- bzw. ausblenden:
Private Sub Workbook_Open()
Dim Username As Integer
With Worksheets("FORM")
Select Case Application.Username
Case "GWS-TKR", "GWS-HGE"
.Shapes("cmb_PRINT").Visible = True
Case Else
.Shapes("cmb_PRINT").Visible = False
End Select
End With
End Sub
Leider erkennt Excel den zweiten User (GWS-HGE) nicht an und blendet den cmd_Button nicht ein, wenn die Datei von GWS-HGE geöffnet wird. Ist die Syntax denn hier noch fehlerhaft?
Vielen Dank für Eure Hilfe.
Gruß
Torsten