How to Write Excel VBA to Get User Name in an Excel File

Sometimes in VBA projects, a programmer is required to control the access on the data or sheets. This can be achieved using two ways:

1. Design a login userform and display it on the open event of the workbook. Based on the credentials, you can control the access on the data
2. Instead of using login userform, you can get the system login user id and control the access on the data

Excel Tricks

Get User Name Syntax Code

expression.UserName

Expression A variable that represents an application object.

Example

Sub Get_Username()

ActiveCell.Value = Application.UserName

End Sub

Here is sample code to write EXCEL VBA or macro to get user name

'This function gets the logged in user name and
'displays it on the sheet
Sub GetLoggedInUserName()
    'Declare variable
    Dim strUserName As String
    'Get system logged in user name
    strUserName = Environ("Username")
    'Display the user name on sheet1
    Sheet1.Range("B4").Value = strUserName
End Sub

To use this code in your Excel file, follow below steps:

1. Open an Excel file
2. Press Alt+F11
3. Insert a Module (Insert>Module) from menu bar
4. Paste the code in the module
5. Now add a shape in Excel sheet
6. Give a name to the shape like ‘Get Logged In User Name’
7. Right click on the shape and select ‘Assign Macro…’

Excel Tricks

8. Select ‘GetLoggedInUserName’ from the list and click on ‘Ok’ button

Excel Tricks

9. Done, click on the shape to get the logged in user name

Excel Tricks

Hope you liked this article!!

Here are some other VBA codes which you can use in Excel:

Subscribe our blog for new amazing excel tricks 

Please leave your comments in below section.

Similar Posts

VBA Code to Check if File Exist in Folder

VBA Code to Check if File Exist in Folder

Byexcelsirji

To ensure that your VBA project works smoothly without any error, you need to put lot of error handlers and validations. Here is one of them, below code can be used to check if the given path is valid or not. You just need to provide the path of the file to the function and it will check if the file exist at the location. If it returns True that means the file is available at the path, if it returns False that means it is invalid path or the file does not exist at the location.

3 Comments

  1. Pingback: Best Time and Motion Study Excel Template Right Now (Updated)

  2. Does not work with Azure joined computers. Environ(“username”) appears to return blank

    Reply

    1. Hi,

      Can you give an try to below code:

      Function CurrentUser()

    Dim objNetwork As Object
    Dim strUserName As String
    
    Set objNetwork = CreateObject("Wscript.Network")
    strUserName = objNetwork.UserName
    
    MsgBox strUserName
    
End Function
      Reply

Leave a Reply

Your email address will not be published.