How to Get username in VBA ?

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

Delete Shapes in Excel trough VBA

Get UserName Syntax Code

expression.UserName

Expression A variable that represents an application object.

Example

Sub Get_Username()

ActiveCell.Value = Application.UserName

End Sub

Another Method: Get Username in VBA Code

Sub GetLoggedInUserName()

Dim strUserName As String

strUserName = Environ("Username")

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…’

Get logged in User form in Excel VBA

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

Get logged in User form in Excel VBA

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

Get logged in User form in Excel VBA

Hope you liked this article!!

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

Recommended Articles

Excel VBA Course : Beginners to Advanced

We are currently offering our Excel VBA Course for just $29. This courses includes On Demand Videos, Practice Assignments, Q&A Support from our Experts. Also after successfully completion of the certification, will share the success with Certificate of Completion

This course is going to help you to excel your skills in Excel VBA with our real time case studies.

Lets get connected and start learning now. Click here to Enroll.

Secrets of Excel Data Visualization: Beginners to Advanced Course

Here is another best rated Excel Charts and Graph Course in just $29. This courses also includes On Demand Videos, Practice Assignments, Q&A Support from our Experts.

This Course will enable you to become Excel Data Visualization Expert as it consists many charts preparation method which you will not find over the internet.

So Enroll now to become expert in Excel Data Visualization. Click here to Enroll.

Automate Tasks using Excel VBA Utility Tools

Here are some other free Excel VBA Tools which may help you to increase productivity in your day to day jobs. Click here

Similar Posts

3 Comments

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

    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

Leave a Reply

Your email address will not be published. Required fields are marked *