DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub kayittarihi()
MsgBox ActiveWorkbook.BuiltinDocumentProperties(11) & Chr(13) & _
ActiveWorkbook.BuiltinDocumentProperties(12)
End Sub
[LEFT]Sub kayittarihi()
[a1]=ActiveWorkbook.BuiltinDocumentProperties(11)
[a2]=ActiveWorkbook.BuiltinDocumentProperties(12)
End Sub[/LEFT]