Přejít k hlavnímu obsahu

Jak získat a vložit poslední upravené uživatelské jméno v aplikaci Excel?

Tento článek vám ukáže způsob, jak získat informace o posledním upraveném uživatelském jménu a vložit informace o posledním upraveném uživatelském jméně do buněk v aplikaci Excel.

Získejte poslední upravené uživatelské jméno aktuálního sešitu v aplikaci Excel
Vložte poslední upravené uživatelské jméno aktuálního sešitu pomocí funkce definované uživatelem
Snadno vložte uživatelské jméno do buňky, záhlaví nebo zápatí pomocí programu Kutools pro Excel


Získejte poslední upravené uživatelské jméno aktuálního sešitu v aplikaci Excel

Jak víme, můžeme získat poslední upravené informace o uživatelském jménu v dialogovém okně Rozšířené vlastnosti aktuálního sešitu.

Pokud používáte Excel 2007

Uživatelské jméno, které naposledy upravilo aktuální sešit, můžete získat v aplikaci Excel pomocí následujících kroků:

Krok 1: Klepněte na tlačítko Tlačítko Office >> Připravit >> Nemovitosti.

Krok 2: Poté se pod list přidá podokno dokumentu. Klikněte na ikonu Vlastnosti dokumentu >> Pokročilé vlastnosti.

Krok 3: V rozbalovacím dialogovém okně Pokročilé vlastnosti uvidíte ikonu Naposledy uložil: informace pod Statistika Karta.

Pokud používáte Excel 2010, 2013 nebo novější verzi

Pokud používáte Microsoft Excel 2010 nebo novější verzi, můžete získat poslední upravené informace o uživateli pomocí následujících kroků:

Stačí kliknout na Soubor > Informace, dostanete Naposledy změněno uživatelem informace na pravé straně pod Související lidé sekce. Podívejte se na následující snímek obrazovky.


Vložte uživatelské jméno, které naposledy upravilo aktuální sešit, pomocí funkce definované uživatelem

1: Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2: V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modula vložte následující makro do okna modulu. Viz screenshotL

Kód VBA: Vložte poslední upravené uživatelské jméno do aplikace Excel

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

3: Zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

4. Vyberte buňku, do které potřebujete umístit uživatelské jméno, zadejte vzorec = LastAuthor () do řádku vzorců a poté stiskněte vstoupit klíč. Poté se do buňky okamžitě vloží poslední upravené uživatelské jméno. Viz screenshot:


Snadno vložte uživatelské jméno do buňky, záhlaví nebo zápatí pomocí programu Kutools pro Excel

Uživatelské jméno můžete snadno vložit do určené buňky, záhlaví nebo zápatí listu v aplikaci Excel pomocí Vložte informace o sešitu užitečnost Kutools pro Excel. Postupujte prosím následovně.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. cvaknutí Kutools Plus > Cvičebnice > Vložte informace o sešitu. Viz snímek obrazovky:

2. V Vložte informace o sešitu dialogové okno, musíte:

1). Vybrat Uživatelské jméno možnost v Informace sekce.

2). Pokud chcete vložit uživatelské jméno do zadané buňky, zadejte tuto buňku do Rozsah krabice; pro vložení uživatelského jména do záhlaví nebo zápatí vyberte Hlavička or Zápatí volba.

3). Klikněte na ikonu Ok knoflík. Viz screenshot:

Poté bude uživatelské jméno okamžitě vloženo na zadanou pozici.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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