Require MS Excel VBA code to retrieve current userID

Question

For personal and office use, I need to have Excel VBA code that can help me fetch / see current system userID that is using the Excel file, thereby thereafter I will be filtering file content to show only relevant data to that user

I hope my query is clear and someone can please help me

Answer 1

To retrieve the current user ID in Excel using VBA, you can utilize the Windows API function GetUserNameA. Below is a sample code snippet that demonstrates how to implement this in your Excel VBA environment:

Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function GetLogonName() As String
    Dim buffer As String * 255
    Dim size As Long
    size = 255
    If GetUserName(buffer, size) Then
        GetLogonName = Left(buffer, InStr(buffer, Chr(0)) - 1)
    Else
        GetLogonName = ""
    End If
End Function

Sub ShowCurrentUser()
    MsgBox "Current User ID: " & GetLogonName()
End Sub

Explanation:

1. Declare Function: This line declares the GetUserName function from the advapi32.dll library, which is used to get the username of the logged-in user.
2. GetLogonName Function: This function calls GetUserName, retrieves the username, and returns it as a string.
3. ShowCurrentUser Sub: This subroutine displays the current user ID in a message box.

You can call the ShowCurrentUser subroutine to see the current user ID when you run the code in your Excel VBA environment.

---

References:

• Retrieve the name of the user logged on to the network
• Getting started with VBA in Office
• Develop solutions and customize Excel