VBA - Run only for specific users

Hi All,

I want to run an event for specific user. In this case, only John Doe should be able to run this command. It works fine if i put john doe in there and i get the MSGBOX since my windows log in is not John doe. But when I put my windows login there (and only I can run it), i dont get any msgbox or the rest of the command does not run....anyone can help me what I am missing? code in question is in red

Thanks all

Private Sub CommandButton5_Click()

If LCase(Environ("username")) <> "john.doe" Then MsgBox "you dont have permission"
Cancel = True
Exit Sub    
ActiveWorkbook.Saved = True

'variables
Dim fso As Object
Dim fromdir As String
Dim todir As String
Dim fnames As String

MsgProceed = MsgBox("Move and Archive Tracker?", vbYesNo)
If MsgProceed = vbNo Then Exit Sub

'source and destination
fromdir = "\\tarcds01\eCTD_Submission\TRACKERS\" & ActiveSheet.Range("P1").Value & "\" & ActiveSheet.Range("Q1").Value & "\" & ActiveSheet.Range("P1").Value & "-" & ActiveSheet.Range("Q1").Value & "-" & ActiveSheet.Range("R1").Value & "-" & ActiveSheet.Range("S1").Value
todir = "\\tarcds01\eCTD_Submission\TRACKERS\Archive-Backup\BACKUP\"

'file types
FExtension = "*.xlsm"
fnames = Dir(fromdir & FExtension)

Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile Source:=fromdir & FExtension, Destination:=todir
End Sub

thanks for the reply, i am getting compile error: End If without block If. Do i need to user Goto? to direct it to the first event for the user who has the right?

thanks for your suggestion, im a beginner so i wrote it this way and it is working.

Private Sub CommandButton5_Click()

If LCase(Environ("username")) <> "john.doe" Then msgproceed = MsgBox("you dont have permission", vbOKCancel)
    If msgproceed = vbOK Then Exit Sub
    If msgproceed = vbCancel Then Exit Sub
    

ActiveWorkbook.Saved = True

I got this solved, but how would i do it if i want to name multiple users whos have the rights?

perfect robert, your way works perfectly and i didnt have to rely on my clumsy method.

do you happen to know how i can name more than just one person?

beautiful!
i have a long way to go to do these on my own, thanks so much for all the help guys