Jak utworzyć ochronę hasłem za pomocą makra?
Czy chcesz mieć pewność, że wszystkie arkusze w wybranym folderze są chronione hasłem za pomocą makra? Może to być przydatne, jeśli masz zbyt duże problemy z ochroną pojedynczych arkuszy lub chcesz automatycznie chronić wszystkie skoroszyty w katalogu. Użyj następującego makra, aby przypisać hasło „chroń” do wszystkich arkuszy roboczych w aktywnym folderze:
Sub AllSchützen ()
Przyciemnij arkusz jako arkusz roboczy
Dla każdego arkusza w ActiveWorkbook.Worksheets
Blatt.Protect („ochrona”)
Następny arkusz
Napis końcowy
Zamiast tekstu „Schutz” użyj wybranego przez siebie hasła. Oczywiście ten kod programu ma sens tylko wtedy, gdy wprowadzisz go poza skoroszytem, w którym tworzysz ochronę. W przeciwnym razie każdy użytkownik może odczytać hasło w tekście źródłowym VBA.
Aby móc coś zmienić w chronionych arkuszach, musisz usunąć ochronę. Możesz to zrobić ręcznie za pomocą polecenia DODATKI - OCHRONA - ANULUJ OCHRONĘ LIŚCI. To polecenie jest dostępne tylko wtedy, gdy bieżący arkusz jest rzeczywiście chroniony.
Jeśli chcesz ponownie zwolnić wszystkie chronione arkusze robocze za pomocą makra, użyj następującego kodu programu:
Sub WszystkieEkspozycja ()
Przyciemnij arkusz jako arkusz roboczy
Dla każdego arkusza w ActiveWorkbook.Worksheets
Blatt.Unprotect ("ochrona")
Następny arkusz
Napis końcowy