Desativar o comando 'Cancelar' ao fechar pasta de trabalho

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim NameWord, Msg, Style, Title, Response
NameWork = ActiveWorkbook.Name
Msg = "Deseja salvar as alterações feitas a '" & NameWork & "'?"
Style = vbYesNo + vbDefaultButton1
Title = "Atenção!"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Salvar
Else
NãoSalvar
End If
End Sub

Sub NãoSalvar()
ThisWorkbook.Saved = True
End Sub

Sub Salvar()
ThisWorkbook.Save
End Sub

----------
Maiores esclarecimentos, acesse o link que está no título deste post !