Добрый день! Подскажите как сделать? Как снять программно общий доступ книге. Как это делается в excel - вкладка - рецензирование - доступ книге - открывается окно "управление доступом к файлу" - и там снимаю галочку "разрешить изменять файл нескольким пользователям одновременно".

Как это сделать программно из 1с.

Спасибо!

ф=Ексель.Cells.Select;//все выделяем
Ексель.Selection.Locked=0;//снимаем защиту
Ексель.Range(Область).Locked=1;// ставим где надо
Ексель.ActiveSheet.Protect("ТутМегаПароль!!!!!",1,1,1);//защищаем лист

как пример

Да в том то, и дело что я не могу снять пароль пока не отключу
общий доступ

Вот ошибка при снятии пароля: Ошибка при вызове метода контекста (Unprotect): Произошла исключительная ситуация (Microsoft Excel): Метод Unprotect из класса Worksheet завершен неверно
А после того как я снимаю общий доступ и по вторно загружаю все нормально загружается и пароль снимается (у меня в коде прописанно
)

(4) а файлу нужен общий доступ? или эта опция по умолчанию

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

ActiveWorkbook.ExclusiveAccess
Aplication.DisplayAlerts = false

на соседнем форуме подглядел

Aplication.DisplayAlerts = false не помогло

таже ошибка

(0) Сделай запись макроса и посмотри код.

нельзя делать макрос когда стоит общий доступ!!!!

https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=54005

Вы получили от клиента заполненный файл,а зачем вам снимать защиту?просто,читаем заполненню пользователем колонку и собираем заказ в базе,а дальше,эксель в топку,и менеджеры уже по базе данных работают

Можно открыть файл ОпенОфисом.... Мы так тесты "Профессионал" с дисков ИТС ломали ))

(14) я красивее тогда пропал
Макрос 22 символа
Alt+f11 вставить.выполнить.тест сдан на 5

Через ADO не пробовали?

If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess
End If

(11) "нельзя делать макрос когда стоит общий доступ!!!!"
ты просто не умеешь готовить(с)
в ТЕКУЩИЕ КНИГЕ да
а кто мешает выполнить код из ДРУГОЙ книги по отношению к этой ?
см (17) все работает

(16)+ Быстрее на порядок: прайс с более 10 000 позиций (на 5 закладках) обрабатывается секунды (заполняется ТЧ заказа покупателя).