Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
bestimmte user zulassen
08.12.2008 14:09:00
Fred
Hallo zusammen
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte user zulassen
08.12.2008 14:15:00
Oberschlumpf
Hi Fred
Versuchs mal so:

If UCase(Environ("Username") = "CS_LEADER_GIANT" or UCase(Environ("Username") = "XANW33" Then


Hilfts?
Ciao
Thorsten

AW: bestimmte user zulassen
08.12.2008 14:35:00
Rudi
Hallo,
Select Case Ucase(Environ("Username"))
Case "CS_LEADER_GIANT", "XANW33"
MsgBox ("Sie sind berechtigt diese Tabelle zu nutzen")
Case else
MsgBox ("Hallo " & Environ("Username") & ". Du hast keine Berechtigung")
ActiveWorkbook.Close False
End select
Gruß
Rudi
AW: bestimmte user zulassen
08.12.2008 14:56:29
Wenderhold
hi
prob's mal so

Sub user_ermitteln()
dim szName as string
szName = UCase(Environ("Username")
If  szName= "CS_LEADER_GIANT") or szName "something else" 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


Anzeige
AW: bestimmte user zulassen
08.12.2008 15:05:00
Fred
Hallo zusammen
Funktioniert alles Prima
Danke Fred

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige