MODUL Silme Makrosu Hk.

[petsiye]

Merhaba,

Bu kıymetli web sitesi sayesinde aşağıdaki VBA Koduna ulaştım. Kod sorunsuz görevini yapıyor, yani benim istediğim Modülleri siliyor ve Excel dosyasını kaydediyor. Fakat sorun şu. Dosyayı kapattıktan sonra, sildiğine bizzat şahit olduğum modüller, ben dosyayı yeniden açınca tekrar geri geliyor. Acaba sebebi ne olabilir ?

Yardım ve desteğiniz için şimdiden Teşekkür Ederim

Sub Delete_Module()
On Error Resume Next
Set VBEref = Application.VBE.ActiveVBProject.VBComponents
For Each VBComponent In VBEref

If VBComponent.Name = "Module1" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module2" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module7" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module41" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module50" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module9" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module48" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module55" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module49" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module60" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module5" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module30" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module6" Then
VBEref.Remove VBComponent
End If

If VBComponent.Name = "Module57" Then
VBEref.Remove VBComponent
End If


Next

ActiveWorkbook.Save

End Sub

 

[Muzaffer Ali]

Merhaba
ActiveWorkbook.Save satırı yerine thisworkbook.save dener misiniz.

Eğer düzelmezse dosyanızı ekleyin kontrol edelim.

 

[petsiye]

Merhaba
ActiveWorkbook.Save satırı yerine thisworkbook.save dener misiniz.

Eğer düzelmezse dosyanızı ekleyin kontrol edelim.

Muzaffer bey denedim. Kodların silindiğini gördüm evet, fakat dosyayı kapatıp yeniden açtım ve silindiğini bizzat gördüğüm modüller geri gelmiş maalesef

 

[petsiye]

Muzaffer bey denedim. Kodların silindiğini gördüm evet, fakat dosyayı kapatıp yeniden açtım ve silindiğini bizzat gördüğüm modüller geri gelmiş maalesef

Bu arada dosyam 3. kişilere ait kişisel bilgileri içeren bir dosya olduğu için maalesef ekleyemiyorum, lütfen yanlış anlamayın Muzaffer Bey

 

[Muzaffer Ali]

Dosyadaki bilgilerin tamamını silebilirsiniz.
kod kısmında hiçbir şey silmeyin.

 

[petsiye]

Dosyadaki bilgilerin tamamını silebilirsiniz.
kod kısmında hiçbir şey silmeyin.

DM' den dosyayı size gönderdim Muzaffer Bey

 

[Muzaffer Ali]

Module32 de bulunan "FARKLIKAYDETTEST" kodu içinde bulunan

ThisWorkbook.SaveAs Filename:="d:\Desktop\" & DosyaAdi, FileFormat:=xlExcel12

Satırı dosyayı masaüstüne farklı kaydediyor.
Orijinal dosyadaki kodların hiçbiri silinmemiş oluyor.
Orijinal dosyayı farklı kaydetmek yerine normal kaydetmek için o satırı silin yerine

ThisWorkbook.Save

bu satırı ekleyin.

Kodları çalıştırmadan önce dosyanızın mutlaka yedeğini alın. Çünkü tüm kodlar silinecektir.

 

[petsiye]

Anladım Muzaffer bey, Deneyeceğim fakat dosyayı sonradan Manuel istediğim bölgeye Manuel atmak zorunda kalıyorum. Zaten o yüzden FARKLIKAYDETTEST makrosunu oluşturmuştum. Fakat dediğinizi yapacağım o ayrı. Sanırım bahsettiğim şekilde yani farklıkaydettikten sonra bu işi yapabilmenin bir yolu yok. Doğru mu anladım acaba?

 

[Muzaffer Ali]

Eğer hem orijinal dosyadaki kodları silmek ve hem de farklı kaydet ile bir kopyasını almak isterseniz.

ThisWorkbook.SaveAs Filename:="d:\Desktop\" & DosyaAdi, FileFormat:=xlExcel12

satırını silmeyin aşağıdaki gibi bir üst satırda dosyayı kaydedebilirsiniz.

ThisWorkbook.Save
ThisWorkbook.SaveAs Filename:="d:\Desktop\" & DosyaAdi, FileFormat:=xlExcel12

yada

Aşağıdaki satır ile dosyanın bir kopyasını farklı kaydedersiniz. Orijinal dosya açık kalır.

ThisWorkbook.SaveCopyAs Filename:="d:\Desktop\" & DosyaAdi

 

[petsiye]

Sizi çok yoruyorum kusuruma bakmayın Muzaffer Bey, Orjinal dosyadaki kodları silmeden, kopya dosyada modül silmenin bir yolu yok mu şeklinde sormak istemiştim.

 

[Erkan Akayay]

Hiç kod olmayacaksa kopya dosyayı xlsx kaydedin. Bu kodlara hiç gerek kalmaz.

 

[petsiye]

Hiç kod olmayacaksa kopya dosyayı xlsx kaydedin. Bu kodlara hiç gerek kalmaz.

Hayır kodların bir kısmı duracak, bazıları silinecek, o yüzden xlsb kaydediyorum

 

[Muzaffer Ali]

Sizi çok yoruyorum kusuruma bakmayın Muzaffer Bey, Orjinal dosyadaki kodları silmeden, kopya dosyada modül silmenin bir yolu yok mu şeklinde sormak istemiştim.

Masaüstüne kaydedilen dosyada kodlar kalıyor mu? Onu kontrol ettiniz mi?

 

[petsiye]

Masaüstüne kaydedilen dosyada kodlar kalıyor mu? Onu kontrol ettiniz mi?

Hayır Muzaffer Bey, Her iki dosyada da kodlar silinmiyor. İlginç olan, dosyayı kapatmadan baktığımda silinmiş olması, dosyayı kapatıp açınca kodlar geri geliyor. Bu arada kopya dosyayı kapatmadan önce değişiklikleri kaydetmek istiyormusunuz sorusuna Hayır cevabı verince bu oluyor diyeceğim ama evet dediğimde bile aynısı oluyor.

Sub FARKLIKAYDETTEST()
'
' FARKLIKAYDETTEST Makro
'
Call Delete_Module

Application.ScreenUpdating = False
Application.Calculation = xlManual

Dim DosyaAdi As String
DosyaAdi = Format(Date, "dd mmmm yyyy dddd") & " " & " - TEST " & ".xlsb"
ActiveWorkbook.Save
ThisWorkbook.Save
ThisWorkbook.SaveAs Filename:="C:\Users\Monster\Desktop\PROJE TEST\" & DosyaAdi, FileFormat:=xlExcel12


Call ANATABLOYAGIT

Call Delete_Module
ActiveWorkbook.Save
ThisWorkbook.Save

Range("B2").Select
'
End Sub