Für eine Datei werden Rechte in Abhängigkeit des Benutzernamens vergeben.
Den Benutzernamen (Variable "Benutzer") liest daß Programm folgendermaßen:
Benutzer = Environ("Username")
Das funktioniert auch soweit einwandfrei.
Die Rechte werden dann über Select Case Benutzer... vergeben.
Beispiel:
Case "Meier"
UserForm1.CommandButton3.Locked = False
UserForm1.CommandButton4.Locked = True
etc.
Dabei taucht immer mal wieder das Problem auf, daß der, bzw. die Benutzer
nicht erkannt werden, weil einigen Namen klein- andere groß geschrieben werden.
Das scheint sich auch ab und zu zu ändern. D. h. wenn die Variable "Benutzer" den Wert "meier"
hat, passiert bei Select Case Benutzer - Case "Meier" nichts, da "meier" "Meier".
Jetzt könnte ich natürlich jede Case Anweisung doppelt schreiben (jeweils groß und klein), aber vielleicht
kannt ja jemand eine Möglichkeit wie die Unterscheidung zwischen Groß- und Kleinschreibung abgeschaltet werden kann.
Gruß,