Как в Excel добавить автора документа: все способы от свойств файла до VBA

Зачем указывать автора в Excel и где это пригодится

Добавление информации об авторе в Excel — это не просто формальность, а инструмент для организации работы с данными. Представьте: вы получаете файл от коллеги, а через месяц нужно внести правки. Кому писать? Кто отвечает за актуальность цифр? Без указания автора разобраться сложно. Особенно критично это для корпоративных отчётов, где Excel используется как система документооборота.

В этой статье разберём все способы добавить автора — от базовых (через Свойства файла) до продвинутых (с помощью VBA). Каждый метод подходит для разных задач: где-то важно сохранить историю изменений, а где-то — автоматизировать ввод данных. Например, бухгалтеру удобно прописывать ФИО в ячейке листа, а аналитику — добавлять авторство через комментарии к формулам.

Важно: в Excel Online и мобильной версии часть функций ограничена. Мы отметим такие случаи отдельно.

Способ 1: Добавление автора через свойства файла

Самый универсальный метод — прописать автора в свойствах документа. Эти данные сохранятся даже при копировании файла и будут видны в проводнике Windows. Подходит для официальных отчётов, где требуется указать ответственное лицо.

Как это сделать:

  1. Откройте файл в Excel.
  2. Перейдите в Файл → Сведения → Свойства → Дополнительные свойства.
  3. Вкладка Документ: заполните поля Автор, Название, Тема.
  4. Нажмите ОК и сохраните файл (Ctrl + S).

⚠️ Внимание: Если файл уже сохранён в OneDrive или SharePoint, изменения в свойствах могут синхронизироваться с задержкой до 5 минут. Проверяйте актуальность данных через правый клик на файле → Свойства.

Заполнены все обязательные поля (Автор, Название)

Файл не открыт в режиме "Только чтение"

Используются реальные ФИО (не псевдонимы)

Сохранение выполнено после изменений-->

Способ 2: Автоматическое отображение автора в ячейке

Если нужно, чтобы имя автора появлялось прямо в таблице (например, в шапке отчёта), используйте функцию ПОЛЬЗОВАТЕЛЬ(). Она выводит имя пользователя Windows, под которым открыт Excel.

Примеры формул:

  • 📝 Простое имя: =ПОЛЬЗОВАТЕЛЬ()
  • 📅 Имя + дата: =ПОЛЬЗОВАТЕЛЬ() & ", " & ТЕКСТ(СЕГОДНЯ(); "дд.мм.гггг")
  • 🔄 Динамическое обновление: =ТЕКСТ(СЕЙЧАС(); "дд.мм.гггг чч:мм") & " | " & ПОЛЬЗОВАТЕЛЬ()

Важно: функция ПОЛЬЗОВАТЕЛЬ() берёт данные из настроек Windows, а не из Office 365. Если вы работаете под разными аккаунтами (например, домашний и рабочий), имя в ячейке будет меняться.

Формула Пример вывода Когда использовать
=ПОЛЬЗОВАТЕЛЬ() Иванов И.И. Для статичных отчётов
=ПОЛЬЗОВАТЕЛЬ() & " (вер. " & ТЕКСТ(СЕГОДНЯ();"мм.гг") & ")" Петров П.П. (вер. 05.23) Для версионирования файлов
=ЕСЛИ(ПОЛЬЗОВАТЕЛЬ()="Admin";"Черновик";"Одобрено") Черновик или Одобрено Для контроля статуса

Через свойства файла

В отдельной ячейке

В комментариях

Не указываю

Другой способ-->

Способ 3: Комментарии с авторством

Комментарии в Excel позволяют привязать авторство к конкретным данным. Это удобно для:

  • 🔍 Пояснений к формулам (например, почему использован коэффициент 1.2)
  • 📌 Отметок об изменениях (кто и когда внёс правку)
  • 🚨 Предупреждений (например, "Данные не проверены бухгалтерией")

Как добавить комментарий с автором:

  1. Выделите ячейку → правый клик → Вставить примечание.
  2. Введите текст. Автор добавится автоматически (берётся из настроек Office).
  3. Для редактирования: правый клик на ячейке → Изменить примечание.

⚠️ Внимание: В Excel Online комментарии отображаются иначе — как потоковые обсуждения (как в Google Sheets). Чтобы увидеть классические примечания, откройте файл в десктопной версии.

Как изменить имя автора в комментариях?

По умолчанию Excel берёт имя из профиля Microsoft 365. Чтобы его изменить:

1. Перейдите на portal.office.com.

2. Кликните на аватар в правом верхнем углу → Мой профиль.

3. В разделе Личная информация отредактируйте поле Имя.

4. Перезапустите Excel — изменения применятся к новым комментариям (старые останутся без изменений).

Способ 4: Макросы для автоматического добавления автора

Если вам нужно добавлять автора в сотни файлов или по шаблону, поможет VBA. Например, этот код вставит имя пользователя в ячейку A1 при открытии файла:

