VBA or Macro to stop workbook save

[tomcat1013]

Hi,

I'm new to VBA / Macro and need your help on how to prevent the Excel workbook from saving if any cell(s) in a column has a FALSE result from the formula executed in those cells.
The workbook can only be saved if all the cells in this column have TRUE result.

Thank you for your assistance.

 

[mrshl9898]

Try this module in ThisWorkbook (substituting Sheet! and A:A):

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)


   If Application.WorksheetFunction.CountIf(Sheets("Sheet1").Columns("A:A"), False) >= 1 Then
      MsgBox "Cannot Save at this time"
      Cancel = True
   End If


End Sub

 

[tomcat1013]

Try this module in ThisWorkbook (substituting Sheet! and A:A):

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)


   If Application.WorksheetFunction.CountIf(Sheets("Sheet1").Columns("A:A"), False) >= 1 Then
      MsgBox "Cannot Save at this time"
      Cancel = True
   End If


End Sub

Thank you so much mrshl9898. The code works like a charm.