yedekledikten sonra kodları silmiyor

[şahins1]

Herkese İyi Günler Diliyorum,
Ekteki dosyayı her kapatışımda D sürücüsü altında Yedek_Örnek klasörüne yedekliyorum. Yedekledikten sonra yedek dosyadaki kodların silinmesini istiyorum ancak kod silme satırlarında sürekli hata veriyor.

İlgilenecek tüm arkadaşlara şimdiden teşekkür ediyorum.

 

[zafer]

Merhaba

Hata satırını ve verdiği hatayı yazarmısınız

Aşağıdaki linkine incelermisiniz.
http://www.excel.web.tr/f135/modullerin-icindeki-makrolaryn-deoi-tirilmesi-t66713.html

 

[şahins1]

Merhabalar,
Dosyayı isimlendirip yedekliyor.
Sonra "Workbooks.Open Filename:=ad" satırı ile yedek dosyayı açıyor.
Bir alt satırda "For Each component In Workbooks(ad).VBProject.VBComponents" döngü başında takılıyor.

İlginiz için çok teşekkür ederim. Kolay gelsin.

 

[şahins1]

Zafer Hocam,
Verdiğiniz adresi inceledim. Benim yapmak istediğimde orada aynı kodlarla verilmiş. Hata devam ediyor.

Kolay gelsin.

 

[zafer]

Merhaba

Aşağıdaki kodları çalıştırınız.

Fark sadece Workbooks(ad) yerine Workbooks(isim) olacak
ad=sebebide dosyayı açmak için D:\ZZZZZ.XLS
isim=açılan dosyayı kullanmak içinde ZZZZZ.XLS

olmalı

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ad, isim As String
If Dir("D:\") <> "" Then
    Kill "D:\*.*"
End If
 
ad = "D:\" & "yedek_" & Date & "_" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs ad
isim = "yedek_" & Date & "_" & ThisWorkbook.Name
 
Workbooks.Open Filename:=ad
    For Each component In Workbooks([B][COLOR=red]isim[/COLOR][/B]).VBProject.VBComponents
        If component.Type <> 100 Then
            Workbooks(ad).VBProject.VBComponents.Remove component
        Else
            Set modul = component.CodeModule
            modul.DeleteLines 1, modul.CountOfLines
        End If
    Next
Workbooks([COLOR=red][B]isim[/B][/COLOR]).Close True
End Sub

 

[halit3]

Herkese İyi Günler Diliyorum,
Ekteki dosyayı her kapatışımda D sürücüsü altında Yedek_Örnek klasörüne yedekliyorum. Yedekledikten sonra yedek dosyadaki kodların silinmesini istiyorum ancak kod silme satırlarında sürekli hata veriyor.

İlgilenecek tüm arkadaşlara şimdiden teşekkür ediyorum.

Alternatif olarak farklı bir dosya ekliyorum.

 

[şahins1]

Zafer Hocam,
Sizin dediğiniz değişiklikle denedim. Yine For döngüsü ile başlayan satırda hata veriyor. Halit3 Hocamın verdiği örnek dosyayı denediğimde de "For Each ModX In ActiveWorkbook.VBProject.VBComponents" satırında hata veriyor. Acaba benim atladığım bir şey mi var bilemiyorum. Yine de ilginiz için teşekkür ediyorum.

 

[halit3]

Zafer Hocam,
Sizin dediğiniz değişiklikle denedim. Yine For döngüsü ile başlayan satırda hata veriyor. Halit3 Hocamın verdiği örnek dosyayı denediğimde de "For Each ModX In ActiveWorkbook.VBProject.VBComponents" satırında hata veriyor. Acaba benim atladığım bir şey mi var bilemiyorum. Yine de ilginiz için teşekkür ediyorum.

Kodun bu bölümündeki tırnak işaretini kaldırın

  [COLOR=red][B] '[/B][/COLOR] On Error Resume Next

 

[zafer]

Merhaba

Ben denedim hiç hata vermedi. Yedek dosyanının içindeki modülleri sildi.

Klasör olarak gönderiyorum tekrar deneyiniz.

 

[şahins1]

Zafer ve Halit Beyler,
Her iki kod da çalışıyor. İlginiz için teşekkür ediyorum.

 

[halit3]

Zafer ve Halit Beyler,
Her iki kod da çalışıyor. İlginiz için teşekkür ediyorum.

Teşekkürler iyi çalışmalar