G
Guest
The user name is set in Tools>Options>General tab
How can I get that user name to display in a cell?
How can I get that user name to display in a cell?
B
Bob Phillips
Create a UDF
Function ThisUser()
ThisUser = Application.UserName
End Function
and call like =ThisUser()
You could even get the logon user name, which is more robust
Function ThisUser()
ThisUser = Environ("UserName")
End Function
--
HTH
Bob Phillips
(there's no email, no snail mail, but somewhere should be gmail in my addy)
Function ThisUser()
ThisUser = Application.UserName
End Function
and call like =ThisUser()
You could even get the logon user name, which is more robust
Function ThisUser()
ThisUser = Environ("UserName")
End Function
--
HTH
Bob Phillips
(there's no email, no snail mail, but somewhere should be gmail in my addy)
G
Guest
Hi mkraizrool:
You need to user vba and it is a simple function.
Function GetUserName() As String
GetUserName = Application.UserName
End Function
To open the vba enter ALT+F11.
Insert a module ALT+I M
paste it in and then in cell A1 =GetUserName()
and it should work.
You need to user vba and it is a simple function.
Function GetUserName() As String
GetUserName = Application.UserName
End Function
To open the vba enter ALT+F11.
Insert a module ALT+I M
paste it in and then in cell A1 =GetUserName()
and it should work.
G
Guest
Thanks
Is there a formula?? (i.e a way without resorting to VBA? - Icould just
about cope with you suggestion - but the person I'm trying to help
couldn't...)
Is there a formula?? (i.e a way without resorting to VBA? - Icould just
about cope with you suggestion - but the person I'm trying to help
couldn't...)
G
Guest
Unfortunately it is one of the things that is missing.
I don't know about the version.
I don't know about the version.
G
Guest
mkraizrool
Bob's solution seems to work for me. Copy Bob's code into a Module and in
the cell that you want the user name displayed place the formula =ThisUser()
and enter out. The name is there. Kinda Cool!!!
Mike Rogers
Bob's solution seems to work for me. Copy Bob's code into a Module and in
the cell that you want the user name displayed place the formula =ThisUser()
and enter out. The name is there. Kinda Cool!!!
Mike Rogers
G
Guest
try this: after a save it will apply.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
ActiveSheet.Range("C4").Value = Format(Now, "dd mmm yyyy hh:mm") + " "
+ Environ("UserName")
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
ActiveSheet.Range("C4").Value = Format(Now, "dd mmm yyyy hh:mm") + " "
+ Environ("UserName")
End Sub
C
CarpeDiem
How Can I make this function to work on a protected sheet (Excel version: 2003)
The Code:
Function LSUser()
LSUser = Environ("username")
End Function
Much appreciated if I could get the answer for this issue
. The function
works fine on a protected sheet in Excel:2007, In Excel: 2003 it doesn't
changes the name if a new user updates the worksheet. All the cells in the
worksheet are write protected except for some on which the user enters the
information and then saves it. The worksheet was designed and created in
excel 2003.
The Code:
Function LSUser()
LSUser = Environ("username")
End Function
Much appreciated if I could get the answer for this issue
. The functionworks fine on a protected sheet in Excel:2007, In Excel: 2003 it doesn't
changes the name if a new user updates the worksheet. All the cells in the
worksheet are write protected except for some on which the user enters the
information and then saves it. The worksheet was designed and created in
excel 2003.