DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
zaman = Format(Now, "dd.mm.yyyy hh:mm:ss")
Range("A1").Value = zaman
End Sub
Çok çok teşekkür ederim sayın halit3, çok i,şime yarayacak. Elinize, aklınıza sağlık, hayırlı çalışmalar dilerim.