Kako stvoriti zaštitu lozinkom pomoću makronaredbe
Želite li osigurati da su svi radni listovi u mapi po vašem izboru zaštićeni lozinkom pomoću makronaredbe? To može biti korisno ako imate previše problema sa zaštitom radnih listova pojedinačno ili ako želite automatski zaštititi sve radne knjige u direktoriju. Pomoću sljedeće makronaredbe dodijelite lozinku "zaštitom" svim radnim listovima u aktivnoj mapi:
Sub AllSchuetzen ()
Zatamnjeni list kao radni list
Za svaki list u ActiveWorkbook.Radni listovi
Blatt.Protect ("zaštita")
Sljedeći list
Kraj podm
Umjesto teksta "Schutz", upotrijebite lozinku po svom izboru. Naravno, ovaj programski kod ima smisla samo ako ga unesete izvan radne knjige u kojoj stvarate zaštitu. Inače, svaki korisnik može pročitati lozinku u izvornom tekstu VBA.
Da biste mogli promijeniti nešto u zaštićenim radnim listovima, morate ukloniti zaštitu. To možete učiniti ručno naredbom EXTRAS - ZAŠTITA - OTKAŽI ZAŠTITU LISTA. Ova naredba dostupna je samo ako je trenutačni radni list doista zaštićen.
Ako želite ponovno objaviti sve zaštićene radne listove pomoću makronaredbe, upotrijebite sljedeći programski kod:
Sub AllExposure ()
Zatamnjeni list kao radni list
Za svaki list u ActiveWorkbook.Radni listovi
Blatt.Unprotect ("zaštita")
Sljedeći list
Kraj podm
