Aktív témák

• #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