Neviem sice o com pises, ale vyzera to zaujimavo :-) Hned ako pride kolega, co sa trocha rozumie do Visual Basicu a makier, dam mu to, nech sa na to pozrie a vyskusa to. diky, 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
This archive was generated by hypermail 2.1.2 : 28. 09. 2001, 14:23 CEST