Note: The other languages of the website are Google-translated. Back to English

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 zkušební verzi (

30
-den) této utility, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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!
officetab dno
Komentáře (15)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj. Zobrazuje se mi Run-Time Error '9': Dolní index mimo rozsah Nějaká pomoc?
Tento komentář byl moderátorem webu minimalizován
[quote] Ahoj. Zobrazuje se mi Run-Time Error '9': Dolní index mimo rozsah Nějaká pomoc?Od Naghmana[/quote] Dobrý den, sdělte mi prosím informace o verzi vašeho Excelu. :-)
Tento komentář byl moderátorem webu minimalizován
Odpovídal jsem dvakrát, ale nevidím to zde :( Každopádně zkuste ještě jednou. Mám excel 2010.
Tento komentář byl moderátorem webu minimalizován
Ahoj, zkuste změnit "Sheet1" na svůj název listu. :)
Tento komentář byl moderátorem webu minimalizován
Excel 2010. Zároveň bych se chtěl zeptat, zda je možné tento dolní index použít s jiným funkčním skriptem? Díky Naghmane
Tento komentář byl moderátorem webu minimalizován
[quote]Excel 2010. Zároveň bych se chtěl zeptat, zda je možné tento dolní index použít s jiným funkčním skriptem? Díky NaghmaneOd Naghmana[/quote] S jiným skriptem? Jaký skript? :-)
Tento komentář byl moderátorem webu minimalizován
Chcete-li získat poslední uložené datum. Funkce LastSaveDate() Application.Volatile True LastSaveDate = FileDateTime(ThisWorkbook.FullName) End Function
Tento komentář byl moderátorem webu minimalizován
Spouštím Excel 2007 a dostávám runtime error 9, skript je také mimo rozsah. nějaký způsob, jak to zprovoznit v excelu 2007?
Tento komentář byl moderátorem webu minimalizován
Sub UserName() Sheets("Sheet1").Range("A1").Value = Environ("username") End Sub --------------- Změnit název listu
Tento komentář byl moderátorem webu minimalizován
Díky, Cp & Jay Chivo :)
Tento komentář byl moderátorem webu minimalizován
Můžete mi prosím pomoci, pokud chci, aby se uživatelské jméno objevilo v tabulkovém procesoru, když uživatel vyplní předchozí buňku
Tento komentář byl moderátorem webu minimalizován
díky moc za tento užitečný článek. Používal jsem to a fungovalo to dobře. mohu získat datum poslední změny na tomto listu stejně jako uživatelské jméno? MNOHOKRÁT DĚKUJI
Tento komentář byl moderátorem webu minimalizován
Ahoj. Chtěl bych se zeptat, jak napsat kódy VBA, abych načetl všechny aktuální uživatele, kteří upravují na listu. Děkuji:)
Tento komentář byl moderátorem webu minimalizován
Ahoj, tento kód fungoval dobře. Existuje způsob, jak mohu zobrazit uživatelské jméno, pokud je upraven řádek? Mám například sloupec K se záhlavím „Naposledy upraveno“ a chci vědět, kdo upravil „každý řádek“, protože se jedná o sdílený dokument. Mám níže uvedený kód pro Datum, který funguje tak, jak bych chtěl, aby název fungoval: 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) = Nyní Application.EnableEvents = True End Sub Prosím, napište mi, pokud je to možné
Tento komentář byl moderátorem webu minimalizován
Ahoj! V mém případě to nefunguje automaticky, musím po vzorci "= VBAProject.Module3.LastAuthor()" stisknout "enter".
Jak to mám udělat automaticky?
Děkuji
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL