Как создать защиту паролем с помощью макроса
Хотите, чтобы все листы в выбранной вами папке были защищены паролем с помощью макроса? Это может быть полезно, если у вас слишком много проблем с защитой рабочих листов по отдельности или если вы хотите защитить все книги в каталоге автоматически. Используйте следующий макрос, чтобы назначить пароль «защиты» для всех листов в активной папке:
Sub AllSchuetzen ()
Тусклый лист как рабочий лист
Для каждого листа в ActiveWorkbook.
Blatt.Protect («защита»)
Следующий лист
Конец подписки
Вместо текста «Schutz» используйте пароль по вашему выбору. Конечно, этот программный код имеет смысл только в том случае, если вы вводите его вне книги, в которой вы создаете защиту. В противном случае каждый пользователь может прочитать пароль в исходном тексте VBA.
Чтобы иметь возможность что-то изменить в защищенных листах, вам необходимо снять защиту. Вы можете сделать это вручную с помощью команды ДОПОЛНИТЕЛЬНАЯ - ЗАЩИТА - ОТМЕНА ЗАЩИТЫ ЛИСТОВ. Эта команда доступна только в том случае, если текущий рабочий лист действительно защищен.
Если вы хотите снова освободить все защищенные листы с помощью макроса, используйте следующий программный код:
Sub AllExposure ()
Тусклый лист как рабочий лист
Для каждого листа в ActiveWorkbook.
Blatt.Unprotect («защита»)
Следующий лист
Конец подписки
