Взываю к коллективному разуму )
Исходные.
Папка "test". В ней множество папок, в каждой из которых до 30 книг. Книги создавались сторонним приложением, многие из них открываются в режиме защищенного просмотра.
Папка "test" добавлена в исключения защитника системы. Как я понимаю, если папка в исключениях, то и все ее содержимое в исключениях.
Проблема.
Открывание макросом книг с Protect View приводит к ошибке - система считает, что она меня спасает от катастрофы.
ReadOnly:=True не помогает.
Можно ли обойти защиту? Нужно только открыть и взять в массив данные.
Примера для тестирования нет. Вернее, таких книг куча, но туда смотреть "низзя!", секреты.
Подойдет любая книга в режиме защищенного просмотра
P.S. Изменил переменную (замечание ниже)
Исходные.
Папка "test". В ней множество папок, в каждой из которых до 30 книг. Книги создавались сторонним приложением, многие из них открываются в режиме защищенного просмотра.
Папка "test" добавлена в исключения защитника системы. Как я понимаю, если папка в исключениях, то и все ее содержимое в исключениях.
Проблема.
Открывание макросом книг с Protect View приводит к ошибке - система считает, что она меня спасает от катастрофы.
Код |
---|
Sub test() Dim wBook As Workbook Dim sPath As String, sFName As String sPath = "D:\": sFName = "abc.xls" Set wBook = Workbooks.Open(Filename:=sPath & sFName, ReadOnly:=True) Set wBook = Nothing End Sub |
ReadOnly:=True не помогает.
Можно ли обойти защиту? Нужно только открыть и взять в массив данные.
Примера для тестирования нет. Вернее, таких книг куча, но туда смотреть "низзя!", секреты.
Подойдет любая книга в режиме защищенного просмотра
P.S. Изменил переменную (замечание ниже)