lebn Postad 2 augusti, 2019 Share Postad 2 augusti, 2019 Hej! Någon som kan hjälpa mig. Jag vill ta bort mitt namn i kommentarer. Jag har Excel 2016 och menar den feta rubriken på översta raden i varje ny kommentar. Och jag menar då inte att ersätta det namnet med ett annat, för det vet jag redan hur man gör. (Alternativ/Allmänt/Anpassa Microsoft Office/Användarnamn: ) Jag antar att det ska till VBA kod och jag är som vanligt mycket tacksam för hjälp med detta problem, som i mitt tycke är väldigt enerverande. Mvh /lebn Länk till kommentar Dela på andra webbplatser More sharing options...
Mikael63 Postad 2 augusti, 2019 Share Postad 2 augusti, 2019 Kan du inte bara ändra användarnamnet till ett mellanslag då? Länk till kommentar Dela på andra webbplatser More sharing options...
Laso Postad 2 augusti, 2019 Share Postad 2 augusti, 2019 (redigerade) 19 minuter sedan, skrev lebn: Och jag menar då inte att ersätta det namnet med ett annat, för det vet jag redan hur man gör. (Alternativ/Allmänt/Anpassa Microsoft Office/Användarnamn: ) Dom hänger ihop. Du kan inte ha separata namn på dessa ställen. Det som står vid Användarnamn, kommer också stå i Kommentaren. Så är det i alla fall i senaste versionerna, antar att det är samma i din version också. Men visst kan du göra som Mikael63 föreslår att inte ha något Användarnamn, då slipper du problemet. Redigerad 2 augusti, 2019 av Laso Länk till kommentar Dela på andra webbplatser More sharing options...
lebn Postad 2 augusti, 2019 Trådskapare Share Postad 2 augusti, 2019 Att bara använda mellanslag ger istället ett kolontecken i fet stil. Jag vill inte ha någonting alls. Det är det jag undrar över om det går att skapa, kanske mha VBA? /lebn Länk till kommentar Dela på andra webbplatser More sharing options...
lebn Postad 5 augusti, 2019 Trådskapare Share Postad 5 augusti, 2019 Hej igen! Har nu sökt överallt på nätet efter lösningen på problemet med att få bort användarnamnet i kommentarer, utan att hitta något konkret. Finns det ingen på forumet som kan hjälpa mig med VBA kod? Jag tror att det är många fler än jag som undrar eftersom det finns många skriver om samma problem men som sagt - ingen har svaret. Hoppas att ni som kan programmering känner er utmanade! ? /lebn Länk till kommentar Dela på andra webbplatser More sharing options...
Mikael63 Postad 5 augusti, 2019 Share Postad 5 augusti, 2019 Det är ju en funktion i programmet som du vill ändra varför jag anser det högst osannolikt att detta låter sig göras med VBA. I Office 365 ger ett mellanslag som användarnamn ingen synlig text, förutom datum: Länk till kommentar Dela på andra webbplatser More sharing options...
Ove Söderlund Postad 6 augusti, 2019 Share Postad 6 augusti, 2019 Den lösning jag föreslår är VBA-koden här nedan, som du lämpligen placerar i Personal.xlsb och kopplar kortkommando eller verktygsknapp, alternativt har med koden i önskad arbetsbok och definerar en Workbook_BeforeClose-händelse. Sub RemoveUserNameFromCommentsWithinWholeWorkbook() Dim objWS As Worksheet Dim objComment As Comment Dim strUserName As String Dim strDeletedUserNameName As String strUserName = Application.UserName & ":" & vbLf strDeletedUserNameName = "" For Each objWS In Application.ActiveWorkbook.Worksheets For Each objComment In objWS.Comments objComment.Text (Replace(objComment.Text, strUserName, strDeletedUserNameName)) Next Next End Sub För info om hur du skapar och använder Personal.xlsb, se följande länk: How do I create and use a PERSONAL file for my VBA code / Ron de Bruin - Excel Automation Länk till kommentar Dela på andra webbplatser More sharing options...
Solution lebn Postad 6 augusti, 2019 Trådskapare Solution Share Postad 6 augusti, 2019 Hej Ove! Jag prövade din kod, men fick den inte att funka, tyvärr. Jag skickar med en annan kod, skapad av Jon Peltier, som funkar, och som jag hittade efter fortsatt letande på nätet. Stort tack för din hjälp och ditt försök. Hoppas koden som följer ska hjälpa många. Mig har den definitivt hjälpt! /lebn Sub CommentAddOrEdit() 'method suggested by Jon Peltier 2006-03-04 'adds new plain text comment or adds text 'at end of existing comment text Dim cmt As Comment Set cmt = ActiveCell.Comment If cmt Is Nothing Then Set cmt = ActiveCell.AddComment cmt.Text Text:="" End If 'type to add comment text to selected shape cmt.Visible = True cmt.Shape.Select End Sub Cecilia reagerade på detta 1 Länk till kommentar Dela på andra webbplatser More sharing options...
Rekommendera Poster