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