Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
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" a écrit dans le message de groupe de 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 !
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 !
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" a écrit dans le message de groupe de 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 !
j-pascal
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" a écrit dans le message de groupe de 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 !
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 !
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" a écrit dans le message de groupe de 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 !