Dans cette exemple suivant, un classeur ne peut être fermé que si une condition très spécifique est remplie.

Private Sub Workbook_BeforeClose (Cancel As Boolean)
     If Range ("A1"). Value = 1 Then
         Cancel = True
     End If
End Sub

Commentaires:

Le classeur ne peut être fermé que s’il existe une valeur différente de 1 dans la cellule A1. Dans ce cas, l’argument Cancel est défini sur False et le classeur est enregistré et fermé. Sinon, le classeur reste ouvert.