Új hozzászólás Aktív témák

• #23634 m.zmrzlina senior tag m.zmrzlina #23633

  Új Válasz 2014-10-09 12:51:03 #23634

  Új hozzászólás

  Ö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

  

  m.zmrzlina

  senior tag

  válasz m.zmrzlina #23633 üzenetére

  Az "A" munkafüzet két eseményében lévő makró. Természetesen lehet cizellálni őket (főleg az _Open-t) de az elv az ez.

  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayAlerts = False
  Dim wb As Workbook
  mappa = ThisWorkbook.Path & "\"
  For Each wb In Workbooks
  If wb.Name <> ThisWorkbook.Name Then
  wb.SaveAs Filename:=mappa & wb.Name
  wb.Close
  End If
  Next wb
  Application.DisplayAlerts = True
  End Sub
  
  Private Sub Workbook_Open()
  Workbooks.Open ThisWorkbook.Path & "\B.xlsx"
  Workbooks.Open ThisWorkbook.Path & "\C.xlsx"
  End Sub

Új hozzászólás Aktív témák