Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Макрос по регистрации изменений

Автор Ingvar, 03.05.2011, 14:11

« назад - далее »

Ingvar

#15
Цитата: Andrey Lenets от 05.05.2011, 09:49
в защищенной книге нужно знать пароль, чтобы отключить общий доступ и очистить журнал!  :P

Хм.. может не в той последовательности делаю ))) но установить запрет с паролем не получается ))) чичас по другому попробую..
В общем изначально если ставить общий доступ не через "Доступ к книге" получаем нужный результат(ОБщий доступ с изменениями и пароль).(Через защитить книгу и дать общий доступ)

PS А еще как макросом подредактировать настройки вкладки "Подробнее" например чтобы изменения сохранялись каждые 5 минут.
хранилисть не 30 дней а больше и т.п.?
Хм.. часть опций нашел :)))
    With ActiveWorkbook
        .KeepChangeHistory = True
        .ChangeHistoryDuration = 9999
        .AutoUpdateFrequency = 5
        .AutoUpdateSaveChanges = True
    End With

PSS  В связи с этим вопрос как это сделать макросом?
ActiveWorkbook.ProtectSharing Filename ... дает защищенный доступ но не устанавливает пароль.
Т.е осталось как-то макросом зафигачить пароль..
Вот такой код думаю должен пойти)))

ActiveWorkbook.ProtectSharing Filename := _"C:\Доступ.xls"
    With ActiveWorkbook
        .KeepChangeHistory = True
        .ChangeHistoryDuration = 9999
        .AutoUpdateFrequency = 5
        .AutoUpdateSaveChanges = True
    End With


Andrey Lenets

Цитата: Ingvar от 05.05.2011, 09:56
PSS  В связи с этим вопрос как это сделать макросом?
ActiveWorkbook.ProtectSharing Filename ... дает защищенный доступ но не устанавливает пароль.
Т.е осталось как-то макросом зафигачить пароль..
но ведь есть справка! там написано как используется метод ProtectSharing
expression.ProtectSharing(Filename, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword)

Ingvar

Цитата: Andrey Lenets от 05.05.2011, 10:38
Цитата: Ingvar от 05.05.2011, 09:56
PSS  В связи с этим вопрос как это сделать макросом?
ActiveWorkbook.ProtectSharing Filename ... дает защищенный доступ но не устанавливает пароль.
Т.е осталось как-то макросом зафигачить пароль..
но ведь есть справка! там написано как используется метод ProtectSharing
expression.ProtectSharing(Filename, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword)
Как то .... :-[ наверное магнитные бури ;)

)))) Точно ))) есть справка ;)


Alex_ST

А вот и примерчик с защитой режима общего доступа и журнала истории изменений от шаловливых ручонок "исказителей истории"
С уважением, Алексей