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

• #20920 Delila_1 veterán gyga #20919

  Új Válasz 2014-03-13 14:33:53 #20920

  Ú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

  

  Delila_1

  veterán

  válasz gyga #20919 üzenetére

  A ThisWorkbook-ba tedd

  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim v$
  Cancel = True
  v$ = InputBox("Adj nevet kiterjesztéssel a más néven történő mentéshez!")
  ActiveWorkbook.SaveAs v$
  ActiveWorkbook.Close
  End Sub

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