Opmerking "gemaakt door" wijzigen

[oceanrace]

Hallo,

Is er een manier (in vba) om alle opmerkingen in een werkboek een andere auteursnaam te geven? Standaard geeft excel een computernaam lijkt het, ik zou graag mijn eigen naam invullen...

 

[Cobbe]

Probeer deze eens:

Sub ChangeCommentName()
'replaces old names in Excel comments
'deletes and reinserts Excel comments
'  so new name appears in status bar
'www.contextures.com\xlcomments03.html
Dim ws As Worksheet
Dim cmt As Comment
Dim strOld As String
Dim strNew As String
Dim strComment As String
strNew = "New Name"
strOld = "Old Name"
Application.UserName = strNew
For Each ws In ActiveWorkbook.Worksheets
  For Each cmt In ws.Comments
    strComment = Replace(cmt.text, strOld, strNew)
    cmt.Delete
    cmt.Parent.AddComment text:=strComment
  Next cmt
Next ws

End Sub

Succes, Cobbe

 

[Haaren101]

Je kan ook onder Extra Opties je naam en initialen aanpassen; is geen VBA voor nodig

Ron

 

[Cobbe]

Ja dat klopt ook, maar dit heeft geen invloed op bestaande Opmerkingen.

Deze code wijzigt ook de naam in de bestaande Opmerkingen.

Cobbe

 

[oceanrace]

Bedankt, ik ga het proberen!