calculating user

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is there a function similar to NOW() that will show which user last made
changes to a file?
 
Here's a neat little ditty that Gord Dibben posted awhile back....

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = 0
On Error Resume Next
Dim curComment As String
curComment = ""
curComment = Target.Comment.Text
If curComment <> "" Then curComment = curComment & Chr(10)
Target.AddComment
Target.Comment.Text Text:=curComment & _
ActiveWorkbook.Application.UserName & _
Chr(10) & " Rev. " & Format(Date, "yyyy-mm-dd ") & _
Format(Time, "hh:mm")
ActiveCell.Comment.Visible = False
'comment perhaps should be resized
End Sub

Vaya con Dios,
Chuck, CABGx3
 
In addition

You might want to change ActiveWorkbook.Application.UserName to

Environ("UserName") which returns the login name.


Gord
 
For anyone who might find this
After a bit of tinkering, i modified the code to run whenever the workbook
is saved....

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Dummy
End Sub

Public Sub Dummy()
Dim curComment As String
Dim aworksheet As Worksheet

For Each aworksheet In Worksheets
aworksheet.Activate

With Cells(1, 1)
.Interior.Color = RGB(0, 0, 175)
On Error Resume Next
curComment = ""
curComment = .Comment.Text
If curComment <> "" Then curComment = curComment & Chr(10)
.AddComment
.Comment.Text Text:= _
ActiveWorkbook.Application.UserName & " was the last editor" & _
Chr(10) & " Rev. Date: " & Format(Date, "yyyy-mm-dd ") & _
" Time: " & Format(Time, "hh:mm")
End With
Next
Worksheets(1).Activate
End Sub
 
Back
Top