Перейти до основного матеріалу

Як отримати та вставити останнє змінене ім'я користувача в Excel?

Ця стаття покаже вам спосіб отримати інформацію про останнє змінене ім’я користувача та вставити останню змінену інформацію про ім’я користувача в комірки Excel.

Отримайте останнє змінене ім’я користувача поточної книги в Excel
Вставте останнє змінене ім'я користувача поточної книги з користувацькою функцією
Легко вставте ім’я користувача в клітинку, верхній або нижній колонтитул за допомогою Kutools для Excel


Отримайте останнє змінене ім’я користувача поточної книги в Excel

Як ми знаємо, останню змінену інформацію про ім’я користувача ми можемо отримати в діалоговому вікні Додаткові властивості поточної книги.

Якщо ви використовуєте Excel 2007

Ви можете отримати ім’я користувача, який останній раз модифікував поточну книгу в Excel, виконавши такі дії:

Крок 1: натисніть кнопку Кнопка Office >> Готувати >> властивості.

Крок 2: Потім область документа додається над аркушем. Клацніть на Властивості документа >> Розширені властивості.

Крок 3: У спливаючому діалоговому вікні Додаткові властивості ви побачите Востаннє збережено: інформація під Статистика Вкладка.

Якщо ви використовуєте Excel 2010, 2013 або пізнішої версії

Якщо ви використовуєте Microsoft Excel 2010 або пізнішої версії, ви можете отримати останню змінену інформацію про користувача, виконавши такі дії:

Просто натисніть кнопку філе > інформація, ви отримаєте Останнє внесення змін до інформація праворуч під Пов’язані люди розділ. Дивіться наступний знімок екрана.


Вставте ім’я користувача, який востаннє модифікував поточну книгу за допомогою функції, визначеної користувачем

1: Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2: В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модуліта вставте наступний макрос у вікно модуля. Див. Скріншот L.

Код VBA: Вставте останнє змінене ім'я користувача в Excel

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

3: Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.

4. Виділіть клітинку, в якій потрібно розмістити ім’я користувача, введіть формулу = LastAuthor () в панель формул, а потім натисніть Що натомість? Створіть віртуальну версію себе у ключ. Потім останнє змінене ім’я користувача негайно вставляється в комірку. Дивіться знімок екрана:


Легко вставте ім’я користувача в клітинку, верхній або нижній колонтитул за допомогою Kutools для Excel

Ви можете легко вставити ім'я користувача у вказану комірку, верхній або нижній колонтитул робочого аркуша в Excel за допомогою Вставте інформацію про робочу книгу корисність Kutools для Excel. Будь ласка, виконайте наступне.

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

1. клацання Kutools Plus > робочий зошит > Вставте інформацію про робочу книгу. Дивіться знімок екрана:

2 В Вставте інформацію про робочу книгу у діалоговому вікні потрібно:

1). Виберіть ім'я користувача опція в Інформація .

2). Якщо ви хочете вставити ім'я користувача у вказану комірку, вкажіть цю клітинку в полі Діапазон коробка; для вставки імені користувача у верхній або нижній колонтитул, будь ласка, виберіть Header or Нижній колонтитул варіант.

3). Клацніть на Ok кнопку. Дивіться знімок екрана:

Тоді ім'я користувача буде негайно вставлено у вказану позицію.

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
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