Potreboval by som nazor plebsu. Premyslam, ze na stare kolena skusim predsa len nejaky marketing. Idea je tvorit idealne vtipne videa, ktore prezentuju firmu a zaroven zanechaju v divakovi nie az tak reklamny dojem, ale skor si ten pribehovy. Prva cast je o klasickom vikendovom utoku, ktory sa bezne deje, cize utocnik najde otvoreny deravy Windows server, pocka si na vikend a v piatok v noci zacne so sifrovanim jeho obsahu. Vacsinou este v sobotu sifrovanie bezi, ale prvi zamestnanci prichadzaju do prace az v pondelok, ked najdu nepouzitelne programy, databazy, zrazu nic nefunguje. Dnes uz nie je je vacsinou cesta ako data desifrovat, takze bud sa zplati vydieracovi (neodporucam), alebo sa obnovia data a cely server zo zalohy. Samozrejme s tym, ze sa aj uzavrie diera, ktorou sa utocnik dostal dnu.
Přejít na článek
máš 2 možnosti:
1. použiješ příkaz VBA na předání klávesových úhozů SendKeys (podle mě ne moc vhodné, tohle používám až v nouzi nejvyšší)
2. použiješ metodu UndoAction
Pro bližší informace použij nápovědu VBA, jsou tam i ukázky kódu
Díky, bohužel jsem zjistil, že to nejde použít resp. nevím jak na to.
Potřebuju vybrat zadanou oblast listu, zrušit v ní barevné zvýraznění buněk (barva stínování), tu oblast vytisknout jako výběr a pak se vrátit k původním údajům s barevným zvýrazněním buněk.
Bohužel jsem zjistil, že tiskem se mi uloží stav, který je vytištěn (tedy bez zvýraznění) a Undo se vyprázdní a není už dostupné.
Tak budeš muset zvolit jinou metodiku, tohle je jak drbání levou rukou za pravým uchem.
Třeba vybrat oblast, zkopirovat do nového listu, tam zrušit barevné zvýraznění, vytisknout jako výběr, zrušit list.
Chyba, omlouvám se. Zkusil jsem to odkrokovat.
Zjistil jsem, že Selection.Interior.ColorIndex = xlNone nevytvoří možnost kroku zpátky. Krok zpět není po této funkci aktivní.
Range("A1:L21").Select
Range("L21").Activate
Selection.Interior.ColorIndex = xlNone
ActiveWindow.UndoAction
k "Třeba vybrat oblast, zkopirovat do nového listu, tam zrušit barevné zvýraznění, vytisknout jako výběr, zrušit list."
tady by šel použít tag Cite (host)
Bohužel tudy cesta taky nevede.
I když dám nejdříve pouze zkopírovat hodnoty a pak formátování, tak formátování nepřenese šířku a výšku buněk.
Takže to vzdávám.
edit:
pobavím se ještě sám se sebou.
Dobrá byla zmínka "Tak budeš muset zvolit jinou metodiku"
Po tisku jsem tam ty barvy znovu nasázel. Takže Pat a Mat by řekli "A je to".
Díky.
Tak ještě jinak....
Zkopírovat aktuální list do nového listu, pak teprve vybrat oblast, tam zrušit barevné zvýraznění, vytisknout jako výběr, zrušit list.
taky lze.
Díky