Este breve tutorial demonstrará como usar o método Application.UserName.
Obtenha e altere o nome de usuário do aplicativo no VBA
Obter nome de usuário
Você pode usar Application.UserName para retornar ou definir o nome do usuário atual. Este é o nome padrão que aparece em “macro gravado por”, novos comentários, “salvo pela última vez por” etc …
Você pode exibir o nome do usuário atual em uma caixa de mensagem como esta:
MsgBox "O usuário atual é" & Application.UserName
Mudar nome de usuário
Você pode alterar o nome de usuário atual assim:
Application.UserName = "MonkeyCoder"
Se você estiver interessado em quem é o autor da pasta de trabalho atual, você pode obtê-lo assim:
UserNameAuthor = ThisWorkbook.BuiltinDocumentProperties ("Autor")
Você também pode alterá-lo:
ThisWorkbook.BuiltinDocumentProperties ("Author") = "ItsMe"
O nome de usuário do Windows pode ser obtido assim:
UserNameWindows = Environ ("UserName")
<
