Automatically update cells with last modified username and date

[jasonbowman_]

We have a Excel spreadsheet to control and manage our company archive, only certain people have permission to edit and add to the spreadsheet across the company and I'm currently in the process of upgrading this to give us more visibility. I'm after a way to show in cell A2 the date the spreadsheet was last modified and then in cell B2 the username of the last person to modify.

 

[tonyyy]

jasonbowman,

Welcome to the Board.

You might consider the following vba approach...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("A2").Value = Date
    Range("B2").Value = Environ$("Username")
End Sub

The code should be pasted into the "ThisWorkbook" module. Whenever the workbook is saved, the code will put the current date into A2 and the user's name into B2.

Cheers,

tonyyy