Stránka 1 z 1

Zamčení všech listů najdnou

Napsal: 24 čer 2012 17:03
od Jsimi
Ahoj
Poradí někdo jak definovat příkaz List.protect("Heslo"), aby se zamkly všechny listy v sešitu najednou a ne jenom jeden.
Díky

Re: Zamčení všech listů najdnou

Napsal: 24 čer 2012 20:08
od guest

Kód: Vybrat vše

Sub ListyZaheslovani()

    Dim wshList As Worksheet

    For Each wshList In Worksheets

        wshList.Protect "heslo"

    Next wshList

End Sub

Re: Zamčení všech listů najdnou

Napsal: 24 čer 2012 20:20
od Jsimi
Super Dík. Akorát bych se chtěl zeptat jestli je možné zakázat vybrat zamčené buňky.

Re: Zamčení všech listů najdnou

Napsal: 24 čer 2012 20:57
od guest
Ano, podívejte se na zámek listu nejprve ručně, potom zkuste Záznamník maker.

Re: Zamčení všech listů najdnou  Vyřešeno

Napsal: 24 čer 2012 21:03
od Jsimi
Díky za radu.Je to OK