Login Information

[Arvind P Rangan]

Hi,
How can we get the user login information into a excel sheet.

If anyone opens a excel sheet stored in a server whenever the user opens it,
a cell should display the user login name??

Can anyone help me on that.
Thanks

Arvind.

 

[Bob Phillips]

Arvind,

Here is a simple function that returns the network user id

Here is a function to do it

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

Public Function UserName() As String
Dim sName As String * 256
Dim cChars As Long
cChars = 256
If GetUserName(sName, cChars) Then
UserName = Left$(sName, cChars - 1)
End If
End Function

The cell could then use

=UserName()

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Arvind Rangan]

Hi,
Thanks but how do i use the function and should i need to put the vb
code in the xls file.

WHERE TO put the code and how to access it.

Thanks
ARvind.

 

[Bob Phillips]

Arvind,

just put it in a standard code module, and you can use

=UserName()

in a worksheet cell.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)