Multiple Application.UserNames

B

Bob

I am trying to have an if statement with mulitiple user names.
The current code:
If Application.UserName <> "User1" Then
executes properly, but it only works for one user

I want to do something like this:
If Application.UserName <> ("User1" Or "User2" Or "User3") Then
This of course is incorrect and shows an error
 
N

Norman Jones

Hi Bob,

One way:

If Application.UserName <> "User1" _
And Application.UserName <> "User2" _
And Application.UserName <> "User3" Then
 
B

Bob Phillips

If Application.UserName <> "User1" And _
Application.UserName <> "User2" And _
Application.UserName <> "User3" Then


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)
 
D

Dave Peterson

if application.username = "User1" _
or application.username = "User2" _
or application.username = "User3" then
'it was one of these names
else
'it wasn't one of these names
end if


======
When you get lots of names to check, you may find Select Case easier to read:

Select Case Application.UserName
Case Is = "User1", "User2", "User3"
'do something for these names
Case Is = "User4", "User5", "User6"
'do something for these different names
Case Else
'do something for everyone else
End Select
 
B

Bob

Thank you all. Very helpful.

Dave Peterson said:
if application.username = "User1" _
or application.username = "User2" _
or application.username = "User3" then
'it was one of these names
else
'it wasn't one of these names
end if


======
When you get lots of names to check, you may find Select Case easier to read:

Select Case Application.UserName
Case Is = "User1", "User2", "User3"
'do something for these names
Case Is = "User4", "User5", "User6"
'do something for these different names
Case Else
'do something for everyone else
End Select
Click to expand...
 
Top