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.