Very serious question !!!
 

I work in system Novell.
Can I obtain information:
- who is log on computer (user name)
- the name of computer
or something which would can help me in identification who open the
Excel file (what then computer)?

Kind Regards,
Andrzej

Very serious question !!!
 

Try

Debug.Print Environ("username")
Debug.Print Environ("computername")


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"And1" wrote in message
...
I work in system Novell.
Can I obtain information:
- who is log on computer (user name)
- the name of computer
or something which would can help me in identification who open
the Excel file (what then computer)?

Kind Regards,
Andrzej

Very serious question !!!
 

Environ("UserName")
Environ("ComputerName")
--
HTH...

Jim Thomlinson


"And1" wrote:

I work in system Novell.
Can I obtain information:
- who is log on computer (user name)
- the name of computer
or something which would can help me in identification who open the
Excel file (what then computer)?

Kind Regards,
Andrzej

Very serious question !!!
 

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

Sub startuf()
Dim lpBuff As String * 25
Dim ret As Long ', UserName As String
ret = GetUserName(lpBuff, 25)
username = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

See if this helps.

peter


"And1" wrote:

I work in system Novell.
Can I obtain information:
- who is log on computer (user name)
- the name of computer
or something which would can help me in identification who open the
Excel file (what then computer)?

Kind Regards,
Andrzej

Very serious question !!!
 

how I have use this code ??

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

Sub startuf()
Dim lpBuff As String * 25
Dim ret As Long ', UserName As String
ret = GetUserName(lpBuff, 25)
username = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

See if this helps.

peter


"And1" wrote:


I work in system Novell.
Can I obtain information:
- who is log on computer (user name)
- the name of computer
or something which would can help me in identification who open the
Excel file (what then computer)?

Kind Regards,
Andrzej

Very serious question !!!
 

Does this work in system Novell only?
I need include some library?
How to use this the simplest method?


this Sub will be correct? (should be work?)
Private Sub CommandButton6_Click()
Dim UName, CName As String

UName = Environ("userername")
UName = Environ("computername")
MsgBox "Your Login=" & vbCrLf & UName
MsgBox "Your Login=" & vbCrLf & CName
' maybe only
Debug.Print Environ("username")
Debug.Print Environ("computername")
End Sub


Kind Regards,
Andrzej

Chip Pearson napisa³(a):
Try

Debug.Print Environ("username")
Debug.Print Environ("computername")

Very serious question !!!
 

the same question that to Mr Pearson

Jim Thomlinson napisał(a):
Environ("UserName")
Environ("ComputerName")

Very serious question !!!
 

Hi,
First... the other responses were much better( and simpler). You should
understand that the result from their functions will get you the user name
from the windows signin not novell. This should be the same as the novell
signin but no guarantee.

peter

"And1" wrote:

how I have use this code ??

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

Sub startuf()
Dim lpBuff As String * 25
Dim ret As Long ', UserName As String
ret = GetUserName(lpBuff, 25)
username = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

See if this helps.

peter


"And1" wrote:


I work in system Novell.
Can I obtain information:
- who is log on computer (user name)
- the name of computer
or something which would can help me in identification who open the
Excel file (what then computer)?

Kind Regards,
Andrzej