"Защитить книгу и дать общий доступ" VBA.
Michael_S
Дата: Четверг, 17.11.2016, 09:41 |
Сообщение № 1
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация:
373
±
Замечаний:
0% ±
Excel2016
Всем привет! У меня проблема: макросом нужно защитить книгу и дать общий доступ - кнопка на рисунке. Макрорекодер не пишет. Счас могу отдельно защитить книгу и дать общий доступ без защиты; но мне нужно, что б общий доступ можно было снять только с паролем. Может кто помочь? Буду благодарен.
Всем привет! У меня проблема: макросом нужно защитить книгу и дать общий доступ - кнопка на рисунке. Макрорекодер не пишет. Счас могу отдельно защитить книгу и дать общий доступ без защиты; но мне нужно, что б общий доступ можно было снять только с паролем. Может кто помочь? Буду благодарен. Michael_S
Сообщение отредактировал Michael_S - Четверг, 17.11.2016, 09:41
Ответить
Сообщение Всем привет! У меня проблема: макросом нужно защитить книгу и дать общий доступ - кнопка на рисунке. Макрорекодер не пишет. Счас могу отдельно защитить книгу и дать общий доступ без защиты; но мне нужно, что б общий доступ можно было снять только с паролем. Может кто помочь? Буду благодарен. Автор - Michael_S Дата добавления - 17.11.2016 в 09:41
SLAVICK
Дата: Четверг, 17.11.2016, 10:30 |
Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация:
766
±
Замечаний:
0% ±
2019
у меня записал такое: [vba]Код
ActiveWorkbook.ProtectSharing Filename:="D:\temp\Книга17.xlsx", Password:="1111", writeRespassword:="2222"
[/vba] -оно?
у меня записал такое: [vba]Код
ActiveWorkbook.ProtectSharing Filename:="D:\temp\Книга17.xlsx", Password:="1111", writeRespassword:="2222"
[/vba] -оно?SLAVICK
Иногда все проще чем кажется с первого взгляда.
Ответить
Сообщение у меня записал такое: [vba]Код
ActiveWorkbook.ProtectSharing Filename:="D:\temp\Книга17.xlsx", Password:="1111", writeRespassword:="2222"
[/vba] -оно?Автор - SLAVICK Дата добавления - 17.11.2016 в 10:30
Michael_S
Дата: Четверг, 17.11.2016, 12:34 |
Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация:
373
±
Замечаний:
0% ±
Excel2016
Чуть позже попробую, счас негде. Все равно спасибо!
Чуть позже попробую, счас негде. Все равно спасибо! Michael_S
Ответить
Сообщение Чуть позже попробую, счас негде. Все равно спасибо! Автор - Michael_S Дата добавления - 17.11.2016 в 12:34
Michael_S
Дата: Среда, 23.11.2016, 08:37 |
Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация:
373
±
Замечаний:
0% ±
Excel2016
Забыл отписаться, извините.... Да, оно.
Забыл отписаться, извините.... Да, оно.Michael_S
Ответить
Сообщение Забыл отписаться, извините.... Да, оно.Автор - Michael_S Дата добавления - 23.11.2016 в 08:37