Перейти до основного матеріалу

Як встановити пароль для захисту прихованого аркуша в Excel?

Якщо у вас є робоча книга, яка містить деякі важливі приховані аркуші, і не дозволяєте іншим показувати їх. Тепер вам потрібно встановити пароль, щоб повністю захистити приховані аркуші, коли інші користувачі їх показують, вони повинні ввести пароль. Чи є у вас способи швидко і легко впоратися з цим завданням в Excel?

Встановіть пароль для захисту прихованих аркушів за допомогою функції VeryHidden

Встановіть пароль для захисту прихованого аркуша за допомогою коду VBA

Захистіть кілька аркушів одночасно за допомогою Kutools для Excel


Встановіть пароль для захисту прихованих аркушів за допомогою функції VeryHidden

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

1. Відкрийте свою книгу та утримуйте Alt + F11ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

2, в Вікно Microsoft Visual Basic для програм, Натисніть вид > Провідник проектів та Властивості Вікно to відображати свої панелі.

doc-захистити-приховані-аркуші-01

3. А потім у Проект-VBAProject на панелі виберіть робочий аркуш, який потрібно приховати, і в властивості , натисніть випадаючий список на панелі видимий розділ, щоб вибрати xlSheetVeryHidden варіант, див. скріншот:

doc-захистити-приховані-аркуші-02

4. Зробивши аркуш дуже прихованим, ви можете встановити пароль для його захисту. В Вікно Microsoft Visual Basic для програм, Натисніть Insert > Модулі щоб відкрити порожній модуль, а потім клацніть Tools > Властивості VBAProject, див. скріншот:

doc-захистити-приховані-аркуші-03

5. Потім у вискочив Властивості проекту VBAProject-Project діалогове вікно натисніть кнопку захист вкладку, а потім перевірити Заблокувати проект для перегляду , нарешті, введіть і підтвердьте пароль у полі Пароль для перегляду властивостей проекту розділ, див. знімок екрана:

doc-захистити-приховані-аркуші-04

6. Потім натисніть OK , щоб вийти з цього діалогового вікна та закрити Вікно Microsoft Visual Basic для програм.

7. Збережіть книгу як Книга Excel з підтримкою макросів формату та закрийте його, щоб захист паролем набув чинності.

doc-захистити-приховані-аркуші-05

8. Наступного разу, коли ви відкриєте цю книгу та захочете зробити видимими дуже приховані аркуші, вам буде запропоновано ввести пароль. Дивіться знімок екрана:

doc-захистити-приховані-аркуші-06


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


Встановіть пароль для захисту прихованого аркуша за допомогою коду VBA

Щоб встановити пароль для захисту прихованих аркушів, я можу також розповісти про код VBA для вас.

1. Сховати один аркуш, який ви хочете захистити.

2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.

3. Тоді виберіть ThisWorkbook зліва Провідник проектів, двічі клацніть на ньому, щоб відкрити Модулі, а потім скопіюйте та вставте наступний код 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

doc-захистити-приховані-аркуші-07

примітки: У наведеному вище коді, Sheet1 в xSheetName = "Аркуш1" скрипт - це прихована назва робочого аркуша, яку ви хочете захистити, та 123456 в Якщо відповідь = "123456" Тоді script - це пароль, який ви встановили для прихованого аркуша. Ви можете змінити їх відповідно до своїх потреб.

4. Тепер, коли ви хочете показати прихований аркуш, з’явиться вікно запиту, яке дозволить вам ввести пароль. І це вікно запитів з’являється кожного разу, коли ви клацаєте, щоб показати прихований аркуш.

doc-захистити-приховані-аркуші-08


Захистіть кілька аркушів одночасно за допомогою Kutools для Excel

Якщо ви хочете захистити відразу декілька вибраних або всіх аркушів книги, як правило, вам потрібно захищати один за одним вручну в Excel. Але, якщо є Kutools для Excel, З його Захист робочого аркуша утиліта, ви можете захистити їх одним клацанням миші.

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів

після установки Kutools для Excel, будь ласка, виконайте наступне:

1. Клацання Kutools Plus > Захист робочого аркуша, див. скріншот:

2, в Захист робочого аркуша У діалоговому вікні всі робочі аркуші книги знаходяться у списку, виберіть ті аркуші, які ви хочете захистити. Дивіться знімок екрана:

doc-захистити-приховані-аркуші-010

3. А потім клацніть OK, у наступному діалоговому вікні введіть свій пароль і введіть його ще раз, а потім натисніть OK, з’явиться інше вікно із запитом, щоб нагадати, скільки робочих аркушів захищено.

doc-захистити-приховані-аркуші-011

4. Потім натисніть OK щоб закрити діалогові вікна, і всі аркуші в книзі захищені тим самим паролем.

Примітка: Якщо ви хочете зняти захист усіх аркушів одночасно, вам просто потрібно клацнути Kutools Plus > Зняти захист робочого аркушата введіть свій пароль, щоб скасувати захист.

 Завантажте та безкоштовну пробну версію Kutools для Excel зараз!


Статті по темі:

Як захистити декілька робочих аркушів одночасно в Excel?

Як встановити пароль для захисту книги?

Як захистити / заблокувати код VBA в Excel?

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu?
This comment was minimized by the moderator on the site
Hello, ciekawa

Sorry, at present, there is no good way for canceling the protect of the hidden sheet if you forget the password.

But, you can apply the Uhide all hidden sheets feature of Kutools for Excel to unhide all the hidden sheets without any password.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
You can download Kutools for Excel and use it freely for 30 days.
Please have a try. Thank you!
This comment was minimized by the moderator on the site
This is elegant. IF the person opening the spreadsheet does not enable macros (i.e. VBA) what happens? Is the hidden sheet a sitting duck? Or is it quite impossible to find?
This comment was minimized by the moderator on the site
Hi, David,
If you open the workbook without enabling the macro, the hidden sheet is displayed as normal. In this case, I recommend you to apply the first method for solving this job.
Thank you!
This comment was minimized by the moderator on the site
Your code allows users to view the sheet as long as they hold the left mouse button while the mouse pointer is on the tab. Try this to keep sheet hidden until correct password is entered: If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select Else Application.Sheets(xSheetName).Visible = False[/b][/b] End If End If Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
I have a question about your password restricted worksheet code. You posted the following code which works....what I am looking for is code that will do this with multiple worksheets and multiple passwords within the same workbook. Is this possible? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 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
This comment was minimized by the moderator on the site
Found a solution yet?

I am having the same problem
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim aSheetName As String
Dim bSheetName As String
Dim cSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "123" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "456" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "789" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
This comment was minimized by the moderator on the site
Thanks for the code, just have one question. When you open the sheet you are asked for question, then you enter it and the sheet is visible, but when you jump to next sheet and try to re-open previous sheet, you are asked for the same password again everytime. My question is can you bypass that and make excel ask for password once?
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "1234" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "2345" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "3456" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations