Zdar a silu Cigas, dna 28.09.2001 si napisal(a): > Asi takato moznost nie je, ale pre istotu sa spytam. > Je nejaka moznost v MS Office2000 ukladat subor na dve rozne miesta > naraz? > Nic take som tam zatial neobjavil, ale co ak?Viem, ze je tam moznost > ukladat > subor zaroven so zaloznou kopiach, ale ta sa vytvori v adresari s orig. > suborom a ja by som ho chcel ukladat na dvoch fyzicky oddelenych > miestach > pomocou jedneho ulozenia. > Napr. v c:\Moje Dokumenty\subor.xls a v //fileserver/maro/doc/subor.xls > > Povodne som to ukladal na fileserveri, ale raz sa mi stalo ze nebol > dostupny > a ja som tam mal data, ktore som surne potreboval. Tak som to presunul k > sebe, a zasa bol problem, ze sa k tym datam nevedeli dostat ludia, kt. > si > tam chceli nieco pozriet a ja som mal vypnute PC. Takze preto teraz > patram > po takomto rieseni. Zatial to robil klasicky rucne, par krat do tyzdna. > Nejake komercne sofistikovane riesenie sa neoplati aplikovat, lebo ide o > par > dokumentov. > > maro takze je potrebne vytvorit si vlastny doplnok xla subor v ktorom musia byt: 1 jeden normalny bas modul a v nom: '*************************** Public X As New myClas Sub Auto_Open() Set X.App = Application End Sub '*************************** 2. jeden class modul s nazvom (v tomto pripade) myClas a v nom: '******************************************** Public WithEvents App As Application Private Sub App_WorkbookBeforeSave _ (ByVal Wb As Excel.Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) 'cestu treba zmenit!!! Wb.SaveCopyAs FileName:="cesta" & Wb.Name End Sub '****************************************** no a cele to ulozit ako xla zavriet excel, nanovo otvorit v menu nastroje (tools) Doplnky (accesories) vybrat ten xla a o ukladanie je postarane -- s pozdravom AleXXX
This archive was generated by hypermail 2.1.2 : 28. 09. 2001, 13:12 CEST