Farklı Kaydet Makro Sorunu

[Mehmet Sait]

Merhabalar,

Buradan bulduğum farklı kaydet kodlarını çalştırırken uyumluluk sorunu vermekte. Dosyamı farklı kaydederken makro içerebilen dosya halinde kaydetmesi için nasıl düzenlemem gerekir?

Sub Düğme11_Tıklat()
output = MsgBox("KAYIT YERİNİ SEÇİN", vbInformation)
    Dim fd As Office.FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   With fd
      .AllowMultiSelect = False
      If .Show = True Then
        pathSelected = .SelectedItems(1)
      End If
   End With
   If pathSelected = 0 Then
    output = MsgBox("Kayıt Klasörünü Seçin !!", vbCritical)
    GoTo Line1
   End If
Sheets("Devir").Select
    Range("D1").Select
    ChDir pathSelected
ActiveWorkbook.SaveAs Filename:=Selection.Value, _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Save
    MsgBox "...Dosyanız Oluşturuldu..."
Line1: End Sub

Yardımlarınız için teşekkür ederim.

 

[u.L.a.s]

kod içeriğinde bulunan

FileFormat:=xlExcel8 olarak yazılı olan kısmı FileFormat:=xlOpenXMLWorkbookMacroEnabled olarak değiştirmeniz yeterli olacaktır

 

[Mehmet Sait]

FileFormat:=xlOpenXMLWorkbookMacroEnabled

Denedim çalıştı. Teşekkür ederim.