• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Hromadné odemykání a zamykání

Zaslal/a kriz.pavel 15.12.2014 11:22

Dobrý den všem,

mám excel, kde je asi 30 listů a při úpravách potřebuji jednou za čas většinu odemknout a pak zase zamknout. Po jednom je to dost otrava a ještě jich mám většinu skrytých. Od jednoho kolegy zde z fóra mám makro viz níže na hromadné odemknutí a zamknutí, bohužel má pak ale k makru přístup každý, protože se heslo musí vepsat přímo do kódu. Potřeboval bych kód upravit, aby mi při zamykání excel nabídl klasické okénko na zadání hesla s potvrzením (tedy 2x zadání). Při odemykání pak analogicky, tedy aby po mě chtěl zadání hesla. Mohu pak makro nechat v sešitu, ale nikdo kromě mě ho nepoužije pokud nebude znát heslo.

Děkuji za rady, nejlépe kód (programátor bohužel moc nejsem) :)


Sub Odemknout()
Dim sh As Object
ActiveWorkbook.Unprotect "Heslo"
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect "Heslo"
Next
End Sub
----------
Sub Zamknout()
Dim sh As Object
ActiveWorkbook.Protect "Heslo"
For Each sh In ActiveWorkbook.Sheets
sh.Protect "Heslo"
Next
End Sub

Zaslat odpověď >

---

Strana:  « předchozí  1 2

Lugr(24.3.2019 10:54)#043027

Dali by se tyto dvě makra spojit v jedno, tak aby se ovládali jedním tlačítkem?citovat

Mira-Vasak(6.4.2021 11:03)#050323

Dobrý den.

mám na Vás prosbu.

Chtěl jsem využívat výše citované makro, ale při zadání a potvrzení hesla se mi objeví chybová hláška "Run-time error 1004: Method ´Protect´of object´_Worksheet´failed".

Když odkliknu Debug, zažlutí se "sh.Protect Password:=sPass".

Moc děkuju za případnou snahu o pomoc.

Míracitovat

Lugr(6.4.2021 17:06)#050326

Ano, když jsem zkopíroval Váš kód do excelu, tak mi to fungovalo. Problém bude jinde.citovat

DJ-MIRAGE(12.4.2021 15:01)#050378

Příloha

Příloha: 50378_sesit1.zip (17kB, staženo 18x)

citovat

Lugr(12.4.2021 19:07)#050385

Všiml jste si, že máte hromadně označené všechny listy? Po zrušení výběru všech listů makro funguje.

Tady máte i jiná makra která zamknou všechny listy.

Všechny fungují jak mají.

Příloha: 50385_hromadny-zamek.zip (26kB, staženo 48x)

citovat

eLCHa(14.4.2021 10:08)#050414

Vlákno promazáno - zbytečné příspěvky o tom, jak se vkládá příloha byly smazány.citovat

DJ-MIRAGE(19.4.2021 10:40)#050473

Lugr napsal/a:

Všiml jste si, že máte hromadně označené všechny listy? Po zrušení výběru všech listů makro funguje.

Tady máte i jiná makra která zamknou všechny listy.

Všechny fungují jak mají.Příloha: 50385_hromadny-zamek.zip (26kB, staženo 6x)

Mně to nějak nefungovalo ani, když jsem ostatní listy odznačil.

Každopádně v tom dalším souboru už to jede správně.

Ještě jednou moc děkuju za všechny rady!citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse