Merhabalar,
Kodu kopyalayın.
Kullanmak istediğiniz sayfa sekmesine sağ tıklayıp "Kod Görüntüle"yi seçin.
Açılan VBA penceresinde Ctrl+V ile yapıştırın.
Excel sayfanıza dönün.
Dosyayı kaydedin.
Sub auto_open()
On Error Resume Next
org = ThisWorkbook.FullName
tarih = Format(Now...