5 replies
by jboardman
Hello,
Open the File you want to monitor Goto the VB editor ALT+F11. In the Project Explorer click on "ThisWorkbook" and insert the follwing code.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim strMsg
strMsg = "Last Changed : " & Format(Now, "mm/dd/yyyy hh:mm am/pm")
strMsg = strMsg & ", Sheet: " & Sh.Name
ThisWorkbook.Names.Add "LastChanged", strMsg
End Sub
In XL Version 5 they used to let you write to the document properties, but it appears to be read only now. That's why I chose to use a workbook name. You could hide the name so that users couldn't modify it. I hope this gets you in the right direction.
Charles
This discussion is closed to new replies.
Trending Software posts
Sort by Trending