Çalışma kitabını kapatırkan A1 hücresine son değiştirilme tarihi bilgisini yazan VBA kodudur.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
IlkSayfaninA1HucresineTarihAt
End Sub
Sub IlkSayfaninA1HucresineTarihAt()
Sheets(1).[A1] = "Son Değiştirilme Tarihi: " _
& Format(Date, "dd mmmm yyyy")
End Sub