Private Sub Workbook_BeforeClose(Cancel As Boolean)
Rep = MsgBox("Pas de possibilité de sauvegarde, voulez vous fermer le fichier?", vbYesNo + vbQuestion, "FIN DU PROGRAMME")
If Rep = vbNo Then
Cancel = True
Else
With Application.CommandBars("Standard")
.Controls("Enre&gistrer").Enabled = True
End With
With Application.CommandBars("Worksheet Menu Bar")
.Controls("Fichier").Enabled = True
End With
End If
End Sub