Перейти к основному содержанию

Как получить и вставить последнее измененное имя пользователя в Excel?

Эта статья покажет вам, как получить информацию об имени пользователя, последнего измененного, и вставить информацию о последнем измененном имени пользователя в ячейки Excel.

Получить последнее измененное имя пользователя текущей книги в Excel
Вставить последнее измененное имя пользователя текущей книги с помощью определяемой пользователем функции
Легко вставляйте имя пользователя в ячейку, верхний или нижний колонтитул с помощью Kutools for Excel


Получить последнее измененное имя пользователя текущей книги в Excel

Как мы знаем, мы можем получить информацию об имени последнего измененного пользователя в диалоговом окне «Дополнительные свойства» текущей книги.

Если вы используете Excel 2007

Вы можете получить имя пользователя, который последний раз изменил текущую книгу в Excel, выполнив следующие действия:

Шаг 1: нажмите Кнопка управления >> Подготовить >> Объекты.

Шаг 2: Затем над листом добавляется область документа. Щелкните значок Свойства документа >> Дополнительные свойства.

Шаг 3. Во всплывающем диалоговом окне «Дополнительные свойства» вы увидите Последнее сохранение: информация под Показатели меню.

Если вы используете Excel 2010, 2013 или более позднюю версию

Если вы используете Microsoft Excel 2010 или более позднюю версию, вы можете получить информацию о последнем измененном пользователе, выполнив следующие действия:

Просто нажмите Файл > Инфо, вы получите Последнее изменение: информация справа под Связанные люди раздел. См. Следующий снимок экрана.


Вставьте имя пользователя, который в последний раз изменил текущую книгу с помощью определяемой пользователем функции

1: Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

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

Код VBA: вставить последнее измененное имя пользователя в Excel

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

3: Нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.

4. Выберите ячейку, в которой нужно разместить имя пользователя, введите формулу = LastAuthor () в панель формул, а затем нажмите Enter ключ. Затем в ячейку сразу же вставляется последнее измененное имя пользователя. Смотрите скриншот:


Легко вставляйте имя пользователя в ячейку, верхний или нижний колонтитул с помощью Kutools for Excel

Вы можете легко вставить имя пользователя в указанную ячейку, верхний или нижний колонтитул листа в Excel с помощью Вставить информацию о книге полезности Kutools for Excel. Пожалуйста, сделайте следующее.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Нажмите Кутулс Плюс > Workbook > Вставить информацию о книге. Смотрите скриншот:

2. в Вставить информацию о книге диалоговое окно, вам необходимо:

1). Выберите вариант в Информация .

2). Если вы хотите вставить имя пользователя в указанную ячейку, укажите эту ячейку в поле Диапазон коробка; для вставки имени пользователя в верхний или нижний колонтитул выберите заголовок or нижний колонтитул опцию.

3). Щелкните значок Ok кнопка. Смотрите скриншот:

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

  Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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