Obtener el nombre de usuario de Windows con VBA en Excel

Problema

Necesitamos conocer el nombre de usuario de Windows en Excel. Por ejemplo, porque en función del mismo, mostraremos una información distinta al usuario que abra el fichero de Excel.

Solución

1. Abrimos el Editor de Microsoft Visual Basic: Alt+F11.
2. Copiamos la siguiente subrutina en un módulo.

Sub usuario()
MsgBox Environ("UserName")
End Sub

3. Ejecutamos la subrutina: F5.
4. Aparecerá un mensaje emergente con el nombre de usuario de Windows.

También podemos simplemente teclear en la ventana de inmediato:

?Environ("Username")

O capturar el nombre en una celda para personalizar la hoja en función de la misma.

Sub usuario()
Sheets("Hoja1").Range("A1") = Environ("UserName")
End Sub

Referencias

• Obtener otras variables del entorno del sistema operativo