Note: The other languages of the website are Google-translated. Back to English
Log in Register

How to get and insert the last modified user name in Excel?

This article will show you the way to get the last modified user name information, and insert the last modified user name information in cells in Excel.

Get the last modified user name of current workbook in Excel
Insert the last modified user name of current workbook with User-defined function
Easily insert the user name in cell, header or footer with Kutools for Excel

Get the last modified user name of current workbook in Excel

As we know, we can get the last modified user name information in Advanced Properties dialog box of current workbook.

If you are using Excel 2007

You can get the user name who modified current workbook last time in Excel with following steps:

Step 1: Click the Office Button >> Prepare >> Properties.

Step 2: Then the Document Pane is added above worksheet. Click the Document Properties >> Advanced properties.

Step 3: In the popping up Advanced Properties dialog box, you will see the Last Saved by: information under the Statistics tab.

If you are using Excel 2010, 2013 or later version

If you are using Microsoft Excel 2010 or later version, you can get the last modified user information with following steps:

Just click the File > Info, you will get the Last Modified by information at right side under Related People section. See the following screen shot.

Insert the user name who modified current workbook last time with User-defined function

1: Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2: In the Microsoft Visual Basic for Applications window, click Insert > Module, and paste the following macro in the Module Window. See screenshotL

VBA code: Insert last modified user name in Excel

Function LastAuthor()
LastAuthor = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
End Function

3: Press the Alt + Q keys to close the Microsoft Visual Basic for Applications window.

4. Select a cell you need to place the user name, enter formula =LastAuthor() into the Formula Bar, and then press the Enter key. Then the last modified user name is inserted into the cell immediately. See screenshot:

Easily insert the user name in cell, header or footer with Kutools for Excel

You can easily insert user name in specified cell, worksheet header or footer in Excel with the Insert Workbook Information utility of Kutools for Excel. Please do as follows.

Before applying Kutools for Excel, please download and install it firstly.

1. Click Kutools Plus > Workbook > Insert Workbook Information. See screenshot:

2. In the Insert Workbook Information dialog box, you need to:

1). Select the User name option in the Information section.

2). If you want to insert the user name into a specified cell, please specify this cell in the Range box; for inserting user name into the header or footer, please select the Header or Footer option.

3). Click the Ok button. See screenshot:

Then the user name will be inserted into the specified position immediately.

  If you want to have a free trial ( 30-day) of this utility, please click to download it, and then go to apply the operation according above steps.

The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Comments (15)
No ratings yet. Be the first to rate!
Naghman
Naghman
This comment was minimized by the moderator on the site
Hi. I am getting Run-Time Error '9': Subscript out of range Any Help?
Reply
Jay Chivo
Jay Chivo     Naghman
This comment was minimized by the moderator on the site
[quote]Hi. I am getting Run-Time Error '9': Subscript out of range Any Help?By Naghman[/quote] Hello, please tell me the version information of your Excel. :-)
Reply
Naghman
Naghman     Jay Chivo
This comment was minimized by the moderator on the site
I have replied twice but can't see here :( Anyhow try once more. I have excel 2010.
Reply
Cp
Cp     Naghman
This comment was minimized by the moderator on the site
Hi, try changing "Sheet1" to you sheet name. :)
Reply
Naghman
Naghman
This comment was minimized by the moderator on the site
Excel 2010. Same time i would like to ask that is it possible to use this Subscript with another function script ? Thanks Naghman
Reply
Jay Chivo
Jay Chivo     Naghman
This comment was minimized by the moderator on the site
[quote]Excel 2010. Same time i would like to ask that is it possible to use this Subscript with another function script ? Thanks NaghmanBy Naghman[/quote] With another script? What script? :-)
Reply
Naghman
Naghman     Jay Chivo
This comment was minimized by the moderator on the site
To get last saved date. Function LastSaveDate() Application.Volatile True LastSaveDate = FileDateTime(ThisWorkbook.FullName) End Function
Reply
steve0121
steve0121
This comment was minimized by the moderator on the site
I am runing excel 2007 and am getting the runtime error 9, script out of range as well. any way to make it work in excel 2007?
Reply
m2c
m2c
This comment was minimized by the moderator on the site
Sub UserName() Sheets("Sheet1").Range("A1").Value = Environ("username") End Sub --------------- Change the sheet name
Reply
Naghman
Naghman
This comment was minimized by the moderator on the site
Thanks, Cp & Jay Chivo :)
Reply
sb
sb
This comment was minimized by the moderator on the site
Can u pls help if iwant the user name to appear in aspreadsheet as and when the previous cell is filled by a user
Reply
Rana
Rana
This comment was minimized by the moderator on the site
thanks a lot for this helpful article. I used it and it worked well. can I get the last modified date on that sheet just like the username ? MANY THANKS
Reply
TLY
TLY
This comment was minimized by the moderator on the site
Hi. I would like to ask how to write the VBA codes to retrieve all current users which modifying on the worksheet. Thank You:)
Reply
Dana
Dana
This comment was minimized by the moderator on the site
Hey, this code worked nicely. Is there a way I can display the user name if a ROW is adjusted? For example, I hhave Column K with the header "Last modified By", and I want to know who adjusted "each row" as this is a shared document. I have the below code for Date, which works like how I would want the name to work: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 11 Or Target.Row = 1 Then Exit Sub Application.EnableEvents = False Cells(Target.Row, 12) = Now Application.EnableEvents = True End Sub Please email me if possible
Reply
JF
JF
This comment was minimized by the moderator on the site
Hi! I, my case it doesn't work automatically, I need to press "enter" after the formula "= VBAProject.Module3.LastAuthor()".
How should i make it automatic?
Thank you
Reply
There are no comments posted here yet
Leave your comments
Guest
Posting as Guest
Login
×
Rate this post:
Reset
0   Characters
Suggested Locations