Problem mit Environ
16.02.2015 12:55:50
Hans
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