RE,
Sten, quand on clique sur la croix Cancel est = à false , on remets Cancel à true comme cela le classeur n'est pas fermable
Private Sub Workbook_BeforeClose(Cancel As Boolean)
if cancel=false then msgbox"Veuillez utilser le bouton prévu à cet effet" : cancel=true
End Sub
A+++