si je veut enregistrer

Le Forum
voila j'ai mis se code dans mon appli ,j'ai repris se code dans une autre appli,mais quand je quitte il me demande si je veut enregistrer,
pour quitter je click sur XPBUTTON2

Private Sub XPButton2_Click()
ActiveWorkbook.Save
Application.Quit
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
With Application
.CommandBars(1).Enabled = True
.DisplayFullScreen = False
.DisplayFormulaBar = True
.DisplayStatusBar = True
.OnKey "%{F2}"
.OnKey "%{F4}"
.OnKey "%{F8}"
'.OnKey "%{F11}"
.OnKey "^{w}"
End With
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
End Sub

Private Sub Workbook_Open()
UserForm10.Show
Application.WindowState = xlMaximized
With Application
.CommandBars(1).Enabled = False
.DisplayFullScreen = True
.DisplayStatusBar = True
.DisplayFormulaBar = False
.OnKey "%{F2}", ""
.OnKey "%{F4}", ""
.OnKey "%{F8}", ""
'.OnKey "%{F11}", "" 'enleve le ' si l'utilisateur ne dois pas entrer dans VBA
.OnKey "^w", ""
End With

With ActiveWindow
.DisplayHorizontalScrollBar = False 'A toi de voir si tu veux les scrolls met true à la place
.DisplayVerticalScrollBar = False 'A toi de voir si tu veux les scrolls met true à la place
.DisplayWorkbookTabs = False
End With
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = False

Application.CommandBars("Full Screen").Visible = False

ActiveWindow.SmallScroll ToRight:=-100 ' ça c'est en plus,c'est pour tirer le scroll à gauche
ActiveWindow.SmallScroll Down:=-100 ' ça c'est en plus,c'est pour tirer le scroll en haut

Range("a1").Select
End Sub

ma question est:
pourquoi il me demande si je veut enregistrer.