Private Sub Workbook_Open()

Sheets("Лист1").Range("A1").Value = "Отчёт подготовлен: " & Application.UserName & ", " & Format(Date, "dd.mm.yyyy")

End Sub

Как это работает:

  1. Нажмите Alt + F11, чтобы открыть редактор VBA.
  2. В окне Project найдите ThisWorkbook → дважды кликните.
  3. Вставьте код выше.
  4. Сохраните файл как .xlsm (с поддержкой макросов).

⚠️ Внимание: Макросы блокируются по умолчанию в файлах из интернета. Чтобы разрешить выполнение, перейдите в Файл → Параметры → Центр управления безопасностью → Параметры центра... → Включить все макросы (не рекомендуется для недоверенных источников!).

Способ 5: Использование заголовков и колонтитулов

Для печатных версий отчётов удобно добавлять автора в колонтитулы. Эти данные будут отображаться на каждой странице при печати или экспорте в PDF.

Инструкция:

  1. Перейдите в Вставка → Колонтитулы (или Разметка страницы → Колонтитулы в старых версиях).
  2. Кликните на верхний или нижний колонтитул.
  3. В панели Конструктор выберите Автор из выпадающего списка Элементы колонтитулов.
  4. Добавьте дополнительный текст (например, "Ответственный: [Автор]").

Пример оформления:

📄 Отчёт по продажам | 👤 &[Автор] | 📅 &[Дата]

⚠️ Внимание: В Excel Online редактирование колонтитулов недоступно. Используйте десктопную версию или Excel для Mac.

Проблемы и решения при добавлении автора

Иногда Excel ведёт себя неожиданно. Разберём типичные ошибки и как их исправить:

Проблема Причина Решение
Имя автора не сохраняется в свойствах файла Файл открыт в режиме совместимости (.xls) Сохраните как .xlsx или .xlsm
Функция ПОЛЬЗОВАТЕЛЬ() возвращает пустое значение Не заполнено поле Имя пользователя в настройках Excel Перейдите в Файл → Параметры → Общие и заполните поле
Комментарии отображаются без имени автора Файл создан в старой версии Excel (до 2007) Скопируйте данные в новый файл и сохраните в современном формате

Если ни один из способов не сработал, проверьте:

  • 🔒 Права доступа к файлу (возможно, он защищён от изменений).
  • 📋 Формат файла (для макросов нужен .xlsm).
  • 🔄 Обновления Office (в старых версиях могут быть баги).

FAQ: Частые вопросы по добавлению автора в Excel

Можно ли добавить несколько авторов в один файл?

Да, но способы зависят от задачи:

  • В свойствах файла поле Автор одно, но можно добавить несколько имён через запятую.
  • В комментариях каждый автор будет отображаться отдельно (если файл редактируют несколько человек).
  • В ячейках можно создать список авторов через функцию =ТЕКСТСЦЕПИТЬ().
Как сделать так, чтобы автор автоматически добавлялся при изменении ячейки?

Используйте VBA. Пример кода для отслеживания изменений:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B2:B100")) Is Nothing Then

Target.Offset(0, 1).Value = "Изменил: " & Application.UserName & ", " & Format(Now, "dd.mm.yyyy hh:mm")

End If

End Sub

Этот код будет записывать автора и время изменения в соседнюю ячейку справа при редактировании диапазона B2:B100.

Почему в свойствах файла отображается старое имя автора?

Excel кэширует метаданные. Чтобы обновить:

  1. Откройте файл.
  2. Перейдите в Файл → Сведения → Свойства → Дополнительные свойства.
  3. Удалите старое имя в поле Автор и введите новое.
  4. Сохраните файл (Ctrl + S) и закройте его.
  5. Проверьте изменения через правый клик на файле в проводнике → Свойства → Подробно.
Как добавить автора в защищённый файл?

Если файл защищён паролем на редактирование:

  1. Снимите защиту (Рецензирование → Снять защиту листа).
  2. Добавьте автора любым из описанных способов.
  3. Верните защиту (Рецензирование → Защитить лист).

Если вы не знаете пароль, создайте копию файла (Файл → Сохранить как) и работайте с ней.

Можно ли экспортировать список авторов из файла?

Да, но только для комментариев:

  1. Нажмите Файл → Сведения → Показать все свойства.
  2. Скопируйте данные из поля Автор (если нужно имя из свойств).
  3. Для комментариев: используйте VBA:
Sub ExportComments()

Dim ws As Worksheet

Dim cmt As Comment

Dim output As String

For Each ws In ThisWorkbook.Worksheets

For Each cmt In ws.Comments

output = output & cmt.Parent.Address & ": " & cmt.Author & " - " & cmt.Text & vbCrLf

Next cmt

Next ws

Open "C:\Temp\Comments.txt" For Output As #1

Print #1, output

Close #1

End Sub

Этот код сохраняет все комментарии с авторами в текстовый файл.