< 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

Relativní cesta - zdroje Power Query

elninoslov • 23.4. 19:33

Vyhledej

elninoslov • 23.4. 18:54

Vyhledej

PavDD • 23.4. 12:29

Vyhledej

PavDD • 23.4. 11:47

Relativní cesta - zdroje Power Query

Alfan • 23.4. 10:52

Relativní cesta - zdroje Power Query

elninoslov • 23.4. 10:22

Relativní cesta - zdroje Power Query

lubo • 23.4. 10:15