Příspěvky uživatele
< návrat zpět
haaa, tak ked toto niekto vyriesi tak to by som chcel vidiet :)
podla mna nie ... resp. su desifrovacie metody ale niesu univerzalne
staci prikaz:
Range("B3") = Range("B3") + 1
tu je to makrom:
eLCHa napsal/a:
už musím jít, ale i pokud bude jen na chvíli takové heslo načtené v kódu, tak si ho můžu stopnutím toho kódu zjistit (jak to udělám, to o mně nechtějte vědět, protože vám to neřeknu).
Nene - VBA není dobrý nástroj na takovéto věci ;)
no mna hned napadli 3 :))) ... ale bezny uzivatel to nezisti ... a dalsia vec zaheslovane xls dokumenty ? :))) to tiez nieje ziadny problem odheslovat
.. nic zlozite
- staci si urobit datab. tabulku ktora bude obsahovat stlpce: nazov dokumentu, heslo (SQL, TXT, XML, atd.)
- K tejto datab. Tabulke bude mat pristup len master user
- potom staci urobit makro ktore nacita datab. tabulu a bude zaroven otvarat dokumenty
tj. fyzicky sa hesla nebudu nenachadzat v makre ale v datab. tabulke
ono ich pustat zapinat ide ale nejde ich vytvarat, mazat, posuvat ... respektíve nejde ich setnut
ovsem ako pisal Jaze.m v Office 2013 uz to ide
lubo napsal/a:
http://www.pptfaq.com/FAQ00742_Toggle_a_design_grid_on_and_off.htm
Je to ono?
to je ta alternativa :) kde kazdy shape zataguje a pri konci by sa dali podla tagu vymazat ale pre mna nevyhovujuce
Set oSh = oSl.Shapes.AddLine(dBeginX, dBeginY, dBeginX, dEndY)
Al: vsetko som precital ... boli tam bud len alternativy ale nic co by s tou ciarou pohlo alebo ju vytvorilo :P a aj som sa docital ze to nejde :)) ... ale ja som tvrdohlavy tak skusam este dalej a opytam sa skusenejsich :)
Jaze.m:
With ActivePresentation
'Position is in points just as shapes
With .Guides.Add
a aj k tomuto linku som sa dopracoval ale je dost mozne ze to funguje len v Office 2013 .... ja mam Office 2010
v Office 2010 ActivePresentation neobsahuje Guides
hadam casom vo firme prejdeme na Office 2013 a tam to pouzijem :)
Ahojte,
Vedel by niekto ako sa daju vytvarat vo VBA tie ciary v powerpointe?? View/Show/Guides
Pivot Table:
kedze nieje priloha tak budu hadat
- asi pouzivate zle odkazovanie na sheet
malo by to vypadat asi takto:
Sheets("Sheet1").Cells(1, 1) = Sheets("Sheet2").Cells(1, 1)
povodne som to chcel tak spravit :) ale drzal som sa scenara
... tu je to na combobox:
skuste toto:
elCHa:
- mam taku skusenost ze uzivatelia maju radsej ked to je v novom zosite ako v tom istom
- ake to ma nevyhody? podla mna to je len 1s navyse
carifuk:
ja ze mate problem s otvorenim dokumentu :) moja chyba tu je makro na zaplnenie comboboxu s dvoma stlpcami
Dim ListItems As Variant, i As Integer
Dim SourceWB As Workbook
With Me.kodoperace
.Clear ' remove existing entries from the listbox
.ColumnCount = 2
.BoundColumn = 2
.ColumnWidths = "2.5 in; 2.5 in"
.List = Workbooks(promkodvyrobku).Sheets(kodvyrobkupol).Range("A2:B100").Value
End With
skuskte toto makro .... hadam som to dobre pochopil
Merlin99 takto je tazko nieco navrhnut ked nemame prilohu
to neznamena ze by sme chceli vidiet firemne udaje :) ale nejaku tabulku s fikti. udajmi a k nej output co si zelate ako vysledok
Uživatelské menu
\nMenu
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.
RSS nejnovější články