Перейти к основному содержанию
 

Как установить пароль для защиты скрытого листа в Excel?

Автор: Сяоян Последнее изменение: 2024 июля 09 г.

Если у вас есть книга, которая содержит некоторые важные скрытые рабочие листы, и вы не разрешаете другим показывать их. Теперь вам нужно установить пароль, чтобы полностью защитить скрытые рабочие листы, когда другие пользователи отображают их, они должны ввести пароль. Есть ли у вас какие-либо способы быстро и легко справиться с этой задачей в Excel?

Установите пароль для защиты скрытых листов с помощью функции VeryHidden

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

Защитите несколько листов одновременно с помощью Kutools for Excel


Установите пароль для защиты скрытых листов с помощью функции VeryHidden

Обычно вы можете использовать функцию VeryHidden, чтобы сначала скрыть рабочие листы, а затем установить для них пароль, выполните следующие действия:

1. Откройте книгу и удерживайте Alt + F11, чтобы открыть Окно Microsoft Visual Basic для приложений.

2. В Окно Microsoft Visual Basic для приложений, нажмите Посмотреть > Обозреватель проекта и Окно свойств to отображать их панели.

нажмите Вид > Обозреватель проектов и Окно свойств, чтобы отобразить панели.

3. А потом в Проект-VBAProject панели, выберите лист, который вы хотите скрыть, и в Объекты панели, щелкните раскрывающийся список из Видимый для выбора кслшитверихидден вариант, см. снимок экрана:

выберите xlSheetVeryHidden на панели «Свойства»

4. Сделав рабочий лист очень скрытым, вы можете установить пароль для его защиты. в Окно Microsoft Visual Basic для приложений, нажмите Вставить > Модули чтобы открыть пустой модуль, а затем щелкните Инструменты > Свойства VBAProject, см. снимок экрана:

нажмите Инструменты > Свойства проекта VBA

5. Затем в выскочившем Свойства VBAProject-Project диалоговое окно, нажмите Protection вкладку, а затем проверьте Заблокировать проект для просмотра поле, наконец, введите и подтвердите пароль в Пароль для просмотра свойств проекта раздел, см. снимок экрана:

установить параметры в диалоговом окне

6. Затем нажмите OK кнопку, чтобы выйти из этого диалогового окна, и закройте Окно Microsoft Visual Basic для приложений.

7. Сохраните книгу как Excel Macro-Enabled Workbook отформатируйте и закройте его, чтобы сработала защита паролем.

Сохраните книгу в формате Excel Macro-Enabled Workbook.

8. В следующий раз, когда вы откроете эту книгу и захотите сделать очень скрытые листы видимыми, вам будет предложено ввести пароль. Смотрите скриншот:

сделать видимыми самые скрытые листы, вас попросят ввести пароль


Демонстрация: установка пароля для защиты скрытых листов

 
скриншот kutools для Excel AI

Разблокируйте магию Excel с помощью Kutools AI

  • Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
  • Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
  • VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
  • Интерпретация формулы: Легкое понимание сложных формул.
  • Перевод текста: преодолевайте языковые барьеры в своих таблицах.
Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!

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

Чтобы установить пароль для защиты скрытых листов, я также могу рассказать вам о коде VBA.

1. Скройте один лист, который вы хотите защитить.

2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

3. Потом выберите Эта рабочая тетрадь слева Обозреватель проекта, дважды щелкните его, чтобы открыть Модули, а затем скопируйте и вставьте следующий код VBA в пустой модуль:

Код VBA: установить пароль для защиты скрытого листа

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

скопируйте и вставьте код в модуль ThisWorkbook

Внимание: В приведенном выше коде Sheet1 xSheetName = "Лист1" скрипт - это скрытое имя рабочего листа, который вы хотите защитить, и 123456 в Если response = "123456" Тогда script - это пароль, который вы установили для скрытого листа. Вы можете изменить их по своему усмотрению.

4. Теперь, когда вы хотите показать скрытый лист, появится диалоговое окно, позволяющее ввести пароль. И это окно с подсказкой будет появляться каждый раз, когда вы нажимаете, чтобы показать скрытый лист.

сделать видимыми самые скрытые листы, вас попросят ввести пароль


Защитите несколько листов одновременно с помощью Kutools for Excel

Если вы хотите защитить несколько выбранных или все листы книги одновременно, обычно вам нужно защищать один за другим вручную в Excel. Но если у вас есть Kutools for Excel, С его Защитить лист утилиту, вы можете защитить их одним щелчком мыши.

Kutools for Excel предлагает более 300 расширенных функций для оптимизации сложных задач, повышения креативности и эффективности. Улучшено возможностями искусственного интеллектаKutools точно автоматизирует задачи, упрощая управление данными. Подробная информация о Kutools для Excel...         Бесплатная пробная версия...

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс Плюс > Защитить лист, см. снимок экрана:

нажмите кнопку Защитить рабочий лист функция kutools

2. В Защитить лист В диалоговом окне все листы в книге перечислены в поле со списком, выберите листы, которые вы хотите защитить. Смотрите скриншот:

выберите рабочие листы, которые вы хотите защитить

3, Затем нажмите OK, в следующем диалоговом окне введите свой пароль и введите его еще раз, затем нажмите OKпоявится другое окно с подсказкой, чтобы напомнить вам, сколько листов было защищено.

введите пароль и повторите его

4. Затем нажмите OK , чтобы закрыть диалоговые окна, и все рабочие листы в книге были защищены одним паролем.

Примечание: Если вы хотите снять защиту со всех листов сразу, вам просто нужно нажать Кутулс Плюс > Снять защиту листа, и введите свой пароль, чтобы снять защиту.

нажмите Kutools Plus > Снять защиту с листа, чтобы снять защиту

 Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!


Статьи по теме:

Как защитить сразу несколько листов в Excel?

Как установить пароль для защиты книги?

Как защитить / заблокировать код VBA в Excel?

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!