Bloquer impression/sauvegarde si cellules vide

[yeti_yeti]

Bonjour à tous,

J'ai un petit soucis avec une macro à réaliser.
Je dois, dans un fichier, empêcher l'utilisateur d'imprimer ou de sauver un document tant que les cellule A1 et A2 sont vides. Dès qu'il y a le moindre caractère dans les deux cellules (et non pas une des deux), l'utilisateur pourra donc imprimer/sauver le document.

Une petite aide?

Merci

YeTi

 

[Guest]

Re : Bloquer impression/sauvegarde si cellules vide

Bonjour Yeti:

Avec ceci:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With Sheets("Feuil1")
        Cancel = .Range("A1").Text = vbNullString Or .Range("A2").Text = vbNullString
    End With
End Sub

A+

 

[tototiti2008]

Re : Bloquer impression/sauvegarde si cellules vide

Bonjour yeti yeti, Bonjour Hasco,

et le même code dans Workbook_BeforeSave...

 

[yeti_yeti]

Re : Bloquer impression/sauvegarde si cellules vide

Merci à tous pour votre aide, c'est parfait