Bu dosya, bilgisayardaki herhangi bir dosyanın en son ne zaman kullanıldığını (son erişim tarihini) öğrenmek için hazırlanmış küçük bir makro uygulamasıdır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sayfa1: Sayfada formül veya veri bulunmaz; üzerinde CommandButton1 adlı bir komut düğmesi yer alır. Düğmeye tıklandığında makro çalışır.
- Module1: Test adlı makroyu barındıran VBA modülüdür.
Makrolar
- CommandButton1_Click: Sayfa1 üzerindeki düğmeye tıklandığında Test makrosunu çağırır.
- Test: Önce GetOpenFilename ile bir dosya seçme penceresi açar; tüm dosya türleri (*.*) listelenir. Pencere iptal edilirse makro herhangi bir işlem yapmadan sonlanır. Dosya seçilirse Scripting.FileSystemObject nesnesi oluşturulur, seçilen dosyanın DateLastAccessed özelliği okunur ve tarih ile saat bir mesaj kutusunda gösterilir.
Nasıl kullanılır
- Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
- Sayfa1 üzerindeki düğmeye tıklayın.
- Açılan pencereden son kullanım tarihini öğrenmek istediğiniz dosyayı seçin.
- Mesaj kutusunda dosyanın son erişim tarihi ve saati görüntülenir.