W
wayne
Hi, is there a way that I can find who the active user(s) is/are? ie
Name or staff number etc
TIA
Wayne
Name or staff number etc
TIA
Wayne
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
A
Andy Pope
Hi,
Although this recent blog post was about users initials it contains many
ways of getting users name.
http://www.dailydoseofexcel.com/archives/2008/08/28/user-initials-in-excel/
Cheers
Andy
Although this recent blog post was about users initials it contains many
ways of getting users name.
http://www.dailydoseofexcel.com/archives/2008/08/28/user-initials-in-excel/
Cheers
Andy
G
Gord Dibben
You want Excel username or login username?
There is a difference.
Function User()
Application.Volatile
User = Application.UserName 'name in Tools>Options>General
End Function
Function login()
Application.Volatile
login = Environ("Username")
End Function
Gord Dibben MS Excel MVP
There is a difference.
Function User()
Application.Volatile
User = Application.UserName 'name in Tools>Options>General
End Function
Function login()
Application.Volatile
login = Environ("Username")
End Function
Gord Dibben MS Excel MVP
W
wayne
You want Excel username or login username?
There is a difference.
Function User()
Application.Volatile
User = Application.UserName 'name in Tools>Options>General
End Function
Function login()
Application.Volatile
login = Environ("Username")
End Function
Gord Dibben MS Excel MVP
The 2nd one is the one for me sir. All I need now is to be able to
record/saxe the username of whoever opened/closed the sheet lasr.
Any hlep greatly appreciated
G
Gord Dibben
Place this code in Thisworkbook module.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook
With Worksheets("Sheet1")
.Range("A1").Value = "Last Saved By " _
& Environ("UserName") & " " & Now
End With
.Save
End With
End Sub
Or if you want a permanent record in a list use the following instead.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lastrow As Range
With ThisWorkbook
With Worksheets("Sheet1")
Set lastrow = .Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
lastrow.Value = "Last Saved By " _
& Environ("UserName") & " " & Now
End With
.Save
End With
End Sub
Gord
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook
With Worksheets("Sheet1")
.Range("A1").Value = "Last Saved By " _
& Environ("UserName") & " " & Now
End With
.Save
End With
End Sub
Or if you want a permanent record in a list use the following instead.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lastrow As Range
With ThisWorkbook
With Worksheets("Sheet1")
Set lastrow = .Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
lastrow.Value = "Last Saved By " _
& Environ("UserName") & " " & Now
End With
.Save
End With
End Sub
Gord
W
wayne
Place this code in Thisworkbook module.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ThisWorkbook
With Worksheets("Sheet1")
.Range("A1").Value = "Last Saved By " _
& Environ("UserName") & " " & Now
End With
.Save
End With
End Sub
Or if you want a permanent record in a list use the following instead.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lastrow As Range
With ThisWorkbook
With Worksheets("Sheet1")
Set lastrow = .Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
lastrow.Value = "Last Saved By " _
& Environ("UserName") & " " & Now
End With
.Save
End With
End Sub
Gord
That's just fantastic. Superlatives fail me. MVP is a real
understatement
any,many thanks
wayne
G
Gord Dibben
Thanks for the feedback
Gord
Gord
That's just fantastic. Superlatives fail me. MVP is a real
understatement
any,many thanks
wayne