Macro para pegar o usuário da Rede, Domínio ou do Windows

• Inicie o editor do Visual Basic – VBA (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
• Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
• Insira o texto VBA copiando e colando o código abaixo:

Sub Usuario_do_Windows()
Set ObjNetwork = CreateObject("WScript.Network")
GetUserN = ObjNetwork.UserName
MsgBox "O Usuário do Windows é: " & GetUserN
End Sub

Sub Usuario_da_Rede()
Computador = Environ("Computername")
dominio = Environ("USERDOMAIN")
user = Environ("USERNAME")

MsgBox "Computador: " & Computador
MsgBox "Dominio: " & dominio
MsgBox "Usuario: " & user
End Sub

• Feche o Visual Basic (VBA).
• No Excel clique na guia Desenvolvedor (Caso não esteja disponível veja aqui Como Ativar a Guia Desenvolvedor).
• Clique no botão macros e selecione o Nome_Da_Macro_Criada.
• Clique em executar e pronto.