Pokud jste distribuovali sešity aplikace Excel s chráněnými listy, pravděpodobně získáte sešity zpět se stále chráněnými listy. Často je třeba před pokračováním v práci zrušit ochranu listů v sešitu. Pokud zjistíte, že neustále odstraňujete ochranu listů, může být toto makro pouze lístkem.
Jak makro funguje
Kód je spuštěn událostí Open sešitu. Když otevřete sešit, tato událost se spustí a spustí kód uvnitř. Toto makro při otevření sešitu automaticky zruší ochranu zadaného listu s daným heslem:
Private Sub Workbook_Open()
'Krok 1: Chraňte list heslem
Sheets("Sheet1").Odemknout heslo:="RED"
End Sub
Makro výslovně pojmenuje list, který chcete zrušit ochranu — v tomto případě List1. Poté předá heslo potřebné k odemknutí listu.
V heslech Excelu se rozlišují velká a malá písmena, takže věnujte pozornost přesnému heslu a velkým písmenům, které používáte.
Jak používat makro
Chcete-li implementovat toto makro, musíte jej zkopírovat a vložit do okna kódu události Workbook_Open. Umístěním makra sem umožníte jeho spuštění při každém otevření sešitu:
Aktivujte Editor jazyka Visual Basic stisknutím Alt+F11.
V okně projektu vyhledejte název projektu/sešitu a kliknutím na znaménko plus vedle něj zobrazte všechny listy.
Klepněte na ThisWorkbook.
V rozevíracím seznamu Událost vyberte Otevřít událost.
Zadejte nebo vložte kód do nově vytvořeného modulu, změňte název listu (v případě potřeby) a heslo.
Zadejte svůj kód do události Otevřít sešit.