CengizYurek adlı üyeden alıntı: mesajı görüntüle

Çok teşekkür ederim. XLSM için ne yapmam gerekir. Ben XLSM yazacağıma XLTM yazmışım kusura bakmayın

Sub KaydetButonuXLSM()
Dim dosyaAdi As String
Dim kayitYolu As String

' C1 hücresindeki değeri dosya adı olarak al
dosyaAdi = ThisWorkbook.Sheets(1).Range("C1").Value

' Dosyayı kaydedeceğiniz klasör yolu (örn. Masaüstü). Burayı ihtiyacınıza göre değiştirebilirsiniz.
kayitYolu = "C:\Users\KullaniciAdi\Desktop\" & dosyaAdi & ".xlsm"

' Dosyayı XLSM formatında kaydet
ThisWorkbook.SaveAs Filename:=kayitYolu, FileFormat:=xlOpenXMLWorkbookMacroEnabled

MsgBox "Dosya başarıyla XLSM formatında kaydedildi!", vbInformation, "Kaydetme Başarılı"
End Sub