• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Díky za reakci. Taky si myslím že nejde, ale chtěl jsem dát prostor profíkům, co ze sebe vymáčknou

Dobrý den,

V zobrazeném dialogovém okně Nastavení polí hodnot Záložka Souhrn dat lze zvolit kritéria pro shrnutí polí:

Součet
Počet
Průměr
...

Lze nějak nastavit, aby výchozí byl Součet a ne Počet. Nejsou seřazené abecedně, ale přesto je jako výchozí zvolena druhá položka Počet. Z 99% používám u kontingenční tabulky Součet a pořád musím dokola přenastavovat. Hromadně to nejde a fakt to zdržuje. Potřeboval bych někde přenastavit toto výchozí nastavení. Lze???

Děkuji

eLCHa: Díky moc za radu. Kompletní zamykání a odmykání už mi funguje. Chtěl bych ale ještě pro svou vlastní ochranu proti překlepu přidat dvojí zadání hesla při zamykání.

Nepřišel jsem na to, jak dvě zadané hodnoty porovnat a když:
- hesla jsou totožná -> makro běží dál
- hesla se neshodují -> chybová hláška a nic se nezamkne

Je mi jasné, že tam bude nějak IF ELSE, ale to porovnání hodnot a vyhodnocení mi nějak nejde

Níže posílám můj začátečnický kód. Příloha mi nejde vložit. Web mi nechce zobrazit kód pro ověření. Prosím o pomoc


Sub Zamknout1()
Dim sh As Object
heslo = InputBox("Zadej heslo", "ZÁMEK")
'heslo2 = InputBox("Zadej heslo pro ověření", "ZÁMEK")
'result = heslo Like heslo2
'If result Then
ActiveWorkbook.Protect Password:=heslo
'Else: MsgBox ("Hesla se neschodují!")
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:=heslo
Next
End Sub

Sub Odemknout1()
Dim sh As Object
heslo = InputBox("Zadej heslo", "ZÁMEK")
ActiveWorkbook.Unprotect Password:=heslo
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect Password:=heslo
Next
Sheets("List1").Select
End Sub



děkuji

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

lubo: Pokud znám heslo, tak určitě super. Díky. Občas mi ale někdo nějaký list při editacích zamkne jiným heslem, plus jsem samozřejmě používal i na jiné excely, než na ten svůj. To jsem uvedl jako příklad. Fakt mě překvapilo, že to v excelu 2013 nefunguje a v 2010 a nižších bez problémů.

marjankaj: Co tím myslíš? To makro co jsem přikládal jsem psal, že používám, nebo jsem spíše do teď používal dost často. Ale v 2013 už to nefunguje.

Dobrý den,

potřeboval bych poradit s možností odemčení všech listů a celého sešitu v MS Excel 2013 x64. Mám poměrně rozsáhlý excel s desítkami listů a všechny musí být pro uživatele excelu uzamčeny. Při úpravách (párkrát do roka) ale potřebuji vše odemknout. Již nějaký pátek na toto používám makro viz příloha. Na netu jsem našel ještě další dva typy, ale ani jeden mi na 2013 nefunguje. Na 2010 vše běželo jak má.

Prosím o radu, případně pokud máte někdo nějaké jiné ověřené makro pro MS 2013, tak budu rád.

děkuji
Pavel

Dobrý den všem excelistům,

chtěl bych se zeptat zda lze a případně jak řadě buněk přidat hypertextový odkaz na řadu adresářů v PC. Vysvětlím na příkladu:

Mám v PC adresář/složku s poměrně dlouhou řadou adresářů (názvy filmů). Dále mám excel, kde mam malou databázi informací o datech z jednotlivých adresářů(filmů) pro lepší orientaci. Bylo by super mít u každého řádku mít hypertextový odkaz, kterým by se mi složka otevřela. Je jich poměrně hodně, takže po jednom to nelze dělat.

Potřeboval bych sloučit řetězec pevných znaků a textu buněk (cesty). V excelu mám v jednom sloupci názvy adresářů tak jak jsou na disku. Takže potřebuji na buňce nastavit hypertextový odkaz, který se bude skládat z části přesně definované cesty (//c:...../..../) a pak části cesty definované názvem adresáře uvedeným v excelu.

Doufám, že jsem to popsal dobře a sám se do toho nezamotal.

Díky moc za případné rady :)

Palooo: Děkuji mockrát za zaslání příkladu. Chvilku jsem to zkoumal, abych se orientoval a funguje to dobře. V každém případě na mě už to je hodně horký kafe, ale aplikovat do dle příkladu dokážu :)

eLCHa: O této variantě jako jediné vím a zatím to tak je řešené. Chtěl jsem to ale posunout kousek dál a třeba se něco nového naučit. V každém případě moc děkuji za reakci :)

Palooo: Určitě bych byl rád a vyzkoušel, pokud píšete že to bude jednodušší.

Předem děkuji :)

Děkuji za uvedený soubor. Hodně pomohl :) Potřebuji to pro reporting pro vedení. Jednotlivá oddělení musí mít přístup k určitým reportům (listům), ale nesmí vidět reporty z jiných oddělení. Reporting je ale v jednom uceleném excelu. Když po spuštění spustím makro, tak se mi dle tvého návodu zviditelní listy které potřebuji. Problém ještě nastává v tom, že potřebuji zabezpečit, aby se neoprávněný uživatel nedostal do zbylých listů, tedy potřeboval bych sešit zamknout. Pak mi ale makro hlásí chybu. Napadlo mě zda to nejde obejít v kódu, případně jak v kódu nastavit skrytí listu jako "VeryHidden", že není vidět pokud si chce někdo list zobrazit. Pak bych ještě potřeboval, aby se mi makro spouštělo vždy a bez něj se excel ani neotevřel, ale to bude asi někde v nastavení excelu.

Díky :)

Děkuji za reakci, bohužel programování mě minulo, takže ve VBA neumím :( Dokážu si přes VBA nahrát nový modul s kódem a použít ho jako makro a samotný kód bohužel nenapíšu. Předpokládám že cesta "klikací" pře standardní část excelu asi nepovede :(

Dobrý den,

potřeboval bych poradit jak docílit viditelnosti konkrétních listů definovanými uživatele. Pro upřesnění vás uvedu do problému.

Mám report pro vedení společnosti, kde jsou na jednotlivých listech různá data a potřebuji, aby když sešit otevře konkrétní uživatel (dle lokální sítě jako u revize -> Povolit uživatelům úpravy oblastí, kde si vyhledám v síti uživatele) viděl jen listy, které si nadefinuji. Do reportu by mělo přístup jen pár manažerů vedení společnosti a ti by například pod heslem viděli reporty za své úseky, pak generální ředitel by viděl vše a další uživatelé by se do excelu ani nedostali.

Děkuji za rady (ideálně příklad) jak toto provést.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse