Option box query

[Pauljj]

I have set up an option box and assigned a macro to it, however I have many people who open up this particular spreadsheet but I only want one username to be able to operate this option button......is this possible ?

Thanks

Paul

 

[Andrew Poulsom]

A couple of ways to get the user name:

MsgBox Application.UserName
MsgBox Environ("UserName")

 

[Pauljj]

Thank you for your reply, what I need it do though is only allow for example John Smith to execute that option button, So if John Smith logs on to his computer he can execute this option button, if Steve Jones logs on I need an error message to come up if he tries to click on the option button ....possible ???

 

[Andrew Poulsom]

Thank you for your reply, what I need it do though is only allow for example John Smith to execute that option button, So if John Smith logs on to his computer he can execute this option button, if Steve Jones logs on I need an error message to come up if he tries to click on the option button ....possible ???

Test for the username in your code and Exit Sub (maybe with a polite message) if it's not the right one.

 

[Pauljj]

Sorry, I might be a little dim here but its that part that I cant work out, how to test the user name and if its not to exit the sub with a message ?

 

[Andrew Poulsom]

Like this?

If Environ("UserName") <> "John Smith" Then
   MsgBox "Sorry, you can't run this macro."
   Exit Sub
Else
'  Your code goes here
End If

 

[Pauljj]

Perfect, thanks

 

[Pauljj]

Sorry one last question....if I want this to be available to 2 users, how should I amend your code ?