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

[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

[Reklama]

[guest]

Kód: Vybrat vše

Sub ListyZaheslovani()

    Dim wshList As Worksheet

    For Each wshList In Worksheets

        wshList.Protect "heslo"

    Next wshList

End Sub

[Jsimi]

Super Dík. Akorát bych se chtěl zeptat jestli je možné zakázat vybrat zamčené buňky.

[guest]

Ano, podívejte se na zámek listu nejprve ručně, potom zkuste Záznamník maker.

[Jsimi]

Díky za radu.Je to OK