Note: The other languages of the website are Google-translated. Back to English

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

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (21)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Świetnie - więc jak odbezpieczyć ich wszystkich na raz? Jestem amatorem, więc potrzebuję więcej informacji.
Ten komentarz został zminimalizowany przez moderatora na stronie
[cytat]Świetnie - więc jak odbezpieczyć ich wszystkich na raz? Jestem amatorem, więc potrzebuję więcej informacji.Kristin Dzugan[/quote] :-) Możesz je łatwo odbezpieczyć jako http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Ten komentarz został zminimalizowany przez moderatora na stronie
Sub unprotect_all_sheets() top: pass = InputBox("hasło?") repass = InputBox("Weryfikuj hasło") If Not (pass = powtórz) Then MsgBox "zrobiłeś buu" GoTo top End If For i = 1 To Worksheets .Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub ups: MsgBox "Wydaje mi się, że masz kilka arkuszy, które są już chronione. Proszę wyłączyć ochronę wszystkich arkuszy B4 z uruchomionym tym makro." Napis końcowy
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo :-)
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak powiedziała Kristin, jak odbezpieczyć ich wszystkich naraz?
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak więc odbezpieczyć bez kutools?
Ten komentarz został zminimalizowany przez moderatora na stronie
[cytat]Więc, jak mogę odbezpieczyć bez kutools?przez cz[/ Quote] Możesz wyłączyć ochronę arkusza roboczego bez Kutools for Excel. Wystarczy kliknąć prawym przyciskiem myszy kartę arkusza, który chcesz usunąć, i kliknąć polecenie Unprotect Sheet, a następnie wprowadzić hasło. :-)
Ten komentarz został zminimalizowany przez moderatora na stronie
kiedy wprowadzam kod, pojawia się „błąd czasu wykonywania 1004? Podświetlając następujące elementy na żółto... s.Protect Password:=pass
Ten komentarz został zminimalizowany przez moderatora na stronie
Nagle pojawia się też błąd 1004. Używam makra od miesięcy, ale teraz nie działa.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, też miałem ten problem. Okazuje się, że nie można go uruchomić, jeśli w skoroszycie zaznaczono wszystkie arkusze. Spróbuj wybrać tylko jeden arkusz, a następnie uruchomić.
Ten komentarz został zminimalizowany przez moderatora na stronie
Nagle pojawia się błąd 1004. Używam makra od miesięcy, teraz losowo zawodzi.
Ten komentarz został zminimalizowany przez moderatora na stronie
Nagle mam też błąd 1004. Czy ktoś znalazł rozwiązanie?
Ten komentarz został zminimalizowany przez moderatora na stronie
kiedy aktywowałem ten VBA, hiperłącze nie działa. jak mogę sprawić, by działały? dzięki :)
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję Ci! To jest niesamowite, udało mi się nawet zmodyfikować kod VBA, aby móc jednocześnie odbezpieczyć wszystkie arkusze! :) Sub unprotect_all_sheets() top: pass = InputBox("hasło?") repass = InputBox("Weryfikuj hasło") If Not (pass = powtórz) Then MsgBox "zrobiłeś 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 ups: MsgBox "Wydaje mi się, że masz kilka arkuszy, które są już chronione. Proszę wyłączyć ochronę wszystkich arkuszy B4 z uruchomionym tym makro." Napis końcowy
Ten komentarz został zminimalizowany przez moderatora na stronie
Hej, potrzebuję pomocy, powyższy kod był bardzo pomocny, ale blokuje sortowanie (również automatyczny filtr), czy możesz podać kod, aby rozwiązać ten problem, a także gdzie zostałby wstawiony. Z góry dziękuję.
Ten komentarz został zminimalizowany przez moderatora na stronie
W moim skoroszycie programu Excel 2013 znajdują się karty wykresów i arkusze. Powyższe kodowanie VBA działa w celu ochrony arkuszy roboczych, ale nie osobnych kart wykresów. Jak zabezpieczyć hasłem wiele kart wykresów i wiele arkuszy roboczych w moim skoroszycie? Dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, użyłem tego kodu, teraz nie zaakceptuję mojego hasła, aby wrócić do mojego arkusza kalkulacyjnego !!
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak zamaskować hasło metodą VBA? Nie mogę znaleźć tych informacji za pośrednictwem plików pomocy google lub F1. Z góry dziękuję!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki za cudowne pełne narzędzie do ochrony i odbezpieczania wszystkich arkuszy naraz. Poprowadź mnie, jestem w stanie odbezpieczyć wszystkie arkusze w moim zeszycie ćwiczeń na raz, ale kiedy uruchomię chroń wszystkie arkusze Kod VBA, wtedy tylko pierwsze 4 arkusze są chronione i pozostają bez ochrony. Pomóż mi rozwiązać ten problem.
Ten komentarz został zminimalizowany przez moderatora na stronie
Próbuję użyć tego w udostępnionym skoroszycie, ale otrzymuję błąd Microsoft Visual Basic „Błąd w czasie wykonywania „1004”: Błąd zdefiniowany przez aplikację lub obiektowy. Szukam tylko sugestii, jak obejść ten problem. pomoc byłaby mile widziana
Ten komentarz został zminimalizowany przez moderatora na stronie
Występuje, gdy arkusz jest już zablokowany
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL