Ако сте разпространявали работни книги на Excel със защитени листове, вероятно ще получите обратно работните книги с листовете, които са все още защитени. Често трябва да премахнете защитата на работните листове в работна книга, преди да продължите работата си. Ако установите, че непрекъснато премахвате защитата на работни листове, този макрос може да е само билетът.
Как работи макросът
Кодът се задейства от събитието Open на работната книга. Когато отворите работна книга, това събитие се задейства, изпълнявайки кода в него. Този макрос автоматично премахва защитата на посочения лист с дадена парола, когато работната книга се отвори:
Частна под работна книга_Open()
„Стъпка 1: Защитете листа с парола
Sheets("Sheet1"). Unprotect Password:="RED"
Край под
Макросът изрично наименува листа, който искате да премахнете защитата — в този случай Sheet1. След това предава паролата, необходима за премахване на защитата на листа.
Паролите на Excel са чувствителни към малки и големи букви, така че обърнете внимание на точната парола и главни букви, които използвате.
Как да използвате макроса
За да приложите този макрос, трябва да го копирате и поставите в прозореца с код на събитието Workbook_Open. Поставянето на макроса тук му позволява да се изпълнява всеки път, когато работната книга се отвори:
Активирайте редактора на Visual Basic, като натиснете Alt+F11.
В прозореца на проекта намерете името на вашия проект/работна книга и щракнете върху знака плюс до него, за да видите всички листове.
Щракнете върху Тази работна книга.
В падащия списък Събитие изберете Отворено събитие.
Въведете или поставете кода в новосъздадения модул, като промените името на листа (ако е необходимо) и паролата.
Въведете кода си в събитието Workbook Open.