Установка и снятие защиты листа с паролем

Автор snake980, 09.03.2012, 15:22

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

snake980

Подскажите, пожалуйста, макрос по снятию защиты перед выполнением макроса (нажатие кнопки) и установка защиты после его выполнения. Условие пароль защиты например "1111". Спасибо.

ambasad

установка
ActiveSheet.Protect Password:="11111", DrawingObjects:=True, Contents:=True, Scenarios:=True
снятие
ActiveSheet.Unprotect  Password:="11111"