Stránka 1 z 1

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

Napsal: 09 dub 2013 17:48
od 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.

Re: Uzamknutí více listů ve výběru najednou (manuál nebo mak

Napsal: 09 dub 2013 18:51
od 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.

Re: Uzamknutí více listů ve výběru najednou (manuál nebo mak

Napsal: 09 dub 2013 20:25
od 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.

Re: Uzamknutí více listů ve výběru najednou (manuál nebo mak

Napsal: 09 dub 2013 20:31
od 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.

Re: Uzamknutí více listů ve výběru najednou (manuál nebo mak

Napsal: 09 dub 2013 20:49
od MK_Vs
A pokud bych je vybral? Bylo by to takto možné taky,

Re: Uzamknutí více listů ve výběru najednou (manuál nebo mak

Napsal: 10 dub 2013 08:33
od 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.