Ako ste distribuirali Excel radne knjige sa zaštićenim listovima, vjerojatno ćete dobiti natrag radne knjige s listovima koji su još uvijek zaštićeni. Često morate ukloniti zaštitu radnih listova u radnoj knjizi prije nego što nastavite s radom. Ako ustanovite da kontinuirano uklanjate zaštitu radnih listova, ova makronaredba može biti samo ulaznica.
Kako makro funkcionira
Kôd pokreće događaj Open radne knjige. Kada otvorite radnu knjigu, ovaj događaj se pokreće, pokreće kod unutar njega. Ova makronaredba automatski poništava zaštitu navedenog lista s danom lozinkom kada se radna knjiga otvori:
Privatna pod radna knjiga_Open()
'Korak 1: Zaštitite list lozinkom
Sheets("Sheet1").Unprotect Password:="RED"
Kraj Sub
Makronaredba eksplicitno imenuje list s kojeg želite ukloniti zaštitu — List1, u ovom slučaju. Zatim prosljeđuje lozinku potrebnu za uklanjanje zaštite lista.
Excel lozinke razlikuju velika i mala slova, stoga obratite pozornost na točnu lozinku i velika slova koja koristite.
Kako koristiti makro
Da biste implementirali ovu makronaredbu, trebate je kopirati i zalijepiti u prozor koda događaja Workbook_Open. Postavljanje makronaredbe ovdje omogućuje pokretanje svaki put kada se radna knjiga otvori:
Aktivirajte Visual Basic Editor pritiskom na Alt+F11.
U prozoru projekta pronađite naziv projekta/radne knjige i kliknite znak plus pored njega da biste vidjeli sve listove.
Kliknite Ova radna knjiga.
Na padajućem popisu Događaj odaberite događaj Otvori.
Upišite ili zalijepite kod u novostvoreni modul, mijenjajući naziv lista (ako je potrebno) i lozinku.
Unesite svoj kod u događaj Openbook Workbook.