Для того чтобы лист был защищен и можно было выполнять макросы в код макроса надо добавить такие строчки

Worksheets("Имя листа").Unprotect Password:="password" 'Для выполнения макроса снимаем защиту с листа "приложение"

'Тут идет код основной части макроса, после завершения операций вставляем две строчки ниже

Worksheets("Имя листа").Range(Cells(i, k), Cells(j, l)).Locked = True 'Защищаем диапазон определяемый значениями i,j,k,l

Worksheets("Имя листа").Protect Password:="password" 'Для защиты от пользователей ставим защиту на лист "Имя листа". Устанавливаем пароль (password)

 

Advertisements