MS Excel

Téma: Makro zámek

Zaslal/a Stepanek100 20.4.2020 9:34

Dobrý den, pro uzamčení sešitu používám toto makro:
Sub Zamknout()
ActiveSheet.Protect Password:="heslo", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True '

'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
End Sub

Jak napsat makro pro odemčení, aby se zobrazila výzva pro zadání hesla.

Napsal jsem makro:
Sub Odemknout()
ActiveSheet.Unprotect
End Sub

které odemkne sešit bez hesla.

Děkuji Josef

Zaslat odpověď >

Stalker(20.4.2020 11:30)#046464

Úplně stejně, pokud bude sešit chráněn heslem, zobrazí se výzva.citovat

Stepanek100(20.4.2020 11:39)#046465

Špatně jsem se vyjádřil.
Zamknu sešit makrem Zamknout(), sešit je teoreticky uzamčen heslem "heslo".
Pro odemknutí použiji druhé makro Odemknout()a sešit se odemkne, nevyžaduje heslo. Proč?citovat

elninoslov(20.4.2020 12:45)#046466

Určite odomykáte rovnaký list (pozor na ActiveSheet)? Ja to teraz skúšam a ide to tak ako chcete.citovat

Stepanek100(20.4.2020 12:57)#046467

Už jsem našel chybu, je to moje chyba.
Díkycitovat

Lugr(20.4.2020 21:48)#046468

Dobrý den,

já používám tohle.

Není to moje tvorba, ale je to super makro.

Třeba Vám to pomůže.

Příloha: zip

46468_makro-zamek.zip (17kB, staženo 36x)

citovat

Uživatelské menu

Nejste přihlášen(a)

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.