Aktív témák

• #256 lapa veterán Jester01 #252

  2006-04-14 17:21:37 #256

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lapa

  veterán

  válasz Jester01 #252 üzenetére

  elindul akkor is, ha sima modulnak auto_open() a neve, nem szükséges különösebb varázslat.
  
  asszem pl. #253 nem is indulna el ha xlt-ként van mentve és duplakattolsz mert az talán workbook_new vagy ilyesmi. legalábbis így rémlik. meg be lehet rakni az elejére, hogy ha az eredeti fájlnév megváltozik akkor ne induljon el. hasznos ha tesztelni kell vagy ilyenek, mert adott esetben helyi tanusítvánnyal vagy öngyilkos módban (alacsony biztonság) nem jelenik meg az ''engedélyezés''...
  
  [Szerkesztve]

• #253 matekmatika tag Jester01 #252

  2006-04-14 01:23:28 #253

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  matekmatika

  tag

  válasz Jester01 #252 üzenetére

  Private Sub Workbook_Open()
  ut = (útvonal)
  mento = ''ment.xls''
  cel = ut & ''\'' & mento
  If Dir(cel) = '''' Then
  menteni = True
  Else
  ido = FileDateTime(cel)
  menteni = (ido < Date + Time - 7)
  End If
  If menteni Then
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveCopyAs cel
  Application.DisplayAlerts = True
  End If
  
  End Sub
  
  Bár nem az én művem
  Jah és úgy indul el automatikusan hogy a ''ThisWorkbook''-ba kell berakni. Gondolom ami kód oda van berakva, az automatikusan elindul...gondolom.
  
  [Szerkesztve]

Aktív témák