اغلاق اليوزرفورم و ملف الاكسل

[1anass]

السلام عليكم

 اريد التعديل على هذا الكود لأجل اغلاق اليوزرفورم و ملف الاكسيل في وقت واحد 

لانه في المثال  المرفق عندما يكون ملفين مفتوحين او اكثر  لا يغلق اليوزرفورم بل يختفي , ثم يظهر عند اغلاق الملفات الاخرى

ارغب ان يغلق اليوزرفورم و ملف الاكسل الخاص به فقط في حالة تواجد ملفات اخرى مفتوحة 

 

شكرا لكم 

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim Rep%
If Application.Workbooks.Count = 1 Then
  If Application.Visible = False Then
    Rep% = MsgBox(prompt:="La fermeture du UserForm implique que l'application Excel soit fermée." & vbLf & _
    "Voulez-vous réellement fermer l'application Excel ?", Buttons:=vbOKCancel)
    If Rep% = vbOK Then
      If Not AppClass Is Nothing Then Set AppClass = Nothing
      ThisWorkbook.Save
      Application.Quit
    Else
      Cancel = True
    End If
  End If
Else
  UserFormVisible = False
End If
End Sub

 

Exemple.xlsm