Hoppa till huvudinnehåll

Hur får jag in och sätter in det senast ändrade användarnamnet i Excel?

Författare: Kelly Senast ändrad: 2020-05-21

Den här artikeln visar hur du får den senaste modifierade användarnamninformationen och infogar den senast modifierade användarnamninformationen i celler i Excel.

Hämta det senast modifierade användarnamnet för aktuell arbetsbok i Excel
Infoga det senast modifierade användarnamnet för aktuell arbetsbok med användardefinierad funktion
Infoga enkelt användarnamnet i cell, sidhuvud eller sidfot med Kutools för Excel


Hämta det senast modifierade användarnamnet för aktuell arbetsbok i Excel

Som vi vet kan vi få den senast ändrade användarnamninformationen i dialogrutan Avancerade egenskaper i den aktuella arbetsboken.

Om du använder Excel 2007

Du kan få användarnamnet som ändrade aktuell arbetsbok förra gången i Excel med följande steg:

Steg 1: Klicka på Kontorsknapp >> Förbered >> Våra Bostäder.

Steg 2: Dokumentfönstret läggs till ovanför kalkylbladet. Klicka på Dokument egenskaper >> Avancerade egenskaper.

Steg 3: I popup-fönstret Avancerade egenskaper visas dialogrutan Senast sparad av: information under Statistik fliken.

Om du använder Excel 2010, 2013 eller senare version

Om du använder Microsoft Excel 2010 eller senare kan du få den senast ändrade användarinformationen med följande steg:

Klicka bara på Fil > Info, du får Senast ändrad av information på höger sida under Relaterade personer sektion. Se följande skärmdump.


Infoga användarnamnet som modifierade aktuell arbetsbok förra gången med användardefinierad funktion

1: Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2: I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulernaoch klistra in följande makro i modulfönstret. Se skärmdumpL

VBA-kod: Infoga senast ändrade användarnamn i Excel

Function LastAuthor()
LastAuthor = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
End Function

3: Tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.

4. Välj en cell som du behöver för att placera användarnamnet, ange formel = LastAuthor () in i formelfältet och tryck sedan på ange nyckel. Sedan sätts det senast modifierade användarnamnet in i cellen omedelbart. Se skärmdump:


Infoga enkelt användarnamnet i cell, sidhuvud eller sidfot med Kutools för Excel

Du kan enkelt infoga användarnamn i angiven cell, kalkylbladets sidhuvud eller sidfot i Excel med Infoga arbetsbokinformation nytta av Kutools för Excel. Gör så här.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

1. klick Kutools Plus > Arbetsbok > Infoga arbetsbokinformation. Se skärmdump:

2. I Infoga arbetsbokinformation dialogrutan måste du:

1). Välj Användarnamn alternativet i Information sektion.

2). Om du vill infoga användarnamnet i en angiven cell, ange den här cellen i Mätområde låda; för att infoga användarnamn i sidhuvudet eller sidfoten, välj Sidhuvud or Sidfot alternativ.

3). Klicka på Ok knapp. Se skärmdump:

Då införs användarnamnet omedelbart till den angivna positionen.

  Om du vill ha en gratis provperiod (30 dagar) av det här verktyget, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can the Activeworkbook be dynamic?

I tried to no success the below code

LastSavedby = Range("A1").value.BuiltinDocumentProperties("Last Author")

Where in A1 contains the path of the file with the file name and extension
This comment was minimized by the moderator on the site
Hi! I, my case it doesn't work automatically, I need to press "enter" after the formula "= VBAProject.Module3.LastAuthor()".
How should i make it automatic?
Thank you
This comment was minimized by the moderator on the site
Hey, this code worked nicely. Is there a way I can display the user name if a ROW is adjusted? For example, I hhave Column K with the header "Last modified By", and I want to know who adjusted "each row" as this is a shared document. I have the below code for Date, which works like how I would want the name to work: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 11 Or Target.Row = 1 Then Exit Sub Application.EnableEvents = False Cells(Target.Row, 12) = Now Application.EnableEvents = True End Sub Please email me if possible
This comment was minimized by the moderator on the site
Hi. I would like to ask how to write the VBA codes to retrieve all current users which modifying on the worksheet. Thank You:)
This comment was minimized by the moderator on the site
thanks a lot for this helpful article. I used it and it worked well. can I get the last modified date on that sheet just like the username ? MANY THANKS
This comment was minimized by the moderator on the site
Can u pls help if iwant the user name to appear in aspreadsheet as and when the previous cell is filled by a user
This comment was minimized by the moderator on the site
Thanks, Cp & Jay Chivo :)
This comment was minimized by the moderator on the site
Sub UserName() Sheets("Sheet1").Range("A1").Value = Environ("username") End Sub --------------- Change the sheet name
This comment was minimized by the moderator on the site
I am runing excel 2007 and am getting the runtime error 9, script out of range as well. any way to make it work in excel 2007?
This comment was minimized by the moderator on the site
Excel 2010. Same time i would like to ask that is it possible to use this Subscript with another function script ? Thanks Naghman
This comment was minimized by the moderator on the site
[quote]Excel 2010. Same time i would like to ask that is it possible to use this Subscript with another function script ? Thanks NaghmanBy Naghman[/quote] With another script? What script? :-)
This comment was minimized by the moderator on the site
To get last saved date. Function LastSaveDate() Application.Volatile True LastSaveDate = FileDateTime(ThisWorkbook.FullName) End Function
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations