Kaip sukurti apsaugą slaptažodžiu naudojant makrokomandą
Ar norite užtikrinti, kad visi jūsų pasirinkto aplanko darbalapiai būtų apsaugoti slaptažodžiu naudojant makrokomandą? Tai gali būti naudinga, jei turite per daug problemų atskirai apsaugodami darbalapius arba jei norite automatiškai apsaugoti visas katalogo darbaknyges. Naudokite šią makrokomandą, kad priskirtumėte slaptažodį „apsaugoti“ visiems aktyvaus aplanko darbalapiams:
„Sub AllSchuetzen“ ()
Apšviesti lapą kaip darbalapį
Už kiekvieną „ActiveWorkbook“ lapą. Darbo lapai
„Blatt.Protect“ („apsauga“)
Kitas lapas
Pabaiga Sub
Vietoj teksto „Schutz“ naudokite pasirinktą slaptažodį. Žinoma, šis programos kodas yra prasmingas tik tuo atveju, jei jį įvedate ne darbaknygėje, kurioje kuriate apsaugą. Priešingu atveju kiekvienas vartotojas gali perskaityti slaptažodį VBA šaltinio tekste.
Norėdami ką nors pakeisti apsaugotuose darbalapiuose, turite pašalinti apsaugą. Tai galite padaryti rankiniu būdu, naudodami komandą PAPILDOMAI - APSAUGA - ATŠAUKTI LEVŲ APSAUGĄ. Ši komanda pasiekiama tik tuo atveju, jei dabartinis darbalapis yra iš tikrųjų apsaugotas.
Jei norite vėl išleisti visus apsaugotus darbalapius naudodami makrokomandą, naudokite šį programos kodą:
Sub AllExposure ()
Apšviesti lapą kaip darbalapį
Už kiekvieną „ActiveWorkbook“ lapą. Darbo lapai
„Blatt.Unprotect“ („apsauga“)
Kitas lapas
Pabaiga Sub
