Gå til hovedindhold

Hvordan hentes og indsættes det sidst ændrede brugernavn i Excel?

Denne artikel viser dig, hvordan du får de sidst ændrede brugernavneoplysninger og indsætter de sidst ændrede brugernavneoplysninger i celler i Excel.

Få det sidst ændrede brugernavn på den aktuelle projektmappe i Excel
Indsæt det sidst ændrede brugernavn for den aktuelle projektmappe med brugerdefineret funktion
Indsæt nemt brugernavnet i celle, sidehoved eller sidefod med Kutools til Excel


Få det sidst ændrede brugernavn på den aktuelle projektmappe i Excel

Som vi ved, kan vi få de sidst ændrede brugernavneoplysninger i dialogboksen Avancerede egenskaber i den aktuelle projektmappe.

Hvis du bruger Excel 2007

Du kan få brugernavnet, der ændrede den aktuelle projektmappe sidste gang i Excel med følgende trin:

Trin 1: Klik på Kontorknap >> Forbered >> Ejendomme.

Trin 2: Derefter tilføjes dokumentruden over regnearket. Klik på Dokumentegenskaber >> Avancerede egenskaber.

Trin 3: I pop op-dialogboksen Avancerede egenskaber vil du se Sidst gemt af: oplysninger under Statistik fane.

Hvis du bruger Excel 2010, 2013 eller en nyere version

Hvis du bruger Microsoft Excel 2010 eller nyere version, kan du få de sidst ændrede brugeroplysninger med følgende trin:

Bare klik på File (Felt) > INFO, får du den Sidst ændret af oplysninger på højre side under Relaterede mennesker afsnit. Se følgende skærmbillede.


Indsæt brugernavnet, der sidste gang ændrede den aktuelle projektmappe med brugerdefineret funktion

1: Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2: I Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, og indsæt følgende makro i modulvinduet. Se skærmbilledeL

VBA-kode: Indsæt sidst ændrede brugernavn i Excel

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

3: Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.

4. Vælg en celle, du har brug for for at placere brugernavnet, indtast formlen = LastAuthor () ind i formellinjen, og tryk derefter på Indtast nøgle. Derefter indsættes det sidst ændrede brugernavn straks i cellen. Se skærmbillede:


Indsæt nemt brugernavnet i celle, sidehoved eller sidefod med Kutools til Excel

Du kan nemt indsætte brugernavn i specificeret celle, regnearkhoved eller sidefod i Excel med Indsæt projektmappeoplysninger nytte af Kutools til Excel. Gør som følger.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. klik Kutools Plus > Workbook > Indsæt projektmappeoplysninger. Se skærmbillede:

2. i Indsæt projektmappeoplysninger dialogboks skal du:

1). Vælg brugernavn valgmulighed i Information sektion.

2). Hvis du vil indsætte brugernavnet i en bestemt celle, skal du angive denne celle i Range boks; for at indsætte brugernavn i sidehovedet eller sidefoden, skal du vælge Header or Sidefod valgmulighed.

3). Klik på Ok knap. Se skærmbillede:

Derefter indsættes brugernavnet straks i den angivne position.

  Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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