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.

Read More... Free Download... Purchase...

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!

Read More... Free Download... Purchase...

15 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest ( Sign Up? )

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
JF · 7 months ago
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
To post as a guest, your comment is unpublished.
Dana · 3 years ago
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
To post as a guest, your comment is unpublished.
TLY · 4 years ago
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
To post as a guest, your comment is unpublished.
Rana · 4 years ago
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
To post as a guest, your comment is unpublished.
sb · 6 years ago
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
To post as a guest, your comment is unpublished.
Naghman · 6 years ago
Thanks, Cp & Jay Chivo :)
- Reply
To post as a guest, your comment is unpublished.
m2c · 6 years ago
Sub UserName()
Sheets("[b]Sheet1[/b]").Range("A1").Value = Environ("username")
End Sub
---------------
Change the sheet name
- Reply
To post as a guest, your comment is unpublished.
steve0121 · 6 years ago
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
To post as a guest, your comment is unpublished.
Naghman · 6 years ago
Excel 2010.
Same time i would like to ask that is it possible to use this Subscript with another function script ?
Thanks
Naghman
- Reply
- To post as a guest, your comment is unpublished.
  Jay Chivo · 6 years ago
  
  [quote name="Naghman"]Excel 2010.
  Same time i would like to ask that is it possible to use this Subscript with another function script ?
  Thanks
  Naghman[/quote]
  
  With another script? What script? :-)
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Naghman · 6 years ago
  
  To get last saved date.
  
  Function LastSaveDate()
  Application.Volatile True
  LastSaveDate = FileDateTime(ThisWorkbook.FullName)
  End Function
  
  Reply
To post as a guest, your comment is unpublished.
Naghman · 6 years ago
Hi. I am getting
Run-Time Error '9':
Subscript out of range
Any Help?
- Reply
- To post as a guest, your comment is unpublished.
  Cp · 6 years ago
  
  Hi,
  
  try changing "Sheet1" to you sheet name. :)
  
  Reply
- To post as a guest, your comment is unpublished.
  Jay Chivo · 6 years ago
  
  [quote name="Naghman"]Hi. I am getting
  Run-Time Error '9':
  Subscript out of range
  Any Help?[/quote]
  
  Hello, please tell me the version information of your Excel.
  
  :-)
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Naghman · 6 years ago
  
  I have replied twice but can't see here :(
  Anyhow try once more. I have excel 2010.
  
  Reply