< návrat zpět

MS Excel


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

Zaslal/a 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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

Strana:  « předchozí  1 2
#043027
Lugr
Dali by se tyto dvě makra spojit v jedno, tak aby se ovládali jedním tlačítkem?citovat
#050323
avatar
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
#050326
Lugr
Ano, když jsem zkopíroval Váš kód do excelu, tak mi to fungovalo. Problém bude jinde.citovat
#050378
avatar
Příloha
Příloha: zip50378_sesit1.zip (17kB, staženo 19x)
citovat
#050385
Lugr
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: zip50385_hromadny-zamek.zip (26kB, staženo 51x)
citovat
icon #050414
eLCHa
Vlákno promazáno - zbytečné příspěvky o tom, jak se vkládá příloha byly smazány.citovat
#050473
avatar

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)
avatar\n

Menu

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.

On-line nástroje