VBA Projesindeki sayfa kodlarını silmek

[Muhammet Okumuş]

Arkadaşlar merhaba,
Kod yardımıyla bir sayfayı çalışma kitabı olarak kaydetmek istiyorum. Ama sayfada kodlar yazılı iken bu sayfayı kaydetmeme izin vermiyor.
Sayfayı çalışma kitabı olarak kaydederken sayfa içindeki kodları silebilir miyiz?



2. görseldeki kod sayfayı keydetmeye engel oluyor.

 

[Biolightant]

Merhaba,

Ama sayfada kodlar yazılı iken bu sayfayı kaydetmeme izin vermiyor

Application.DisplayAlerts = False

' Kodlarınız

Application.DisplayAlerts = True

Bu şekilde bir test edermisiniz

 

[Muhammet Okumuş]

Onu denemiştim olmuyor. Kodlar modüldeki kodu çağırıyorsa hata veriyor.

 

[Biolightant]

Kodlar modüldeki kodu çağırıyorsa hata veriyor

Pardon kodlarınızı görmediğimden onu denememiştim,
diğer arkadaşlar yardımcı olacaktır, kolay gelsin.

 

[tukayf]

Sub SayfayiKaydet59()
    Dim ws As Worksheet
    Dim vbComp As Object
    Dim dosyaAdi As String
         
         Set ws = ThisWorkbook.Sheets("Sayfa1")
       
    Set vbComp = ThisWorkbook.VBProject.VBComponents(ws.CodeName)
    vbComp.CodeModule.DeleteLines 1, vbComp.CodeModule.CountOfLines
     
    dosyaAdi = "C:\Users\Tuncer\Desktop\Teklifler\sayfa1.xlsx"
       
    ThisWorkbook.SaveAs Filename:=dosyaAdi, FileFormat:=xlOpenXMLWorkbook
        MsgBox "Sayfa kaydedildi ve kodlar silindi.", vbInformation
End Sub

Evren Gizlen Hocamızın bana yaptığı bir çalışmadan aldım. Umarım çözüm olur sizlere.

 

[Muhammet Okumuş]

Cevabınız için teşekkür ederim. Bu kodlar dosyayı farklı ad ile kaydedip kodları siliyor. Benim istediğim kod içeren sayfayı ayrı çalışma kitabı olarak kaydedecek ve sayfa içinde kodlar olmayacak. Gecenin bu saatinde uğraştım çözemedim bir türlü. Belki de yoruldum artık ondan bir şeyleri göremiyorum.

 

[Muhammet Okumuş]

Sonunda başardım. Önce kodları silip, sonra sayfayı kopyaladım. Çok basit gibi ama çok zamanımı aldı.
Sn. tukayf ve Evren hocama sonsuz teşekkürler.