< návrat zpět

MS Excel


Téma: Makro zámek rss

Zaslal/a 20.4.2020 9:34

Stepanek100Dobrý 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ěď >

#046464
Stalker
Úplně stejně, pokud bude sešit chráněn heslem, zobrazí se výzva.citovat
#046465
Stepanek100
Š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
#046466
elninoslov
Určite odomykáte rovnaký list (pozor na ActiveSheet)? Ja to teraz skúšam a ide to tak ako chcete.citovat
#046467
Stepanek100
Už jsem našel chybu, je to moje chyba.
Díkycitovat
#046468
Lugr
Dobrý den,

já používám tohle.

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

Třeba Vám to pomůže. 1
Příloha: zip46468_makro-zamek.zip (17kB, staženo 35x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

microsoft 365 hlaska sharepoint

jano1 • 20.7. 16:59

Názvy z řádků do sloupců Power Query

Alfan • 19.7. 13:49

Názvy z řádků do sloupců Power Query

lubo • 19.7. 12:24

vyhledání obsahu buňky

vfort • 18.7. 11:22

Názvy z řádků do sloupců Power Query

Alfan • 18.7. 10:01

Tlac 2 roznych tabuliek

loksik.lubos • 17.7. 20:43

Týden v roce

Petr92 • 16.7. 15:34