Как изменить автора файла Excel: 5 работающих способов (включая скрытые)

Вот код макроса, который меняет автора на указанное вами имя:

Sub ChangeAuthorInFiles()
Dim folderPath As String
Dim fileName As String
Dim wb As Workbook
Dim newAuthor As String

' Укажите путь к папке с файлами
folderPath = "C:\Путь\к\вашей\папке\"
' Укажите нового автора
newAuthor = "Новое имя автора"

' Отключаем обновление экрана для ускорения
Application.ScreenUpdating = False

' Получаем первый файл в папке
fileName = Dir(folderPath & ".xls")

Do While fileName <> ""
' Открываем файл в фоновом режиме
Set wb = Workbooks.Open(folderPath & fileName, False, True)

' Меняем свойства автора
With wb.BuiltinDocumentProperties
.Item("Author").Value = newAuthor
.Item("Last Author").Value = newAuthor
End With

' Сохраняем и закрываем файл
wb.Close SaveChanges:=True
' Берём следующий файл
fileName = Dir()
Loop

' Включаем обновление экрана
Application.ScreenUpdating = True
MsgBox "Готово! Автор изменён в " & Dir(folderPath & ".xls") & " файлах.", vbInformation
End Sub

Как использовать этот макрос:

1. Откройте Excel и нажмите Alt + F11, чтобы открыть редактор VBA.
2. Вставьте код выше в новый модуль (Insert → Module).
3. Измените переменные:
   • folderPath — укажите путь к папке с вашими файлами.
   • newAuthor — введите новое имя автора.

⚠️ Внимание: Этот макрос перезаписывает все файлы в папке без предупреждения. Перед запуском:

• 📂 Создайте резервную копию папки.
• 🔍 Проверьте, что в папке нет важных файлов других форматов (например, .pdf или .docx).
• 🛡️ Убедитесь, что макросы разрешены в настройках Excel (Файл → Параметры → Центр управления безопасностью → Параметры центра управления безопасностью → Настройки макросов).

Раз в неделю|Раз в месяц|Несколько раз в год|Никогда не менял(а)|Не знаю, что это такое

-->

Способ 4: Настройка автора по умолчанию в параметрах Office

Если вы хотите, чтобы все новые файлы Excel автоматически создавались с правильным автором, можно настроить это в параметрах Office. Этот метод не требует правки реестра и подходит для пользователей без административных прав.

Инструкция для Excel 2016-2023:

1. Откройте любой файл Excel (или создайте новый).
2. Перейдите в Файл → Параметры (внизу левого меню).
3. Выберите раздел Общие.
4. В блоке Личная настройка Microsoft Office найдите поле Имя пользователя.
5. Введите новое имя автора (например, Петров П.П. (Финансовый отдел)).
6. Нажмите OK и перезапустите Excel.

⚠️ Внимание: В корпоративных версиях Office 365 это поле может быть заблокировано политиками домена. В этом случае:

• 🔑 Попробуйте метод с реестром (если у вас есть права администратора).
• 📧 Обратитесь в службу поддержки вашей компании с запросом на изменение имени пользователя в Active Directory.
• 🖥️ Используйте макрос для изменения автора в уже существующих файлах.

Этот способ не меняет автора в уже созданных файлах — только в новых. Если вам нужно обновить существующие документы, комбинируйте его с первым методом или макросами.

Способ 5: Использование PowerShell для массового изменения (для IT-специалистов)

Если вам нужно изменить автора в тысячах файлов или интегрировать это в скрипт автоматизации, можно использовать PowerShell. Этот метод подходит для системных администраторов или пользователей, знакомых с командной строкой.

Вот скрипт, который рекурсивно обходит папку и меняет автора во всех файлах .xlsx и .xlsm:

$folderPath = "C:\Путь\к\папке\"
$newAuthor = "Новое имя автора"

Загружаем сборку для работы с Office
Add-Type -AssemblyName "Microsoft.Office.Interop.Excel"

Получаем все файлы Excel в папке и подпапках
$files = Get-ChildItem -Path $folderPath -Recurse -Include .xlsx, .xlsm

foreach ($file in $files) {
try {
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$workbook = $excel.Workbooks.Open($file.FullName)

# Меняем свойства автора
$workbook.BuiltinDocumentProperties.Item("Author").Value = $newAuthor
$workbook.BuiltinDocumentProperties.Item("Last Author").Value = $newAuthor

# Сохраняем и закрываем
$workbook.Save()
$workbook.Close()
$excel.Quit()

Write-Host "Автор изменён в файле: $($file.FullName)"
}
catch {
Write-Host "Ошибка при обработке файла $($file.FullName): $_" -ForegroundColor Red
}
finally {
# Освобождаем COM-объекты
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
[System.GC]::Collect()
[System.GC]::WaitForPendingFinalizers()
}
}

Чтобы запустить этот скрипт:

1. Скопируйте код в Блокнот и сохраните с расширением .ps1 (например, change_author.ps1).
2. Измените переменные $folderPath и $newAuthor.
3. Запустите PowerShell от имени администратора.
4. Введите команду:

   Set-ExecutionPolicy RemoteSigned -Scope CurrentUser

   (это разрешит выполнение скриптов).

5. Запустите скрипт:

   .\change_author.ps1

⚠️ Внимание: Этот скрипт:

• 🐢 Работает медленно на больших файлах (по несколько секунд на документ).
• 🔄 Не обрабатывает файлы, открытые другими пользователями.
• 🛡️ Требует установленного Excel на компьютере (не работает с Excel Online).

Частые ошибки и как их избежать

При изменении автора в Excel пользователи часто сталкиваются с типичными проблемами. Вот самые распространённые ошибки и способы их решения:

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

• 📌 Версию вашего Excel: некоторые способы не работают в Excel Online или мобильной версии.
• 🔐 Права доступа: в корпоративных сетях администраторы могут блокировать изменение метаданных.
• 📊 Формат файла: в старых форматах (.xls) свойства автора хранятся иначе, чем в новых (.xlsx).

Sub CreateFileWithCustomAuthor()
Dim newWorkbook As Workbook
Set newWorkbook = Workbooks.Add

' Меняем автора для нового файла
With newWorkbook.BuiltinDocumentProperties
.Item("Author").Value = "Ваше имя"
.Item("Company").Value = "Ваша компания"
End With

' Сохраняем файл
newWorkbook.SaveAs "C:\Путь\к\файлу.xlsx"
newWorkbook.Close
End Sub