Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

Jak jednocześnie chronić wszystkie skoroszyty w folderze w programie Excel?

W programie Excel możesz zabezpieczyć skoroszyt, aby uniemożliwić innym użytkownikom jego edycję, ale czy kiedykolwiek utworzyłeś obraz w celu ochrony wielu skoroszytów jednocześnie? Tutaj przedstawiam kilka sztuczek dotyczących ochrony wszystkich skoroszytów w folderze i wielu arkuszy w skoroszycie w programie Excel.

Chroń skoroszyty w folderze jednocześnie za pomocą VBA

Chroń wiele arkuszy jednocześnie za pomocą Kutools for Excel dobry pomysł 3

Karta Office Włącz edycję i przeglądanie na kartach w pakiecie Office i znacznie ułatw swoją pracę ...
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
  • Wykorzystaj wszystko ponownie: Dodaj najczęściej używane lub złożone formuły, wykresy i wszystko inne do ulubionych i szybko wykorzystaj je ponownie w przyszłości.
  • Ponad 20 funkcji tekstowych: Wyodrębnij liczbę z ciągu tekstowego; Wyodrębnij lub usuń część tekstów; Konwertuj liczby i waluty na angielskie słowa.
  • Narzędzia do scalania: Wiele skoroszytów i arkuszy w jeden; Scal wiele komórek / wierszy / kolumn bez utraty danych; Połącz zduplikowane wiersze i sumę.
  • Podziel narzędzia: Podziel dane na wiele arkuszy na podstawie wartości; Jeden skoroszyt do wielu plików Excel, PDF lub CSV; Jedna kolumna na wiele kolumn.
  • Wklej pomijanie Ukryte / filtrowane wiersze; Policz i suma według koloru tła; Wysyłaj spersonalizowane wiadomości e-mail do wielu odbiorców zbiorczo.
  • Super filtr: Twórz zaawansowane schematy filtrów i stosuj do dowolnych arkuszy; Sortuj według tygodnia, dnia, częstotliwości i nie tylko; Filtruj pogrubieniem, formułami, komentarzem ...
  • Ponad 300 zaawansowanych funkcji; Działa z Office 2007-2019 i 365; Obsługuje wszystkie języki; Łatwe wdrażanie w przedsiębiorstwie lub organizacji.

strzałka niebieski prawy bąbelek Chroń skoroszyty w folderze jednocześnie za pomocą VBA

Aby chronić skoroszyty w określonym folderze, możesz zastosować kod makra do rozwiązania.

1. Włącz nowy skoroszyt i naciśnij Alt + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applicationns i kliknij wstawka > modułei wklej poniższy kod do pliku Moduł skrypt.

VBA: Chroń skoroszyty w folderze.

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

 

doc chroń wszystkie skoroszyty folder 1

2. naciśnij F5 klucz i a Wybierz folder pojawi się okno, w którym możesz wybrać folder, aby chronić wszystkie jego arkusze.
doc chroń wszystkie skoroszyty folder 2

3. kliknij OK i wyskakuje okno dialogowe do wprowadzenia hasła w celu ochrony skoroszytów.
doc chroń wszystkie skoroszyty folder 3

4. kliknij OK, pojawi się okno dialogowe przypominające, że wszystkie skoroszyty w wybranym folderze zostały pomyślnie zabezpieczone jednym hasłem.
doc chroń wszystkie skoroszyty folder 4

Po otwarciu skoroszytów chronionych powyższym kodem pojawia się okno dialogowe do wprowadzenia hasła. Zobacz zrzut ekranu:
doc chroń wszystkie skoroszyty folder 5

Wskazówka: Ten kod działa w 2007 lub nowszej wersji programu Excel, jeśli chcesz go zastosować do ochrony niższej wersji, możesz to zmienić xFile = „* .xls” do xFile = „* .xlsx” w kodzie.


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

W rzeczywistości ochrona wielu arkuszy w skoroszycie będzie częstsza podczas naszej codziennej pracy. Ale w programie Excel musisz chronić arkusze jeden po drugim za pomocą wbudowanej funkcji. Istnieje jednak potężne narzędzie - Kutools dla programu Excel, jego Chroń arkusz roboczy narzędzie może pomóc w ochronie wszystkich arkuszy lub wybranych arkuszy skoroszytu jednocześnie.

Kutools dla programu Excel, ponad 120 przydatne funkcje programu Excel, zwiększ wydajność pracy i oszczędzaj czas pracy.

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. Włącz skoroszyt, którego arkusze chcesz chronić, i kliknij Przedsiębiorstwo > Chroń arkusz roboczy. Zobacz zrzut ekranu:
doc chroń wszystkie skoroszyty folder 6

2. w Chroń arkusz roboczy możesz sprawdzić arkusze, które chcesz chronić, na liście. Zobacz zrzut ekranu:
doc chroń wszystkie skoroszyty folder 7

3. kliknij Oki pojawi się kolejne okno dialogowe, w którym możesz wprowadzić i ponownie wpisać hasło, patrz zrzut ekranu:
doc chroń wszystkie skoroszyty folder 8

4. kliknij Oki pojawi się okno dialogowe przypominające o pomyślnej ochronie arkuszy.
doc chroń wszystkie skoroszyty folder 9

Aby wyłączyć ochronę tych arkuszy, wystarczy kliknąć Przedsiębiorstwo > Nie chroń arkusza aby wprowadzić hasło w celu wyłączenia ochrony.
doc chroń wszystkie skoroszyty folder 10

pobierz doc 1


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-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 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ęć myszą każdego dnia!
officetab dół
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Martin · 1 years ago
    Brilliant. Saves me nearly an hour every month. Thank you.
  • To post as a guest, your comment is unpublished.
    Mary · 3 years ago
    can you do the same code but for unprotecting? with option to browse for the folder
  • To post as a guest, your comment is unpublished.
    P · 3 years ago
    I'm getting a syntax error for the following: <span style="background-color...
    • To post as a guest, your comment is unpublished.
      Jessica · 6 months ago
      Did you fix this ? How?

  • To post as a guest, your comment is unpublished.
    ckshah · 4 years ago
    workbook protect ...great program....
    very helpful