Empêcher la sauvegarde ET la fermeture de la fenêtre Si cellulesRésolu

Question

Bonjour, 
Je souhaite obtenir de l'aide pour une macro dans ThisWorkbook qui empêche l'utilisateur de sauvegarder ou de fermer la fenêtre Excel SI les cellules A1 ou B5 ou C10 sont vides...
Merci d'avance

Cordialement, Soso   :-)

jordane45 · Answer

Bonjour.
Il faut regarder du côté de

 Private Sub Workbook_BeforeClose

Et des conditions.

jordane45 · Answer

Re,

Ce qui donne en vba :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Macro se déclenchant avant la fermeture du classeur
'Empecher de fermer la fenêtre Excel SI les cellules A1 ou B5 ou C10 sont vides
If Range("A1").Value = "" Or Range("B5").Value = "" Or Range("C10").Value = "" Then
  Debug.Print "Une des cellules est vide"
  'on sort de la macro
  Me.Saved = False
  Cancel = True
  Exit Sub
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A1").Value = "" Or Range("B5").Value = "" Or Range("C10").Value = "" Then
  Debug.Print "Une des cellules est vide"
  'on sort de la macro
  Debug.Print "Savegarde impossible: une cellule est vide"
  Me.Saved = False
  Cancel = True
  Exit Sub
End If
End Sub

Empêcher la sauvegarde ET la fermeture de la fenêtre Si cellules

2 réponses

Votre réponse

Discussions similaires