bestimmte user zulassen
08.12.2008 14:09:00
Fred
Ich benutze folgenden Code um nur bestimmte User mit der Tabelle arbeiten zu lassen. Wie kann ich es anstellen, das Ich mehrere User Zulassen kann . Ich habe es schon mit
If UCase(Environ("Username") = "CS_LEADER_GIANT" or "XANW33") Then
versucht, das funzt aber nicht
Option Explicit
Sub user_ermitteln()
If UCase(Environ("Username") = "CS_LEADER_GIANT") Then
MsgBox ("Sie sind berechtigt diese Tabelle zu nutzen")
Else
MsgBox ("Hallo " & Environ("Username") & ". Du hast keine Berechtigung")
ActiveWorkbook.Close False
End If
End Sub
Kann mir jemand helfen
Grüße Fred
Anzeige