Dali by se tyto dvě makra spojit v jedno, tak aby se ovládali jedním tlačítkem?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Hromadné odemykání a zamykání
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
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
Strana: « předchozí 1
2
(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
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
Ano, když jsem zkopíroval Váš kód do excelu, tak mi to fungovalo. Problém bude jinde.citovat
Příloha
Příloha: 
50378_sesit1.zip (17kB, staženo 19x)
citovat50378_sesit1.zip (17kB, staženo 19x)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í.
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 52x)
citovat50385_hromadny-zamek.zip (26kB, staženo 52x)
Vlákno promazáno - zbytečné příspěvky o tom, jak se vkládá příloha byly smazány.citovat
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)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články