Восстановите защиту листа при сохранении и закрытии

В настоящее время у меня есть код VBA, который автоматически удаляет все листы в моем файле Excel 2016 по имени пользователя. Введите описание изображения здесь

В настоящее время, когда я открываю файл, он запрашивает пароль. Я не хочу, чтобы это запрашивало пароль, я просто хочу, чтобы он защищал ВСЕ страницы, если имя пользователя, открывающего его, совпадает с тем, что будет в коде.

Скажем, я уполномочен вносить изменения в книгу, и я открываю ее, и ВСЕ страницы не защищены. Я вношу некоторые изменения, но хочу автоматически восстановить защиту, которую я настроил на каждом листе, когда я сохраняю внесенные изменения.

Конечный пользователь, который будет заполнять листы, не имеет доступа к изменению, все открывает файл и всю защиту, которую я установил на месте и активен. В настоящее время я использую этот код, но он не работает.

Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("ADD-EXTEND").Protect Password:="SPAR" ActiveWorkbook.Save End Sub 

PS Этот подканал находится ниже кода, чтобы разблокировать листы в этой книге?

  • Excel автоматически добавляет дополнительную строку с формулами для введенного количества лет
  • Проблемы с макросами Excel 2010
  • VBA Excel 2007 помогает ускорить код, чтобы скрыть строки
  • Как вводить только уникальные значения в столбце Excel 2007
  • Excel: переносная формула для ссылки на предыдущий (относительный) рабочий лист
  • Excel. Создайте текстовый файл, названный по имени ячейки, содержащей другие данные ячейки.
  • Вычисление среднего числа блоков с переменным размером в столбце?
  • Как повторить «диапазон копирования (A1: A5) в диапазон B с преобразованием (столбец в строку)?
  • One Solution collect form web for “Восстановите защиту листа при сохранении и закрытии”

    Снимок экрана ниже должен быть достаточно, чтобы вы начали, это довольно понятно:

    excel_protect_worksheet_on_close

    Interesting Posts

    Ошибка Ubuntu: нет кандидата ver

    XEN 4.1.3 на OpenSuSE 12.2, не видя клавиатуры Dell XPS 1330

    Как настроить беспроводную сеть как приватную, а не публичную?

    Как исследовать больше настроек по умолчанию для настройки на OS X?

    Как узнать, какой ключ продукта использовался для активации Windows?

    Как установить Windows 7 из сети?

    Команда изменения Mac OS для управления ключом

    Как диагностировать нагрузку на предварительную операционную систему или проблему с оборудованием

    Каковы преимущества двухъядерного процессора в четырехъядерном процессоре на настольном ПК?

    Будет ли эта стратегия работать с Windows 10?

    Как сделать раскрывающийся список «Проверка данных» исключать пробелы?

    Как восстановить значок жесткого диска? Windows 7

    Windows 10 numlock автоматически отключается через 5 секунд бездействия

    Как удалить английский (США) из Windows 8.1?

    Где хранится информация о положении окна?

    Давайте будем гением компьютера.