Создана книга Excel 2013 vba для пользователей в «Защищенном представлении»

Question

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

With wkbOutputBook 
.CheckCompatibility = False 
.Save 
.Close 
End With 

При открытии worksbook, Excel говорит:

Protected VIEW Управление обнаружил проблему с этим файлом. Редактирование может нанести вред вашему компьютеру. Нажмите для получения более подробной информации.

OK Я знаю, что это значит, по неизвестным причинам Excel считает, что этот файл был отправлен через Outlook или загружен из Интернета. Но это не так. Я попробовал следующее:

Сохранить в разных версиях/форматов

Используйте Сохранить как вместо Сохранить

Явное отключить защищенный режим. Защищенный режим - это не то же самое, что и Protected View.

Наверняка «Мои документы» не считаются «небезопасным» местом.

Спасибо.

Answer 1

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

Dim path As String 

path = "full-path-with-filename-and-extension" 

With wkbOutputBook 
    .SaveCopyAs (path) 
    SetAttr (path), vbReadOnly 
    .Close 
End With 

Вы пытаетесь метод .SaveCopyAs (путь) без строки кода с участием только настройка чтения, но я предполагаю, что это не поможет.

В каком формате вы пытаетесь сохранить файл как? Возникает ли проблема только на вашем ПК или вы тестировали свои макро/выходные файлы на других ПК? Проблема может включать в себя системный реестр.