Макрос защита книги
· Ответы с готовыми решениями: Защита книги доброго времени суток. Вопрос. Запаролил книгу, но узнал что открыть ее не представляет никакой. · И есть книга Excel с 4-мя листами и разными названиями этих листов. Требуется следующее: Требуется следующее: 1 лист. Sub Unlock_Excel_Workbook() ' снятие защиты книги Excel t = Timer If UnlockWorkbook(ActiveWorkbook) Then MsgBox "Защита снята. Потребовалось времени: " & Format(Timer - t, "0.0 сек.") Else MsgBox "Не удалось снять защиту книги", vbCritical Макрос защиту на открытие не снимает. Он снимает защиту только самого экселя: защита книги, защита листа. Макрос для снятия защиты листа или книги Excel Sub Unlock_Excel_Worksheet() t = Timer If UnlockSheet(ActiveSheet) Then MsgBox "Защита снята. Если мы не сохраним, то защита не будет действовать при следующем открытии книги. Как использовать Для реализации этого макроса, Вам нужно скопировать и вставить его в код события Workbook_BeforeClose. · Мир MS Excel » Вопросы и решения » Вопросы по Excel » Защита Листов и Книги макросом (пароль на доступ к листу) Защита Листов и Книги макросом. Аналогичный макрос снимает защиту книги Excel: Sub Unlock_Excel_Workbook() ' снятие защиты книги Excel t = Timer If UnlockWorkbook(ActiveWorkbook) Then MsgBox "Защита снята. Прочитал данную тему, но не совсем понятно есть ли какая нибудь защита макроса от дурака, просто файл находиться в общем доступе и любой может зайти в "исходный текст" и испортить макрос. Заранее благодарен. Т.е. если установить таким образом защиту на лист и закрыть книгу, то при следующем открытии защиты этой уже не будет - останется лишь стандартная защита.