Kaydederken Dosya ÖZelliklerden belirlenen özellikleri belirlemek

[hsayar]

Merhabalar

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'thisworkbook.
End Sub

Kaydet tuşuna basıldığında
dosya menüsü özellikler komutu ile çıkan
iletişim penceresinin özet sekmesindeki açıklamalar alanına

aaa = "Hüseyin sayar"
bbb = Format(Time, "dd/mm/yyyy - mm:hh:ss")
ccc = "muhtelif"

aaa & vbLf & bbb vbLf & ccc

şeklinde yazdırmak mümkünmüdür

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
aaa = "Hüseyin sayar"
bbb = Format(Time, "dd/mm/yyyy - mm:hh:ss")
ccc = "muhtelif"
ActiveWorkbook.BuiltinDocumentProperties.Item("Comments") = aaa & Chr(10) & bbb & Chr(10) & ccc
End Sub

 

[hsayar]

hocam teşekkür ederim ....
Eski açıklmayı silip yenisini eklemk nasıl olmalı peki

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strYazar, strAcklm As String, dteAcklm As String
strYazar = "Hüseyin sayar"
strAcklm = "Bu eklenti excel.web.tr üyelerinin çalışmalarından derlenmiştir."
dteAcklm = Format(Time, "dd/mm/yyyy - mm:hh:ss")

[color="red"][B]ThisWorkbook.BuiltinDocumentProperties.Item("Comments")  = ""[/B][/color]
  ThisWorkbook.BuiltinDocumentProperties.Item("Comments") = strYazar & Chr(10) & strAcklm & Chr(10) & strAcklm

End Sub

 

[hsayar]

Günaydın,
Değerli hocalarım Dosyanın özellikler bölümüne yer alan açıklmaları boş hale getirmenin yolu varmıdır.

 

[Levent Menteşoğlu]

Aşağıdaki satır iş görmüyormu?

ThisWorkbook.BuiltinDocumentProperties.Item("Comments") = ""

 

[hsayar]

Görmedi hocam denedim.
Birleştirek eklediklerimiz hep eskisinin altına ekliyor.

 

[Levent Menteşoğlu]

Görmedi hocam denedim.
Birleştirek eklediklerimiz hep eskisinin altına ekliyor.

Bence yukarıdaki satır işinizi görür, bir yerde hata yapıyorsunuzdur.