работа Макросов в защищенной книге.

[Rom1k06]

Как сделать так чтобы в защищенной книге работал макрос..
У меня в фаеле 2 макроса.
Один обрабатывает данные из этогоже файла, а второй из другова но в этойже папке.и как раз второй неработает пишет что надо разблокироваль лист..

И как еще открыть общий доступ к этому файлу?
На панели инстрментов пункт "доступ к книге неакивен"?
Видет подобную тему на форуме но поиск не дал результатов..

[SAS888]

Если в книге с защищенными листами защита без пароля, или Вы его знаете, то задачу можно решить так:
В модуль защищенной книги вставить:

Private Sub Workbook_Open()

    Dim Sh As Worksheet, i As Integer
    For i = 1 To Sheets.Count
        With Sheets(i)
            .Unprotect 'Password (если есть)
            .Protect Scenarios:=True, UserInterfaceOnly:=True
        End With
    Next
        
End Sub

Опция UserInterfaceOnly:=True позволит макросам вносить изменения в защищенные ячейки листа. В то время как пользователь не будет иметь такой возможности.
Естественно, цикл нужно организовывать только по тем листам, которые требуется защитить.

[Rom1k06]

Спасибо сеня буду пробывать..
А что с общим доступом?

[SAS888]

Если защищена книга, попробуйте снять эту защиту, затем
Сервис-Защита-Защитить книгу и дать общий доступ.
P.S. Если поможет, то эти действия также можно вставить в код обработки события открытия книги.

[tolikman]

кстати на счет защиты книги с макросом:
я однажды столкнулся (office 2007): есть защищенная книга в которой должен сработат макрос на открытие книги и разблокировать ее на некоторое время... когда открываешь книгу вручную - то офис пишет что там могут быть "зловредные коды" и не какие настройки безопасности не помогали. Пока вручную не разблокируеш книгу, сохранишь, закроешь, и снова откроешь - в этой книге не один макрос не заработает. НО, если открываешь такую книгу макросом - то проблем не возникало.

[valerij]

Сообщение от SAS888

Если в книге с защищенными листами защита без пароля.

SAS!
А помнится, такое было у меня и по Вашему совету, при открытии книги, сначало сбрасывается защита, а потом ставится и далее стало все ОК!

Private Sub Workbook_Open()
            Run "UnProtectAllSheets" 'Сброс защиты
            Run "ProtectAllSheets" 'Установка защиты