Вход | Регистрация

1С:Предприятие :: 1С:Предприятие 8 общая

1c 8.3 и Excel.

1c 8.3 и Excel.
Я
   KonstantinK90
 
22.02.18 - 06:23
Добрый день! Подскажите как сделать? Как снять программно общий доступ книге. Как это делается в excel - вкладка - рецензирование - доступ книге - открывается окно "управление доступом к файлу" - и там снимаю галочку "разрешить изменять файл нескольким пользователям одновременно".

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

Спасибо!
 
 
   shadow_sw
 
1 - 22.02.18 - 06:27
ф=Ексель.Cells.Select//все выделяем 

Ексель.Selection.Locked=0//снимаем защиту 

Ексель.Range(Область).Locked=1// ставим где надо 

Ексель.ActiveSheet.Protect("ТутМегаПароль!!!!!",1,1,1)//защищаем лист
   shadow_sw
 
2 - 22.02.18 - 06:27
как пример
   KonstantinK90
 
3 - 22.02.18 - 07:23
Да в том то, и дело что я не могу снять пароль пока не отключу
 общий доступ
   KonstantinK90
 
4 - 22.02.18 - 07:25
Вот ошибка при снятии пароля: Ошибка при вызове метода контекста (Unprotect): Произошла исключительная ситуация (Microsoft Excel): Метод Unprotect из класса Worksheet завершен неверно
А после того как я снимаю общий доступ и по вторно загружаю все нормально загружается и пароль снимается (у меня в коде прописанно
)
   shadow_sw
 
5 - 22.02.18 - 07:34
(4) а файлу нужен общий доступ? или эта опция по умолчанию
   KonstantinK90
 
6 - 22.02.18 - 07:37
история такая мы высылаем прайс клиентам к экселе и ставим пароль не всем листе кроме столбца где клиент указывает количество. а когда обратно приходит этот прайс клиент ставит общий доступ и при загрузке выходит ошибка т.к. программа не может снять пароль пока стоит общий доступ
   shadow_sw
 
7 - 22.02.18 - 07:37
ActiveWorkbook.ExclusiveAccess
Aplication.DisplayAlerts = false

на соседнем форуме подглядел
   KonstantinK90
 
8 - 22.02.18 - 07:49
Aplication.DisplayAlerts = false не помогло
   KonstantinK90
 
9 - 22.02.18 - 07:49
таже ошибка
   mehfk
 
10 - 22.02.18 - 07:56
(0) Сделай запись макроса и посмотри код.
 
 Рекламное место пустует
   KonstantinK90
 
11 - 22.02.18 - 07:58
нельзя делать макрос когда стоит общий доступ!!!!
   shadow_sw
 
12 - 22.02.18 - 07:59
   Сияющий в темноте
 
13 - 22.02.18 - 09:21
Вы получили от клиента заполненный файл,а зачем вам снимать защиту?просто,читаем заполненню пользователем колонку и собираем заказ в базе,а дальше,эксель в топку,и менеджеры уже по базе данных работают
   Gbpltw
 
14 - 22.02.18 - 10:09
Можно открыть файл ОпенОфисом.... Мы так тесты "Профессионал" с дисков ИТС ломали ))
   Tatitutu
 
15 - 22.02.18 - 10:16
(14) я красивее тогда пропал
Макрос 22 символа
Alt+f11 вставить.выполнить.тест сдан на 5
   Михаил Козлов
 
16 - 22.02.18 - 11:31
Через ADO не пробовали?
   Tatitutu
 
17 - 22.02.18 - 15:30
If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess
End If
   Tatitutu
 
18 - 22.02.18 - 15:33
(11) "нельзя делать макрос когда стоит общий доступ!!!!"
ты просто не умеешь готовить(с)
в ТЕКУЩИЕ КНИГЕ да 
а кто мешает выполнить код из ДРУГОЙ книги по отношению к этой ?
см (17) все работает
   Михаил Козлов
 
19 - 22.02.18 - 17:02
(16)+ Быстрее на порядок: прайс с более 10 000 позиций (на 5 закладках) обрабатывается секунды (заполняется ТЧ заказа покупателя).

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует