Ahojky,
takhle to stačí? Zamknout sešit a snad hotovo.
takhle to stačí? Zamknout sešit a snad hotovo.
Příloha: 
25141_sesit11.rar (7kB, staženo 37x)
citovat25141_sesit11.rar (7kB, staženo 37x)
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: Zákaz smazání listu
MS Excel
Téma: Zákaz smazání listu 
Zaslal/a 25.5.2015 11:02
Potřeboval bych zakázat odstranění určitých listů v sešitu (makrem). Přitom ale sešit musí(!) zůstat odemčený.
První problém je, že neumím odchytit ani příslušnou událost.
A druhý problém - zakázat samotné odstranění, případně vrátit odstranění listu zpět.
Jak by se to dalo řešit?
(25.5.2015 11:40)#025142
Bohužel nestačí, to by bylo snadné.
Psal jsem, že sešit musí zůstat odemčený.citovat
Psal jsem, že sešit musí zůstat odemčený.citovat
V čem to nestačí, sešit je odemknut, dá se do něj zapisovat a nelze odstranit listy. Zamkl jsem to bez hesla a proto heslo si dej cokoliv.citovat
Tady je to i heslem: AAA
Myslím tím zamknout sešit, ne soubor.
Myslím tím zamknout sešit, ne soubor.
Příloha: 25144_sesit11.rar (7kB, staženo 24x)
citovat25144_sesit11.rar (7kB, staženo 24x)(25.5.2015 12:03)#025145
Nestačí to v tom, že tvoje řešení prostě nesplňuje zadání. Je mi velmi dobře známo, co dělá zámek listu a zámek sešitu.
Měl by někdo nějaký jiný návrh? Díky.citovat
Měl by někdo nějaký jiný návrh? Díky.citovat
Nemyslím si, že sešit musí být odemknutý (sice nic o tom nevím) - zámek je nejlepší řešení.
Pomocí VBA to jednoduše neošetříte - nebo mně nenapadá jak. Undo tady nefunguje.
Můžete zkusit vypnout příkazy odstranění. Musíte pak ale řešit přepnutí do jiných sešitů atd. Např. v místní nabídceApplication.CommandBars("Ply").Controls("Odstranit").Enabled = False. Pak byste musel ještě pořešit vypnutí v Ribbonu .
Odchytnou odstranění lze, ale jak jsem psal výše - nic to neřeší...citovat
Pomocí VBA to jednoduše neošetříte - nebo mně nenapadá jak. Undo tady nefunguje.
Můžete zkusit vypnout příkazy odstranění. Musíte pak ale řešit přepnutí do jiných sešitů atd. Např. v místní nabídceApplication.CommandBars("Ply").Controls("Odstranit").Enabled = False. Pak byste musel ještě pořešit vypnutí v Ribbonu .
Odchytnou odstranění lze, ale jak jsem psal výše - nic to neřeší...citovat
(25.5.2015 13:17)#025148
Díky, čekal jsem to. Ale doufal jsem, že moudřejší budou znát nějakou fintu...citovat
Řeším ten samý problém - nedovolit uživateli smazat určité listy. Jdu tímto směrem:
1) Odchytím událost na úrovni listu Worksheet_BeforeDelete()
2) Oznámím uživateli, že je zakázáno mazat tento list
3) Uložím sešit ThisWorkbook.Save (ještě obsahuje mazaný list)
4) Zavřu sešit ThisWorkbook (s oním listem)
FUNGUJE TO, list není odstraněn, ALE Excel při tom spadne (hláška Excel přestal pracovat) i s případnými ostatními otevřenými sešity.
Měl by někdo nějaký tip, jak to udělat, aby se Excel korektně ukončil?citovat
1) Odchytím událost na úrovni listu Worksheet_BeforeDelete()
2) Oznámím uživateli, že je zakázáno mazat tento list
3) Uložím sešit ThisWorkbook.Save (ještě obsahuje mazaný list)
4) Zavřu sešit ThisWorkbook (s oním listem)
FUNGUJE TO, list není odstraněn, ALE Excel při tom spadne (hláška Excel přestal pracovat) i s případnými ostatními otevřenými sešity.
Měl by někdo nějaký tip, jak to udělat, aby se Excel korektně ukončil?citovat
A čo tak karta súbor >informácie >zabezpečiť zošit > zabezpečiť štruktúru zošita?citovat
Mno ono to možná funguje, ale tato událost je do VBA přidána kdy? ve verzi 2013? Ve starších Vám to fungovat nebude a nehodí ani chybu, tzn musíte mít jistotu, že všichni používají 2013. Taky tam mohl MS přidat Cancel :( .
Tipl bych že to padání způsobuje běžící kód v zavíraném sešitě, ale je to jen tip.citovat
Tipl bych že to padání způsobuje běžící kód v zavíraném sešitě, ale je to jen tip.citovat
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