Jak vytvořit ochranu heslem pomocí makra
Chcete zajistit, aby všechny listy ve složce podle vašeho výběru byly chráněny heslem pomocí makra? To může být užitečné, pokud máte příliš mnoho problémů s ochranou listů jednotlivě nebo pokud chcete automaticky chránit všechny sešity v adresáři. Pomocí následujícího makra přiřaďte heslo „chránit“ všem listům v aktivní složce:
Sub AllSchuetzen ()
Dim Sheet As Worksheet
Pro každý list v ActiveWorkbook.Worksheets
Blatt.Protect („ochrana“)
Další list
End Sub
Místo textu „Schutz“ použijte vámi zvolené heslo. Tento kód programu má samozřejmě smysl pouze tehdy, pokud jej zadáte mimo sešit, ve kterém ochranu vytváříte. Jinak si každý uživatel může přečíst heslo ve zdrojovém textu VBA.
Abyste mohli v chráněných listech něco změnit, musíte ochranu odstranit. To lze provést ručně příkazem EXTRAS - OCHRANA - ZRUŠIT OCHRANU LISTU. Tento příkaz je k dispozici pouze v případě, že je aktuální list skutečně chráněn.
Pokud chcete znovu uvolnit všechny chráněné listy pomocí makra, použijte následující kód programu:
Sub All Exposure ()
Dim Sheet As Worksheet
Pro každý list v ActiveWorkbook.Worksheets
Blatt.Unprotect ("ochrana")
Další list
End Sub
