Ako vytvoriť ochranu heslom pomocou makra
Chcete zaistiť, aby všetky pracovné hárky vo vami zvolenom priečinku boli chránené heslom pomocou makra? To môže byť užitočné, ak máte príliš veľké problémy s ochranou hárkov jednotlivo alebo ak chcete automaticky chrániť všetky zošity v adresári. Nasledujúce makro použite na priradenie hesla „chrániť“ všetkým hárkom v aktívnom priečinku:
Sub AllSchuetzen ()
Tlmený list ako pracovný list
Pre každý list v programe ActiveWorkbook. Pracovné listy
Blatt.Protect („ochrana“)
Ďalší list
Koniec pod
Namiesto textu „Schutz“ použite heslo, ktoré si vyberiete. Tento kód programu má samozrejme zmysel iba vtedy, ak ho zadáte mimo zošit, v ktorom ochranu vytvárate. V opačnom prípade si každý používateľ môže prečítať heslo vo zdrojovom texte VBA.
Aby ste mohli niečo zmeniť v chránených pracovných listoch, musíte odstrániť ochranu. Môžete to urobiť ručne príkazom EXTRAS - OCHRANA - ZRUŠIŤ OCHRANU LÍST. Tento príkaz je k dispozícii iba vtedy, ak je aktuálny pracovný hárok skutočne chránený.
Ak chcete znova uvoľniť všetky chránené pracovné hárky pomocou makra, použite nasledujúci kód programu:
Sub All Exposure ()
Tlmený list ako pracovný list
Pre každý list v programe ActiveWorkbook. Pracovné listy
Blatt.Unprotect ("ochrana")
Ďalší list
Koniec pod
