Désactiver l'option "Annuler"

Le
j-pascal
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 !
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #19527301
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"
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 !
j-pascal
Le #19577871
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" discussion :
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 !


Publicité
Poster une réponse
Anonyme