Função para retornar o nome do usuário usando VBA no Microsoft Excel

A função abaixo irá retornar o nome de usuário para o usuário conectado, funciona tanto no Windows NT quanto no Windows95 / 98.

Função de declaração pública GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Função ReturnUserName () As String 'retorna o nome de usuário do domínio NT Dim rString As String * 255, sLen As Long , tString As String tString = "" On Error Resume Next sLen = GetUserName (rString, 255) sLen = InStr (1, rString, Chr (0)) If sLen> 0 Then tString = Left (rString, sLen - 1) Else tString = rString End If On Error GoTo 0 ReturnUserName = UCase (Trim (tString)) End Function

Se você não quiser retornar o nome de usuário da rede,
mas deseja retornar o nome de usuário que o usuário registrou no aplicativo, você pode fazer o seguinte: