Désactiver l'option "Annuler"

Bonjour J-Pascal,

Met ce qui suit dans le ThisWorkbook de ton classeur :


'-------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim X As VbMsgBoxResult

If Me.Saved = False Then
X = MsgBox("Voulez-vous enregistrer les " & _
"modifications apportées à " & _
ThisWorkbook.Name & ".", vbInformation + _
vbYesNo, "Attention")
Select Case X
Case vbYes
Me.Save
Cancel = False
Case vbNo
Me.Saved = True
Cancel = False
End Select
End If
End Sub
'-------------------------------------------




"j-pascal" <messages@venir.com> a écrit dans le message de groupe de discussion :
mn.4c9b7d96fc8fa150.81386@venir.com...
Bonsoir,

Je pensais (naïvement) qu'en mettant :

Application.EnableCancelKey = xlDisabled

devant :

ThisWorkbook.Close 'savechanges:úlse

... ça désactivait l'option "Annuler"

Il n'en est rien ;-(

Merci pour vos lumières,

jp

PS : l'idée étant d'avoir, au moment de la fermeture du classeur, une
boite de dialogue qui ne propose pas l'annulation !

Bonjour MichDenis,

Sans surprise, ton code fonctionne parfaitement bien dans un nouveau
classeur ; il me reste à le tester dans mon usine à gaz ...

Merci,

jp

Bonjour J-Pascal,

Met ce qui suit dans le ThisWorkbook de ton classeur :


'-------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim X As VbMsgBoxResult

If Me.Saved = False Then
X = MsgBox("Voulez-vous enregistrer les " & _
"modifications apportées à " & _
ThisWorkbook.Name & ".", vbInformation + _
vbYesNo, "Attention")
Select Case X
Case vbYes
Me.Save
Cancel = False
Case vbNo
Me.Saved = True
Cancel = False
End Select
End If
End Sub
'-------------------------------------------




"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.4c9b7d96fc8fa150.81386@venir.com...
Bonsoir,

Je pensais (naïvement) qu'en mettant :

Application.EnableCancelKey = xlDisabled

devant :

ThisWorkbook.Close 'savechanges:úlse

... ça désactivait l'option "Annuler"

Il n'en est rien ;-(

Merci pour vos lumières,

jp

PS : l'idée étant d'avoir, au moment de la fermeture du classeur, une
boite de dialogue qui ne propose pas l'annulation !