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

• #29425 bsh addikt Belnir #29421

  Új Válasz 2015-11-06 15:57:31 #29425

  Ú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

  

  bsh

  addikt

  válasz Belnir #29421 üzenetére

  azért az jelentősen más, nem csak amolyan "átírjuk oszt' jóvan"
  itt egy ilyen faék megoldás. az egyszerűség kedvéért a log fájlt először külön hozd létre (egy üres excel fájl) és a megfelelő elérési utat írd bele.
  Private Sub Workbook_Open()
  Call WriteToLog(Application.UserName, "Megnyitás")
  End Sub
  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  'Call WriteToLog(Application.UserName, "Bezárás")
  End Sub
  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  'Call WriteToLog(Application.UserName, Sh.Name & " változtatás")
  End Sub
  Private Sub WriteToLog(ByVal Who As String, ByVal What As String)
  Dim NewXL As New Excel.Application
  NewXL.Visible = False
  Dim Log As New Excel.Workbook
  Set Log = NewXL.Workbooks.Open("Z:\logfájl\elérési\útja\log.xlsx") 'A fájlt először kézzel hozd létre!
  Dim LastRow As Long
  LastRow = Log.ActiveSheet.Cells(Log.ActiveSheet.Rows.Count, 1).End(xlUp).Row
  Log.ActiveSheet.Cells(LastRow + 1, 1) = Format(Now, "YYYY.MM.DD hh:mm:ss")
  Log.ActiveSheet.Cells(LastRow + 1, 2) = Who
  Log.ActiveSheet.Cells(LastRow + 1, 3) = What
  Log.Save
  Log.Close
  Set Log = Nothing
  Set NewXL = Nothing
  End Sub

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