Microsoft 365 impresion

[luc50*]

Bonjour,
je souhaite interdire l'impression de mon fichier Excel si ce dernier n'a pas était au préalable enregistré.
merci de votre aide

 

[fanch55]

Bonjour,
A mettre dans le module Thisworkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)


    If Not ThisWorkbook.Saved Then
        If MsgBox("Vous devez sauvegarder avant d'imprimer" & vbLf & _
                  "Voulez-vous sauvegarder ?", vbQuestion + vbYesNo) = vbYes Then
                    ThisWorkbook.Save
        End If
    End If
    
    If Not ThisWorkbook.Saved Then Cancel = True
    
End Sub