Don't save Excel spreadsheet if errors found. 1

[JazzyLee]

Is there a way to warn a user that there are errors on a spreadsheet when trying to save it and then stop the save process? I would like to keep the spreadsheet from being saved until all required fields have valid data in them. I am working on Excel 2000.

 

[VBslammer]

Add the BeforeSave procedure to the workbook so you can check the required fields before allowing the save:

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

  'code to check input...

  If blnErrors = True
    
    MsgBox "An error was detected, please try again."
    Cancel = True

  End If
End Sub

VBSlammer

Unemployed in Houston, Texas

 

[JazzyLee]

Thanks for the info. I almost had it working by the time I got this response. This cleared up what I was NOT doing right and of course, helped me in adding a call subroutine to the BeforeClose trigger. Now I have my Excel sheet holding for correction even if the "X" is clicked. What would we do without "WIZARDS" like you?