☰

Как удалить предупреждение инспектора документов в Excel

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2016
Как удалить предупреждение инспектора документов в Excel

Я запускаю скрипты VBA для ряда файлов типа XLSM. Пока я пытаюсь автоматизировать свои процессы, меня останавливает это предупреждение об инспекторе документов, из-за чего мне приходится нажимать OK для каждого файла.

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

Предупреждающее сообщение

Ошибка инспектора документов

Будьте осторожны! Части вашего документа могут содержать личную информацию, которую не может удалить инспектор документов.

решение1

Возможные решения "Будьте осторожны! Части вашего документа могут содержать личную информацию, которую не может удалить инспектор документов." предупреждающее сообщение.

УдалятьИнспектор документовпредупреждение вЭксель 2016илиЭксель 2013вы можете проверить две вещи

  • Идти кФайлв верхнем левом углу,
  • затемПараметры > Центр управления безопасностью > Настройки центра управления безопасностью > Параметры конфиденциальности
  • затемснять отметкуфлажок с надписью "Удалить личную информацию из свойств файла при сохранении",
  • затем ударилХОРОШО.

Источник

Или

  • Идти кФайл > Информация
  • и нажмите "Разрешите сохранить эту информацию в вашем файле".

При следующем сохранении предупреждения больше не будет.

Источник

решение2

Мое решение

Вместо того, чтобы отключитьИнспектор документовчто кажется сложным для выполнения в VB, я просто блокирую само сообщение. Мне не важен исходный файл, я просто хочу без проблем скопировать из него данные, так что в моем случае это сработает просто отлично.

Добавив этот код в начало моего кода, я больше не получаюИнспектор документовпредупреждение:

'Disable privacy settings warning
Application.DisplayAlerts = False

решение3

откройте документ > alt+f11 > Module Thisworkbook введите следующее:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Application.DisplayAlerts = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.DisplayAlerts = False
End Sub

Связанный контент