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

• #29342 Delila_1 veterán Belnir #29332

  Új Válasz 2015-11-04 14:01:30 #29342

  Ú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 Belnir #29332 üzenetére

  A füzetben egy lapot átnevezel, legyen a neve Rejtett.
  Az első sorba A1-től H1-ig beírod a címeket:
  Akció | Változás helye | Időpont | Változás előtt | Vált. után | Felh. neve | PC neve | Felh. domain

  Ezt a lapot elrejtheted.
  A füzetedben Alt+F11-re bejön a VB szerkesztő.
  Bal oldalon kiválasztod a füzeted nevét. Ha a név előtt + jel van, rákattintasz.
  Megjelenik (többek közt) a ThosWorkbook lap. Erre kattintasz. Jobb oldalon kapsz egy nagy üres felületet.
  Oda másold be a lenti makrót.

  Private Sub Workbook_Open()
  Dim lastrow As Long
  Application.ScreenUpdating = False
  
  With Worksheets("Rejtett")
  lastrow = .Range("A" & Rows.Count).End(xlUp).Row + 1
  With .Range("A" & lastrow)
  .Offset(0, 0).Value = "OPEN"
  .Offset(0, 1).Value = ThisWorkbook.FullName
  .Offset(0, 2).Value = Now()
  .Offset(0, 3).Value = "'*"
  .Offset(0, 4).Value = "'*"
  .Offset(0, 5).Value = Environ$("username")
  .Offset(0, 6).Value = Environ$("computername")
  .Offset(0, 7).Value = Environ$("userdomain")
  End With
  End With
  
  Application.ScreenUpdating = True
  End Sub

  Hagyj ki alatta egy sort. Válassz az Open helyett BeforeClose-t, majd Workbook_AfterSave-et a kép szerinti legördülőben.

  

  Kaptál két Private Sub - End Sub párost. Ezek közé másold be a fenti makró belsejét (a Private Sub és End Sub közötti részt).

  Makróbarátként kell mentened a füzetet.

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