Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Add User to comment
I have a worksheet event that inserts a comment into a changed cell so
that it can be tracked. Multiple employees access the sheet and are free to change items and I want to hold them accountable for changes. I have: 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.BuiltinDocumentProperties("Author") & _ Chr(10) & " Rev. " & Format(Date, "yyyy-mm-dd ") & _ Format(Time, "hh:mm") ActiveCell.Comment.Visible = False 'comment perhaps should be resized End Sub How do I include the user name automatically? Perhaps insert the name that the excel workbook is regsitered to? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Cannot empty clipboard" | Excel Discussion (Misc queries) | |||
How do I make make comment format default? | Excel Discussion (Misc queries) | |||
user form question: text box to display result | Excel Discussion (Misc queries) | |||
user form question: text box to display result | Excel Worksheet Functions | |||
comment indicators should feature lock or pw protect limiting acc. | Excel Worksheet Functions |