Adding Usernames

[mrbeanyuk]

I have a coding that was provided kindly by you guys. However, I would like to add additional usernames but am unsure how?

The username currently is muirheadn110 and I need to add say another 5. The current coding is as follows:

Private Sub Workbook_Open()
Dim user_name As String
Dim FBR As Long
user_name = InputBox("Please enter your ISIS username to access the Project HERMES interface. Please note that this spreadsheet should not be amended in any way.", "PROJECT HERMES LOGIN", "")
If user_name <> "muirheadn110" Then
ActiveWorkbook.Close (0)
End If
With Sheets("Homepage")
FBR = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
.Cells(FBR, 2) = user_name
.Cells(FBR, 1) = Now
End With
End Sub

 

[mrbeanyuk]

BUMP

 

[mrbeanyuk]

I still need help - anyone?!

 

[patrickmuldoon99]

Private Sub Workbook_Open() 
Dim user_name As String 
Dim FBR As Long 
user_name = InputBox("Please enter your ISIS username to access the Project HERMES interface. Please note that this spreadsheet should not be amended in any way.", "PROJECT HERMES LOGIN", "") 
If accept_name(user_name) = false Then 
ActiveWorkbook.Close (0) 
exit sub
End If 
With Sheets("Homepage") 
FBR = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 
.Cells(FBR, 2) = user_name 
.Cells(FBR, 1) = Now 
End With 
End Sub

function accept_name(uname as string) as boolean
select case ucase(uname)
case "MUIRHEADN110"
   accept_name = true
case "ANOTHERUSERNAME"
  accept_name = true
case "ANOTHERAGAIN"
  accept_name = true
case "GOONONEMORE"
  accept_name = true
case "FINALUSER"
  accept_name = true
case else
  accept_name = false
end select
end function

I have modified your code so that it calls a function with the username provided. Within this function, the username is converted to all upper case, then contrasted with several caveats on a selet case statement to determine if the username is acceptable. If so, the function will return true, otherwise it will return false.

You can add additional usernames by using the line

case "user name here"
  accept_name = true

within the select case statement in that function.

Hope this is of help to you

all the best, patrick