Makro ile yazılan kodların belli zaman sonra silinmesi

[okan32]

Makro ile yazılan kodların belli zaman sonra silinmesi için nasıl bir kod yazabiliriz.

 

[alicimri]

Dosyanızı yedekleyip dwneyin.

Private Sub Aktar()
If Date >= CDate("30.04.2018") Then
Dim vbCom As Object
    Set vbCom = Application.VBE.ActiveVBProject.VBComponents
vbCom.Remove VBComponent:=vbCom.Item("[COLOR="Red"]Module1[/COLOR]")
End If
'Kodlarınız...............
'.........................
End Sub

 

[Haluk]

Bilgi:

Ali Beyin önerdiği kodun çalışabilmesi için, kodun çalıştırıldığı bilgisayardaki Excel'de VBA projelerine erişimin açık olması kabul edilmelidir.

.

 

[alicimri]

Sn. Haluk
Erişime açık olup olmadığını nereden bakabiliriz. Benim PC de varsayılan olarak açıktı herhalde.
Tools/VBProject özelliklerinde ve Excel özelliklerinde göremedim.

 

[Haluk]

Ali Bey, benim 2010 versiyonundaki yolu aşağıdaki animasyonda belirtilmiştir.

Not: Güvenlik riski oluşturmaması için bu seçeneği hemen kapatmanızı öneririm.

 

[alicimri]

Sağ olun.......

 

[okan32]

Teşekkür ederim. Ali bey deneyeceğim. Belirtilen tarihte silinmesi için daha başka nasıl kod yazabiliriz.