( ! ) Warning: Parameter 1 to CASDmoderator::onBeforeTopicUpdate() expected to be a reference, value given in /home/bitrix/www/bitrix/modules/main/classes/general/module.php on line 480
Call Stack
#TimeMemoryFunctionLocation
10.0001364624{main}( ).../index.php:0
20.06502892368CMain->IncludeComponent( ).../index.php:9
30.06512893112CBitrixComponent->includeComponent( ).../main.php:1071
40.06532898560CBitrixComponent->__includeComponent( ).../component.php:680
50.06532899296include( '/home/bitrix/www/bitrix/components/bitrix/forum/component.php' ).../component.php:605
60.08163501992CBitrixComponent->includeComponentTemplate( ).../component.php:416
70.08203503056CBitrixComponent->showComponentTemplate( ).../component.php:712
80.08203503056CBitrixComponentTemplate->IncludeTemplate( ).../component.php:764
90.08883832344CBitrixComponentTemplate->__IncludePHPTemplate( ).../component_template.php:884
100.08883832664include( '/home/bitrix/www/bitrix/components/bitrix/forum/templates/.default/read.php' ).../component_template.php:789
110.08883835280CMain->IncludeComponent( ).../read.php:3
120.08943847728CBitrixComponent->includeComponent( ).../main.php:1071
130.08963863848ForumTopicRead->executeComponent( ).../component.php:656
140.11914088592ForumTopicRead->__includeComponent( ).../class.php:70
150.11924091408include( '/home/bitrix/www/bitrix/components/bitrix/forum.topic.read/component.php' ).../component.php:605
160.12664274696ForumSetReadTopic( ).../component.php:309
170.12664274696CAllForumTopic::SetReadLabelsNew( ).../deprecated.php:315
180.12674275072CAllForumTopic::Update( ).../topic.php:738
190.12684276488Bitrix\Forum\Topic::update( ).../topic.php:255
200.12694278528ExecuteModuleEventEx( ).../topic.php:643
Страницы: 1 2 След.
RSS
VBA. Открыть ненадежную книгу (режим Protect View)
 
Взываю к коллективному разуму )

Исходные.
Папка "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. Изменил переменную (замечание ниже)
 
Виктор,
в коде ошибка
sPath <> sFldr
у меня файл, который с проводника открывается в режиме Защищенного просмотра с вопросом "Разрешить редактирование"
стандартный Workbooks.Open открывает без всяких вопросов и ЮзедРендж залетает в массив тоже без проблем
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Цитата
Книги создавались сторонним приложением
не имеет значения, как создавались

Цитата
Папка "test" добавлена в исключения защитника системы. Как я понимаю, если папка в исключениях, то и все ее содержимое в исключениях.
Вовсе нет. никакой связи.
Если речь по Защитника Windows - то он не связан никак с Office (по крайней мере, касательно этой темы)

Вероятная причина проблемы: в настройках безопасности Excel заданы ограничения
Решение проблемы: нажимаем в меню Excel Файл — Параметры — Центр управления безопасностью, и потом справа кнопку Параметры центра управления безопасностью ....
В появившемся окне в левом столбце есть пункты Надёжные расположения и Надёжные документы.
По очереди заходим в каждый из этих разделов, и ставим галочки «Отключить все надёжные расположения» и «Отключить надёжные документы».
Ну и на вкладке ЗАЩИЩЕННЫЙ ПРОСМОТР снимаем все галочки.
Теперь закрываем Excel, и пробуем снова запустить макрос.
Изменено: Игорь - 12.05.2020 04:12:42
Страницы: 1 2 След.
Читают тему (гостей: 1)
Наверх