Problem mit Environ

Moin,
ich habe seit heute ein Problem mit einem Benutzernamen.
Ich lasse anhand des jeweiligen Benutzernamens einen Blattschutz aufheben.
Witzigerweise funktionierte das bisweilen ohne Probleme - bis heute!
Plötzlich wird die Groß-/Kleinschreibung beachtet.
Ich persönlich bin der Meinung, dass vorher bei dem Nutzer "j.lxxxxx" alles klein geschrieben wurde.
Nachdem ich jetzt getestet habe, führt der Name"J.Lxxxxx" zum Erfolg.
Mein Problem besteht jetzt darin, dass ich schlecht 500 Tabellen im Code so anpassen kann, dass ich dort einfach die beiden Buchstaben groß schreibe.
Im Windows Benutzerkonto kann ich den Namen auch nicht "mal so eben" ändern.
Habt ihr eine Idee?

Sub UserName()
Dim sUName As String
sUName = Environ("username")
'Windows Benutzernamen hier anpassen
If sUName = "HansHxxxxxx" Then
Call Blattschutz_alle_Tabellen_aufheben
End If
If sUName = "j.lxxxxx" Then
Call Blattschutz_alle_Tabellen_aufheben
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub UserName() Dim sUName As String sUName = LCase(Environ("username")) 'Windows Benutzernamen hier anpassen If sUName = LCase("HansHxxxxxx") Then Call Blattschutz_alle_Tabellen_aufheben End If If sUName = LCase("j.lxxxxx") Then Call Blattschutz_alle_Tabellen_aufheben End If End Sub

Moin Hansueli,
...du hast Recht!
Schlauer wäre das gewesen, so wie du dass beschrieben hast.
...aber nun ist es leider so wie es ist.
Was mich daran irritiert, ist dass es bis letzte Woche einwandfrei ein halbes Jahr lief.
Von heute auf morgen, ohne irgendeine Benutzeränderung, läuft es nicht mehr.
- das ist doch...."komisch"?
Ich habe natürlich kontrolliert wie der Windowsbenutzername lautet. Dieser ist "J.Lxxxx".
Meine Überlegung war, diesen jetzt einfach auf Kleinschreibung umzubenennen, was aber im ersten Anlauf nicht so einfach schien.
Wenn es jetzt irgendeinen Patch gegeben hätte, der z. B. eine Benutzernamen Sicherheitslücke schließt, hätte ich den Patch einfach rückgängig gemacht.
Deswegen frage ich nach Alternativen, oder Ideen.
Vielleicht gibt es ja auch eine Möglichkeit diesen Quellcode gegen den alten, immergleichen, Code auszutauschen.
Die Dateien liegen alle im selben Ordner. Es liegen dort auch keine anderen Excel-sheets drin.
Vielleicht hast du ja noch ne Beispieldatei / Code / Add-In....ich bin imho etwas überfragt.
Besten Dank für deine Zeit
Gruß
Hans

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread