Userform Üzerindeki "X" İşaretini İşlevsel Hale Getirmek

Merhaba,

Bu makro userform üzerineki "x" işaretini aktif hale getirmektedir.
Aşağıdaki kod yardımı ile "x" bu işarete bastığınızda userformda veya excelde
Değişiklikler kaydedilsin mi ? diye sorar.
Eğer kaydet derseniz kaydedip kapatır.Aynı zamanda belirlediğiniz yere yedek alır.
Kaydetme derseniz kaydetmeden çıkar herhangi bir işlem yapmaz.

Bu makro için herhangi bir buton vs. eklemenize gerek yok.Sadece kod bölümünde userformun kod kısmına geçiş yapıp aşağıdaki kodu eklemeniz yeterlidir.

Umarım işinize yaracaktır.
iyi günler

  Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) mesaj = MsgBox("Kaydetmek İstiyor musunuz ?", vbYesNo, "Onay") If mesaj = vbYes Then Unload UserForm1 Windows("DDA TT.xlsm").Visible = False ‘PARANTEZ İÇİNEKİ KISMA KENDİ DOSYA ADINIZI YAZINIZ ThisWorkbook.Save ‘yedek alma işlemi makro başlangıcı Dim DosyaSistemi ‘ ARŞİV ALIR Set DosyaSistemi = CreateObject("Scripting.FileSystemObject") Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String yer = "\\ DATA TT ARŞİV\" ‘PARANTEZ İÇİNEKİ KISMA ARŞİV YAPILMASINI İSTEİĞİNİZ ADRESİ YAZINIZ For i = 1 To Len(ThisWorkbook.Name) If Mid(ThisWorkbook.Name, i, 1) = "." Then Dosya = Mid(ThisWorkbook.Name, 1, i - 1) uzanti = Mid(ThisWorkbook.Name, i, Len(ThisWorkbook.Name)) End If Next Application.DisplayAlerts = False Yedek_Dosya_Adı = Dosya & Format(Now, " dd_mm_yyyy_hh_mm") & uzanti Kayıt_Yeri = yer & Yedek_Dosya_Adı On Error Resume Next If Dir(yer) = "" Then MkDir yer On Error Resume Next DosyaSistemi.CopyFile ThisWorkbook.FullName, Kayıt_Yeri ActiveWorkbook.Password = "" Application.DisplayAlerts = True ‘yedek alma işlemi makro sonu Windows("DDA TT.xlsm").Visible = False ‘PARANTEZ İÇİNEKİ KISMA KENDİ DOSYA ADINIZI YAZINIZ ThisWorkbook.Close True Else Unload UserForm1 Windows("DDA TT.xlsm").Visible = False ‘PARANTEZ İÇİNEKİ KISMA KENDİ DOSYA ADINIZI YAZINIZ Windows("DDA TT.xlsm").Visible = False ‘PARANTEZ İÇİNEKİ KISMA KENDİ DOSYA ADINIZI YAZINIZ ThisWorkbook.Close False End If End Sub