Cum se creează protecția prin parolă folosind o macro
Doriți să vă asigurați că toate foile de lucru dintr-un dosar la alegere sunt protejate prin parolă folosind o macro? Acest lucru poate fi util dacă aveți prea multe probleme la protejarea foilor de lucru individual sau dacă doriți să protejați automat toate registrele de lucru dintr-un director. Utilizați următoarea macrocomandă pentru a atribui parola „protejați” tuturor foilor de lucru din folderul activ:
Sub AllSchuetzen ()
Reduceți foaia ca foaie de lucru
Pentru fiecare foaie din ActiveWorkbook.Worksheets
Blatt.Protect („protecție”)
Foaia următoare
Sfârșitul Sub
În loc de textul „Schutz”, utilizați parola la alegere. Desigur, acest cod de program are sens numai dacă îl introduceți în afara registrului de lucru în care creați protecția. În caz contrar, fiecare utilizator poate citi parola din textul sursă VBA.
Pentru a putea schimba ceva în foile de lucru protejate, trebuie să eliminați protecția. Puteți face acest lucru manual cu comanda EXTRAS - PROTECȚIE - ANULAȚI PROTECȚIA FRUNZEI. Această comandă este disponibilă numai dacă foaia de lucru curentă este de fapt protejată.
Dacă doriți să eliberați din nou toate foile de lucru protejate folosind o macro, utilizați următorul cod de program:
Sub AllExposure ()
Reduceți foaia ca foaie de lucru
Pentru fiecare foaie din ActiveWorkbook.Worksheets
Blatt.Unprotect („protecție”)
Foaia următoare
Sfârșitul Sub
