Jak skrýt lišty v Excelu pomocí VBA?

Programy pro práci s textem, tabulkami, prezentacemi

Moderátor: Moderátoři Živě.cz

Odeslat příspěvekod yaya 6. 6. 2007 12:11

Dělám jednomu známému takový malý výpočetní program v excelu a potřeboval bych poradit jak udělat, aby se při otevření souboru skryl celý horní panel s nabídkami i lišta!!? A naopak, aby se objevil při hodonotě buňky A5= 1 ?!!

Děkuji všem za rady, děkuji moc
yaya
Kolemjdoucí

Odeslat příspěvekod fatman 6. 6. 2007 13:44

http://www.zive.cz/poradna/SubChild.asp?Qst=214802 ten soubor s příkladem tam snad ještě je, když tak ho tam nahraju.

edit: odkaz na starou poradnu teď asi nějakou dobu nebude fungovat, takže je to zde http://sweb.cz/josh.zero/files/ziveexample1.zip
Naposledy upravil fatman dne 6. 6. 2007 22:07, celkově upraveno 1
"Věřím v reinkarnaci, jakožto nutnou likvidaci materialisace lidské idealisace, bez vyloučení sensace!"
(J. Váchal, Krvavý román)
fatman
Junior
Uživatelský avatar

Odeslat příspěvekod yaya 6. 6. 2007 16:10

Jo díky je to tam, ale má to chybičku. Když to skryju, tak to zůstane skryté napořád. Já bych potřeboval skrýt a po zavření souboru, se to vrátilo do původního stavu...dík
yaya
Kolemjdoucí

Odeslat příspěvekod obcasny_navstevnik 6. 6. 2007 16:33

pouzij v objektu Tento_sešit udalostni proceduru Workbook_BeforeClose(Cancel As Boolean), do jejihoz tela vlozis napr. z procedury ShowTools jeji telo, pripadne i z procedury ShwMenu, takze pred uzavrenim dojde k zviditelneni.
obcasny_navstevnik
Junior

Odeslat příspěvekod Bezec 6. 6. 2007 19:46

možeš použiť niečo podobné

Sub VypisNazvuPanelu()

Dim cb As CommandBar

Radek = 1

For Each cb In CommandBars

Cells(Radek, 1) = cb.Index
Cells(Radek, 2) = cb.Name
Cells(Radek, 3) = cb.Visible

If cb.Visible = True Then
cb.Visible = False
End If

Radek = Radek + 1
Next cb

End Sub


Podstata je vtom že si vypíšeš vlastnosť visible v akom stave je a potom jej stav zmeníš.

Dúfam že ti to pomôže nakoľko toto je písané pre anglickú verziu office resp. pre slovenskú

Celkom som to nevyskúšal ale malo by ti to pomôcť.
Bezec
Kolemjdoucí

Odeslat příspěvekod fatman 6. 6. 2007 22:00

yaya píše:Jo díky je to tam, ale má to chybičku. Když to skryju, tak to zůstane skryté napořád. Já bych potřeboval skrýt a po zavření souboru, se to vrátilo do původního stavu...dík
"Věřím v reinkarnaci, jakožto nutnou likvidaci materialisace lidské idealisace, bez vyloučení sensace!"
(J. Váchal, Krvavý román)
fatman
Junior
Uživatelský avatar

Odeslat příspěvekod Bezec 7. 6. 2007 20:45

no opačne z toho zápisu zistíš v akom stave si mal predtým všetky listy a zmeníš im hodnoty na pôvodnú hodnotu.

celé to zapíš do nasledujúcej procedúry

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim cb As CommandBar

Radek = 1

For Each cb In CommandBars

cb.Visible = cells(Radek,3)

Radek = Radek + 1
Next cb

End Sub
Bezec
Kolemjdoucí

Odeslat příspěvekod zajva 13. 6. 2007 08:17

http://zajva.lexico.cz/soubory/ExcelPandoraArchiv.zip (cca 4,5MB) - vhodné rady pro takovéto účely - free prográmek v MS Excel s databází odborné konference a možností zadávání dotazu na věci, které se ještě neřešily
Hobby - tvorba speciálních programů pro sázkaře kursových sportovních sázek - plně automatické tipování, tvorba sázek v systémech a zpětné vyhodnocování za celý sázkový týden zpětně od roku 2000.
zajva
Kolemjdoucí


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků