Excel vam omogućuje da zaštitite svoje radne knjige programa Excel od promjena. Ovaj vodič će vam pokazati kako zaštititi ili ukloniti zaštitu strukture radne knjige pomoću VBA.
Zaštita VBA radne knjige
Zaštita radne knjige VBA omogućuje vam zaključavanje strukture radne knjige. Kada je radna knjiga zaštićena, korisnici neće moći dodavati, brisati, skrivati / otkrivati niti štititi / uklanjati zaštitu radnih listova. Ako gradite model, vjerojatno želite uključiti zaštitu radne knjige kako biste spriječili korisnike (ili vas!) Od slučajnog brisanja radnih listova.
UnProtect Workbook VBA
Za uklanjanje zaštite radne knjige jednostavno upotrijebite sljedeći redak koda:
| 1 | Radne bilježnice ("Knjiga1"). Uklonite zaštitu |
Napomena: ovaj kôd će raditi samo ako je radna knjiga zaštićena bez lozinku. Ako je zaštićena lozinkom, morate je unijeti i da biste je uklonili sa zaštite:
Uklonite zaštitu radne knjige s lozinkom
Ovaj redak koda uklonit će zaštitu radne knjige zaštićene lozinkom:
| 1 | Radne knjige ("Knjiga1"). Ukloni zaštitu lozinke: = "lozinka" |
ili možete izostaviti lozinku: =
| 1 | Radne knjige ("Knjiga1"). Uklonite zaštitu "lozinke" |
Uklonite zaštitu ove radne knjige
Ovaj kôd će ukloniti zaštitu ThisWorkbook -a (ThisWorkbook je radna knjiga u kojoj je pohranjen tekući kôd. Nikada se neće promijeniti).
| 1 | ThisWorkbook.Unprotect |
ili uklonite zaštitu ove radne knjige lozinkom:
| 1 | ThisWorkbook.Unprotect "password" |
Uklonite zaštitu aktivne radne knjige
Ovaj kôd će ukloniti zaštitu ActiveWorbooka.
| 1 | ActiveWorkbook.Unprotect |
ili uklonite zaštitu aktivne radne knjige lozinkom:
| 1 | ActiveWorkbook.Unprotect "password" |
Uklonite zaštitu sa svih otvorenih radnih knjiga
Ovaj kôd će ukloniti zaštitu sa svih otvorenih radnih knjiga:
| 12345678 | Sub UnprotectAllOpenWorkbooks ()Dim wb Kao radna bilježnicaZa svaku wb u radnim bilježnicamawb.UnprotectSljedeća wbKraj podm |
UnProtect Workbook - Bez poznavanja lozinke
Ako trebate ukloniti zaštitu radne knjige bez poznavanja lozinke, postoji nekoliko dodataka koji će vam pomoći. Preporučio bih Ribbon Commander.
Uklonite zaštitu sa svih listova u radnoj knjizi
Nakon uklanjanja zaštite radne knjige, možda ćete htjeti ukloniti i zaštitu sa svih listova u radnoj knjizi. Evo postupka koji će ukloniti zaštitu sa svih listova:
| 12345678 | Sub UnProtectWorkbookAndAllSheets ()Zatamni kao radni listActiveWorkbook.UnprotectZa svaki ws u radnim listovimaws.UnprotectSljedećiKraj podm |
Zaštitite radnu knjigu
Strukture radne knjige možete zaštititi na isti način na koji uklanjate zaštitu.
Zaštitite radnu knjigu Bez lozinke
Ova linija koda štitit će radnu knjigu (bez lozinke)
| 1 | Radne bilježnice ("Knjiga1"). Zaštitite |
Napomena: Često ću primjenjivati zaštitu radne knjige bez lozinki, jednostavno radi sprječavanja slučajno izmjene radnih bilježnica.
Zaštitite radnu knjigu lozinkom
Ovaj kôd štitit će strukturu radne knjige (lozinkom)
| 1 | Radne bilježnice ("Knjiga1"). Zaštitite "lozinku" |
ili:
| 1 | Radne knjige ("Knjiga1"). Zaštitite lozinku: = "lozinka" |
Excel datoteka zaštićena lozinkom
Umjesto zaštite radne knjige, možda biste željeli zaštititi cijelom Excelovom datotekom lozinkom. Da biste to učinili koristeći VBA, Spremi kao radnu knjigu s lozinkom:
| 1 | Radne knjige ("Knjiga1"). Spremi kao "lozinku" |
Primjeri zaštite / uklanjanja zaštite radne knjige
Otkrijte sve radne listove u zaštićenoj radnoj knjizi
Ovaj postupak će ukloniti zaštitu radne knjige, sakriti sve radne listove i ponovno zaštititi radnu knjigu
| 12345678910 | PodUkloni zaštituWB_Unhide_All_Sheets ()Zatamni kao radni listActiveWorkbook.UnprotectZa svaki ws u radnim listovimaws.Visible = xlSheetVisibleSljedećiActiveWorkbook.ZaštititeKraj podm |
Zaštitite radnu knjigu i sve listove
Ovaj postupak će zaštititi sve radne listove u radnoj knjizi, a zatim zaštititi radnu knjigu:
| 1234567891011 | PodzaštitaWB_Protect_All_Sheets ()Zatamni kao radni listActiveWorkbook.UnprotectZa svaki ws u radnim listovimaws.ZaštititeSljedećiActiveWorkbook.ZaštititeKraj podm |
Možete dodati i zaštitu lozinkom:
| 1234567891011 | Sub ProtectWB_Protect_All_Sheets_Pswrd ()Zatamni kao radni listActiveWorkbook.Unprotect "password"Za svaki ws u radnim listovimaws.Zaštiti "lozinku"SljedećiActiveWorkbook.Zaštitite "lozinku"Kraj podm |
