Sunlim señaló que cuando se instala Office, el usuario especifica su nombre. Se puede acceder a este nombre en algunos programas de Office, como en Word. Sunlim se pregunta cómo puede acceder al nombre del usuario en Excel y colocar ese nombre en una celda.

La forma de hacer esto es implementar una macro breve de una línea que acceda a la propiedad UserName del objeto Aplicación. Esta técnica se detalla en un número diferente de _ExcelTips: _

http://excelribbon.tips.net/T009814

Ese enfoque es excelente para determinar el nombre de usuario asociado con la instalación actual de Excel. Sin embargo, puede que no sea lo mismo que quién está usando el libro de trabajo actual. Por ejemplo, si se comparte el libro de trabajo, es posible que varias personas lo estén usando al mismo tiempo. En ese caso, necesita una forma de determinar esos nombres, como se muestra aquí:

Function UserNames() As String     Dim Users As Variant     Dim sMsg As String     Dim iIndex As Integer

Users = ActiveWorkbook.UserStatus

For iIndex = 1 To UBound(Users, 1)

sMsg = Users(iIndex, 1) & vbLf     Next iIndex     'remove final line feed     sMsg = Left(sMsg, Len(sMsg) - 1)



UserNames = sMsg End Function

Para usar la función, simplemente ingrese la siguiente fórmula en la celda donde desea que aparezcan los nombres:

=UserNames

Si, en cambio, desea saber quién está usando la computadora actualmente, es mejor mirar más allá de Office y, en su lugar, tomar el nombre de Windows. De esa manera, puede determinar quién está conectado a Windows y usarlo como nombre de usuario. Esto requiere una declaración de llamada a una función API, pero por lo demás es relativamente fácil:

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

Function UserName2() As String     Dim strBuff As String * 100     Dim lngBuffLen As Long

lngBuffLen = 100     GetUserName strBuff, lngBuffLen     UserName2 = Left(strBuff, lngBuffLen - 1)

End Function

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (12745) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Inserting_the_Users_Name_in_a_Cell [Insertar el nombre del usuario en una celda].