Nasıl bir ekleme yapmalıyım ki sayfa altındaki makroları silerek kayıt yapsın?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Ekli kodu sağolsun Hüseyin Çoban Hocam yazmıştı iki sene kadar önce. Kendilerine bir kere daha teşekkür ediyorum.

    yol = ThisWorkbook.Path & "\"
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=yol & isim & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Bu satırlara nasıl bir ekleme yapmalıyım ki sayfa altındaki makroları silsin, A1 hücresine gidip otursun ve .xls formatı ile kayıt edebilsin dolayısiyle makrosuz açılsın?
Saygılarımla

 

[Kardiyak]

    yol = ThisWorkbook.Path & "\"
    isim= "A"
    ActiveSheet.Copy
[COLOR="Red"]    Application.Goto Reference:=Range("a1"), Scroll:=True[/COLOR]
    ActiveWorkbook.SaveAs Filename:=yol & isim & [COLOR="Red"]".xls"[/COLOR], _
        FileFormat[COLOR="Red"]:=xlExcel8[/COLOR], CreateBackup:=False

 

[Tevfik_Kursun]

Merhaba,
İlginize teşekkür ederim. Çalıştı ama sayfa altındaki makroları silemedi. Onu da silmenin bir yolu var mı acaba?
Saygılarımla

 

[Kardiyak]

Sub deneme()
yol = ThisWorkbook.Path & "\"
isim = "A"
Application.DisplayAlerts = 0

ActiveSheet.Copy

Application.Goto Reference:=Range("a1"), Scroll:=True

ActiveWorkbook.SaveAs Filename:=yol & isim & ".xls", _
FileFormat:=xlExcel8, CreateBackup:=False
ActiveWorkbook.Close

Application.DisplayAlerts = 1
End Sub

kodda yazım yatası varmış düzelttim. Açık olan sayfayı yeni bir excel olarak kaydediyor. Bu yeni oluşan dosyada modül yada thisworkbook ta makro bulunmuyor. Eğer çok zorunlu değilse makrolarınızı modül içine yazarsanız bunlar sayfalarla aktarılmayacaktır. Diğer şekilde sayfa içine kaydedilen makroları silmek beni aşıyor.

 

[Tevfik_Kursun]

Merhaba,
Tekrar ilginize teşekkür ederim.

[COLOR="Red"]:=[/COLOR]

iki kere gelmişti ve onu düzeltmiştim. Sayfa içinde bırakmak zorunda kaldıklarımı da silmenin yolunu bulacağım. Mutlaka yolu vardır ve eminim arkadaşlar arasından bir bilen çıkar.
Saygılarımla

 

[dEdE]

Merhaba,
Aşağıdaki kodlarla aktif sayfada bulunan kodları silebilirsiniz.

Sub SayfaKoduSil()
    Set VBCodeMod = ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    VBCodeMod.DeleteLines 1, VBCodeMod.CountOfLines
End Sub

 

[Tevfik_Kursun]

Merhaba Sayın dEdE,

Run-time error '1004':
Visual Basic Projesi'ne programlı olarak erişim güvenli değil

şeklinde hata veriyor
Neden olabilir?
Saygılarımla

 

[dEdE]

Merhaba,

http://www.excel.web.tr/f48/kapaly-dosyada-makro-modul-vb-silme-t138717/sayfa2.html
http://www.excel.web.tr/showpost.php?p=467664&postcount=10
http://www.excel.web.tr/f48/visualbasic-projesine-programly-olarak-eri-im-guvenli-de-t5472.html

Daha fazlası için forumda arama yapabilirsiniz.