Kendi kendini yok eden yazı.

[cengizhan09]

Arkadaşlar excel yada word de makrolarla açılan bir sayfadaki yazıların belirlenen bir süre sonra kendiliğinden silinmesini sağlayabilirmiyiz?

Teşekkürler.

 

[abazya]

Böyle makrolar var.Arama motoruna başlığını, yazarına leventm,bölümüne makrolar yazarsan bulursun.

 

[cengizhan09]

Sayın abazya aradım ama açılan konu başlıklarında bunla ilgili bilgi bulamadım. Eğer bildiğin bir yazı varsa onun linkini yazarmısın.

Teşekkürler.

 

[abazya]

[vb:1:485c8bbffc]Sub temizle()
On Error Resume Next
For a = 1 To Sheets.Count
Set s1 = Sheets(a)
adr = s1.Cells.SpecialCells(xlCellTypeFormulas, 23).Address
For Each hucre In s1.Range(adr)
s1.Range(hucre.Address) = hucre.Value
Next: Next
say = ActiveWorkbook.VBProject.VBComponents.Count
For b = 1 To say
Set ad = ActiveWorkbook.VBProject.VBComponents.Item(b)
adst = ad.codemodule.CountOfLines
ad.codemodule.DeleteLines 1, adst
Next
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("Module1")
ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents("UserForm1")
End Sub
[/vb:1:485c8bbffc]

Kodlar bunlar olması gerekir. linkide inceleyin tam okumadım.

http://www.excel.web.tr/viewtopic.php?p=67449#67449