Kuinka luoda salasanasuojaus makron avulla
Haluatko varmistaa, että kaikki valitsemasi kansion laskentataulukot on suojattu salasanalla? Tästä voi olla hyötyä, jos sinulla on liikaa ongelmia laskentataulukoiden suojaamisessa yksitellen tai jos haluat suojata kaikki hakemiston työkirjat automaattisesti. Määritä suojaussalasana kaikille aktiivisen kansion laskentataulukoille käyttämällä seuraavaa makroa:
Osa KaikkiSchuetzen ()
Himmennä arkki laskentataulukkona
Jokaiselle ActiveWorkbook.Worksheets -arkille
Blatt.Protect ("suoja")
Seuraava arkki
End Sub
Käytä tekstin "Schutz" sijasta valitsemasi salasana. Tämä ohjelmakoodi on tietysti järkevä vain, jos kirjoitat sen sen työkirjan ulkopuolelle, johon luot suojauksen. Muussa tapauksessa jokainen käyttäjä voi lukea salasanan VBA -lähdetekstistä.
Jotta voit muuttaa jotain suojatuissa laskentataulukoissa, sinun on poistettava suojaus. Voit tehdä tämän manuaalisesti komennolla EXTRAS - PROTECTION - CANCEL LEAF PROTECTION. Tämä komento on käytettävissä vain, jos nykyinen laskentataulukko on todella suojattu.
Jos haluat vapauttaa kaikki suojatut laskentataulukot uudelleen makron avulla, käytä seuraavaa ohjelmakoodia:
Sub AllExposure ()
Himmennä arkki laskentataulukkona
Jokaiselle ActiveWorkbook.Worksheets -arkille
Blatt.Unprotect ("suojaus")
Seuraava arkki
End Sub
