Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

Stránky Předcházející 1 2

#26 Re: Writer » Expirace souboru (platnost) - VYŘEŠENO - MAKRO » 2. 2. 2012 00:02:42

jkucera70

Ještě na to zkusím mrknout. Ale zatím to vypadá tak, že asi zveřejním dva ceníky. Jeden v excelu, kde budete upozornění v záhlaví, že nemusí být platný.
No a hlavně tam dám ceník v OO, doporučím ke stažení bezplatný OO. Aspoň bude nějaká propagace.
Díky moc za vše

#27 Re: Writer » Expirace souboru (platnost) - VYŘEŠENO - MAKRO » 1. 2. 2012 13:13:06

jkucera70

Děkuji, ale tak to prostě nejde. Makro mám vytvořeno. Když se přes nabídku Správce maker podívám na daný soubor, tak nový modul je vidět v souboru, kde by mělo makro fungovat.
Když ale dám přiřadit makro k události Otevřít dokument, tak tam toto makro vůbec není.
Ještě jsem se díval znovu na postup. Někde bude problém v ukládání. Když makro vytvořím, uložím soubor, tak ho v makrech vidím. Ne však tak, abych ho mohl přiřadit události.
Jakmile soubor zavřu a znovu otevřu, tak makro uložené u tohoto souboru prostě není.

Problémem podle mě je, že soubor ukládám jako *.doc
Když jsem postup použil u *.odt, tak to funguje.

To je však problém, protože lidé v drtivé většině používají alespoň jako prohlížeč MS Office a pokud budu chtít, aby si před stažením ceníku instalovali OO, tak stránky asi opustí.
Nemáte nějaké řešení, např. s *.pdf, *.jpg apod.?
Děkuji moc

#28 Re: Writer » Expirace souboru (platnost) - VYŘEŠENO - MAKRO » 1. 2. 2012 11:50:07

jkucera70

Test makra vypadá dobře. Soubor se nyní opravdu zavře.Ale ...
Makro nejde přiřadit události, protože není vůbec v nabídce. Takže při otevření souboru se nic neděje.
Takže jsem vytvořil ještě jedno makro, které je uloženo mezi Mojemakra. Toto přiřadit jde, nicméně při při otevření se makro nespustí. Tak teď nevím, co mám udělat.

#29 Writer » Expirace souboru (platnost) - VYŘEŠENO - MAKRO » 31. 1. 2012 03:11:00

jkucera70
Odpovědí: 8

Prosím o návod na vytvoření expirace souboru Writer. Potřebuju omezit platnost souboru na asi 2 dny. Navic nejlépe, aby tento soubor nešlo uložit pod jiným jménem, kopírovat, tisknout atd. Zkrátka jen aby se uživateli zobrazoval na jeho PC po nějakou povolenou dobu.
Děkuji moc za pomoc j.

Někde jsem vyštrachal toto makro

Private Sub Workbook_Open()
PlatiDo = DateValue("31.1.2012") 'plati do 31.1.2012
Dnes = Date If PlatiDo < Dnes Then
MsgBox "Dokument je již neplatný. Stahněte si novou verzi na xxx.com, tento ceník bude uzavřen."
End If
ActiveWorkbook.Close False
End Sub

ale píše mi to chyba v syntaxi Neočekávaný symbol If a to na 3.řádku

Stránky Předcházející 1 2

Zápatí

Používáme FluxBB