İyi günler ekteki örnek dosyada userform'dan çıkış yaptığım zaman "Dosyanızı yedeklemek istiyormusunuz ?" diye bir seçenek geliyor.Ben eveti seçtiğim zaman yedekleme yapıyor.Hayırı seçtiğim zaman ise yedekleme yapmadan sadece kayıt yaparak çıkış yapıyor.Benim istediğim Userformdan çıkış yapıp hiç bir seçeneği seçmessem 2 saniye içerisinde kayıt yapıp exel'den çıksın.Ayrıca yedekleme dosya adı,tarihi ve saati ile yedekleme yapsın istiyorum.Yardımlarınızı bekliyorum.Saygılar
Kod:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set ds = CreateObject("Scripting.FileSystemObject")
Kyt = "D:\YEDEK"
On Error Resume Next
If Dir(Kyt) = "" Then MkDir Kyt
Dosya = ThisWorkbook.Name
uzanti = Right(Dosya, InStr(1, StrReverse(Dosya), ".", vbTextCompare))
If MsgBox("DOSYANIZI YEDEKLEMEK İSTİYORMUSUNUZ ?", vbInformation + vbYesNo, "YEDEKLEME") = vbYes Then
Dim Yedek As String
Trh = Format(Now, "dd.mm.yyyy hh_nn_ss")
ThisWorkbook.Save
ds.CopyFile ThisWorkbook.FullName, Kyt & "\" & Trh & uzanti
Else
End If
If Excel.Application.Windows.Count > 1 Then
ThisWorkbook.Save: ThisWorkbook.Close
Else
ThisWorkbook.Save: Application.Quit
End If
End Sub