Uzamknutí více listů ve výběru najednou (manuál nebo makrem)

[MK_Vs]

Dobrý den,

potřebuji uzamknout opakovaně více listů v různých sešitech. Pokdu si makro nahraji, lze to jen pro jden list.

Nohu pomocí jednoho makra uzamknout více vybraných listů v sešitu najednou?

Děkuji.

[Reklama]

[cmuch]

V jednom sešitě to lze takto

Kód: Vybrat vše

Sub Makro()

  Dim Wsht As Worksheet
  ' pro listy sesitu
  For Each Wsht In Worksheets
    ' mimo
    If Wsht.Name <> "List1" Then
      ' zamkni pod heslem
      Wsht.Protect "pass"
    End If
  Next
End Sub

To uzamčení listů si můžeš ještě poupravit pokud chceš zamknou v listě i další věci
viz. nápověda VBA

Worksheet.Protect Method
Protects a worksheet so that it cannot be modified.
Syntax

expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)

Stačí nahrát makro a to pak dosadit do tohoto za to heslo.

Pokud pro více sešitů tak by se muselo přidat jejich otvírání a uložení se změnou.

[MK_Vs]

Dobrý večer,

děkuji za odpověď. Zítra vyzkouším a případně se ozvu. Možná bych pak měl pro častější úpravy uvažovat o uložení do globální šablony, abych měl makro po ruce pro jakýkoli sešit / nebo list.

[cmuch]

To bys musel mít stejně pojmenované listy v sešitech nebo makro upravit tak aby se tě třeba na každém listu zeptalo zda zamknout nebo ne.

[MK_Vs]

A pokud bych je vybral? Bylo by to takto možné taky,

[cmuch]

Mě se nepodařilo nijak rozchodit pokud je vybráno více listů.
Třeba jde, ale já nevím jak.

//
Tak jsem v příloze něco vytvořil.
Je tam formulář na kterém si můžeš vybrat listy a jestli je chceš odemknout nebo zamknout.
Heslo je v makru.