Przejdź do głównej zawartości

Jak chronić wiele arkuszy jednocześnie w programie Excel?

Przypuśćmy, że masz skoroszyt zawierający wiele arkuszy roboczych, a teraz musisz chronić wszystkie arkusze lub niektóre określone arkusze, zwykle w programie Excel, możesz chronić arkusz tylko jeden po drugim za pomocą funkcji Chroń arkusz, ale ta metoda jest żmudna i czasochłonne, jeśli istnieje potrzeba ochrony wielu arkuszy. Jak szybko i łatwo chronić wiele arkuszy jednocześnie w programie Excel?

Chroń wszystkie arkusze jednocześnie za pomocą kodu VBA

Chroń wiele arkuszy jednocześnie za pomocą Kutools for Excel

Chroń wiele arkuszy jednocześnie za pomocą Kutools dla programu Excel


strzałka niebieski prawy bąbelek Chroń wszystkie arkusze jednocześnie za pomocą kodu VBA

Za pomocą następującego kodu VBA możesz jednocześnie chronić wszystkie arkusze aktywnego skoroszytu tym samym hasłem, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: Chroń wszystkie arkusze w skoroszycie jednocześnie:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. Następnie naciśnij F5 klucz do uruchomienia kodu i wprowadź hasło do chronionych arkuszy w polu zachęty, patrz zrzut ekranu:

doc-protect-multiple-sheet1-1

4. Kliknij OK, a następnie wprowadź ponownie hasło, aby je potwierdzić.

doc-protect-multiple-sheet2-2

5. Następnie kliknij OK, a wszystkie arkusze zostały zabezpieczone tym samym hasłem.


strzałka niebieski prawy bąbelek Chroń wiele arkuszy jednocześnie za pomocą Kutools for Excel

Czasami nie chcesz chronić wszystkich arkuszy w skoroszycie i chcesz chronić tylko niektóre określone arkusze, w tej sytuacji powyższy kod nie zadziała. Ale z Kutools dla programu Excel'S Chroń arkusz roboczy narzędzie, możesz szybko i łatwo zabezpieczyć zarówno wszystkie arkusze, jak i określone arkusze.

Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 60 dni

Po zainstalowaniu Kutools dla programu Excel, wykonaj następujące czynności:

1. Kliknij Kutools Plus > Chroń arkusz roboczyzobacz zrzut ekranu:

2, w Chroń arkusz roboczy W oknie dialogowym wybierz arkusze, które chcesz chronić. (Domyślnie wszystkie arkusze w bieżącym skoroszycie są sprawdzane.) Zobacz zrzut ekranu:

doc-protect-multiple-sheet4-4

3, i kliknij OK, a następnie wpisz i potwierdź hasło w oknie dialogowym Chroń arkusz. Zobacz zrzut ekranu:

doc-protect-multiple-sheet5-5

4. Następnie kliknij OK, wybrane arkusze zostały zabezpieczone.

Kliknij opcję Chroń arkusz, aby dowiedzieć się więcej o tej funkcji.


strzałka niebieski prawy bąbelek Chroń wiele arkuszy jednocześnie za pomocą Kutools dla programu Excel

Jak można jednocześnie wyłączyć ochronę wielu chronionych arkuszy w skoroszycie? Oczywiście, Kutools dla programu Excel zapewnia również Nie chroń arkusza narzędzie do natychmiastowego usunięcia ich ochrony.

Wykonaj następujące czynności:

1. Otwórz skoroszyt zawierający chronione arkusze.

2. Następnie kliknij Kutools Plus > Nie chroń arkuszazobacz zrzut ekranu:

3, w Nie chroń arkusza w oknie dialogowym, chronione arkusze są wyświetlane w polu listy, a następnie kliknij Ok przycisk, zobacz zrzut ekranu:

doc-protect-multiple-sheet7-7

4. A potem a Nie chroń arkusza pojawi się okno dialogowe przypominające o wprowadzeniu hasła, które utworzyłeś w celu ochrony arkuszy roboczych, patrz zrzut ekranu:

doc-protect-multiple-sheet8-8

5. Po wpisaniu hasła kliknij Ok, wszystkie zaznaczone arkusze w polu listy zostały niezabezpieczone.

Uwaga: Arkusze robocze muszą mieć to samo hasło.

Aby dowiedzieć się więcej o tej funkcji Unprotect Worksheet.

Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!


strzałka niebieski prawy bąbelek Demo: Chroń lub Odbezpiecz wszystkie arkusze jednocześnie za pomocą Kutools for Excel

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Podobne artykuły:

Jak wyłączyć ochronę wielu arkuszy jednocześnie w programie Excel?

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
This comment was minimized by the moderator on the site
Occurs when sheet is already locked
This comment was minimized by the moderator on the site
Thanks for the wonder full tool to protect & unprotect all the sheets at a time. Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
This comment was minimized by the moderator on the site
How do I mask the password using the VBA method? I can not find this information via google or F1 help files. Thanks in advance!
This comment was minimized by the moderator on the site
Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
This comment was minimized by the moderator on the site
I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
This comment was minimized by the moderator on the site
Hey, I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted. Thank you in advance.
This comment was minimized by the moderator on the site
Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") If Not (pass = repass) Then MsgBox "you made a boo boo" GoTo top End If For i = 1 To Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro." End Sub
This comment was minimized by the moderator on the site
when i activated this VBA, hyperlink doesn't work. how can i make them work? tnx :)
This comment was minimized by the moderator on the site
I am suddenly having the 1004 error as well. Anyone find a solution?
This comment was minimized by the moderator on the site
I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations