Hallo beisammen,
mit
With Worksheets("Sheet1")
Select Case Application.Username
Case "User1", "User2"
.Shapes("cmb_UNLOCK").Visible = True
Case Else
.Shapes("cmb_UNLOCK").Visible = False
End Select
End With
kann ich das Einblenden eines Buttons userabhängig steuern.
Nun kann aber leider jeder andere User über Extras/Optionen/Allgemein den Benutzernamen z.B. auf "User1" ändern, die Datei nochmals öffnen und über den Button verfügen. Wie muß der Code geändert werden, wenn ich die Abfrage über die Netzwerkanmeldung steuern möchte?
Könnt Ihr mir hier weiterhelfen?
Vielen Dank und
Gruß
Torsten