Dosyaya son erişim tarihi

[hezarpare]

Üstadlar şu şekilde bir sorum var. Excelde istediğim herhangi bir hücreye son kayıt tarihi ve saati atamam mümkün mü? Yada kayıt ettiğiniz bir excel çalışma kitabının özelliklerine baktığınız zaman orada son erişim tarihi ve saatini göreceksiniz bu tarih ve saati herhangi bir hücreye otomatik taşınmasını sağlayabilir miyiz? Nasıl yapacağım?

 

[Ömer]

Merhaba,

ThisWorkbook sayfasına kopyalayınız.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  [A1] = Format(Now, "dd/mm/yyyy - hh:mm")
End Sub

.

 

[hezarpare]

Merhaba,

ThisWorkbook sayfasına kopyalayınız.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  [A1] = Format(Now, "dd/mm/yyyy - hh:mm")
End Sub

.

Teşekkürler. Üstadım peki senden bir şey daha istesem. Excelden çıkışta kayıt edilsinmi uyarısı gelmeden kayıt etmesini istiyorum bunu nasıl yapacaım?

 

[Ömer]

Teşekkürler. Üstadım peki senden bir şey daha istesem. Excelden çıkışta kayıt edilsinmi uyarısı gelmeden kayıt etmesini istiyorum bunu nasıl yapacaım?

Bu şekilde deneyiniz..

ThisWorkbook sayfasına,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
    Application.Quit
End Sub

Eğer kaydetme zamınını da ekleyecekseniz,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   [A1] = Format(Now, "dd/mm/yyyy - hh:mm")
   ActiveWorkbook.Save
   Application.Quit
End Sub

.

 

[hezarpare]

Tamam üstadım. Teşekkürler, Allah razı olsun.