A1 deki isimle makrolar silinmiş halde farklı kaydette sorun

[lokman10]

Merhaba,
Ben excel 2007 kullanıyorum.
Makro1 :
A1 deki isimle yeni bir dosyaya yine uzantısı xslm olarak farklı kaydediyor Makroları siliyor (100 e kadar)
Bu makrosuz haliyle makroda kayıt yaptıramıyorum
Manuel kayıt yapıyor. veya dosyayı kapatı tıkladığımda
" 123.xlsm dosyasında yaptığınız değişiklikleri kaydetmek istiyormusunuz ? "
komut mesajı çıkıyor "evet" dersem makrosuz kaydetmiş oluyorum. Aynı işi yani makrosuz kaydetme işini Makro1 in altına ilave edeceğim bir kod ile (Makro ile) yaptırmak istiyorum. Ama bir türlü yapamadım.

Bu konuda bilen arkaşlardan yardım rica ediyorum.
Bu dosyada makro1 adıyla kayıtlı makro sonuna ne yazmam gerekiyor.
rar olarak dosyayı ekledim.Teşekkürler..
Ekli dosyayı görüntüle dene15.rar

 

[uzmanamele]

Merhaba

syn halit3'ün bu konudaki çalışmalarını sitede bulabilirsiniz.

Win7 işletim sisteminde vba içeriğini silme problemi çıkabiliyor.
Bunun yerine, dosyayı .xlsx formatında kaydetmek en kestirme yoldur.

Sub yedekle()
Application.DisplayAlerts = False
ThisWorkbook.Save

    Dim Sheet As Worksheet, MyFilePath$
    Sheets("Sayfa1").Select
    MyFilePath$ = ActiveWorkbook.Path & "\"

    ActiveWorkbook.SaveAs Filename:=MyFilePath$ & ActiveSheet.Range("A1").Text _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Application.DisplayAlerts = True
ThisWorkbook.Close
End Sub

 

[lokman10]

Öncelikle vakit ayırdığınız için çok teşekkür ederim.
Allah razı olsun çok daha kısa ve amaca uygun olmuş.
xlsx uzantısını makro ile xlsm yapabilir miyiz ?