Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Bloque Cancel
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Bloque Cancel
End Sub
Sub Bloque(Cancel As Boolean)
With Sheets("Carte")
If .OLEObjects("CommandButton1").Object.Caption Like "Arr*" Then
Cancel = True
.Activate
MsgBox "Cliquer sur 'Arrêter la mémorisation' !"
End If
End With
End Sub