Set author for a comment?

[Myles]

Is there some way to set the Author of a comment on a specific cell? I've
tried using the .author but i'm guessing that's read only.

Thanks guys!

 

[Ron de Bruin]

With code you can do this
http://www.contextures.com/xlcomments03.html#Name

 

[Sheeloo]

For an existing comment you must get the text, search and replace the author,
delete the comment and reinsert it with the updated text
..Author is a read only property
Author in the comment comes from Application.UserName

See Debra's article on 'Comments' at
http://www.contextures.com/xlcomments03.html
to learn all about comments programming.

 

[Myles]

Okay but whenever i use the

cells(1,1).addcomment "comment"

it automatically doesn't put any author in there even if i change the
Application.UserName

So how do i get it to put the author in there?

 

[JB]

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Address = "$A$1" And Not Target.Comment Is Nothing Then
If InStr(Target.Comment.Text, Environ("username")) = 0 Then
MsgBox "Vous are not authorized!"
Exit Sub
End If
End If
End Sub

http://cjoint.com/?ebtVEAKGWV

JB
http://boisgontierjacques.free.fr

 

[Sheeloo]

cmt = Application.UserName
cmt = cmt & ":" & Chr(10) & "Comment"
'Delete the comment if it exists
'Cells(1, 1).Comment.Delete
Cells(1, 1).AddComment cmt