VISUAL BASIC WORKBOOK BEFORE SAVE EVENT 1

[STRATMAN1]

I am trying to use the Workbook BeforeSave Event (if appropriate) to prevent an excel worksheet from saving if a particular cell does not equal the number 1. Cant seem to get it to work. I also would like a message box that pops up if the value of this cell is not 1, but no yes/no choice is necessary: only info that the file wont save if the value in this cell is unequal to 1. All advice on code solution very much appreciated.Thanks, Stratman1

 

[brucegn]

Without seeing the code you are currently using it is hard to see what may not be working for you. But this should help you in the direction.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = (Range("A1") <> 1)
If Cancel Then
MsgBox "Workbook Cannot Be Saved", vbInformation, "Cannot Save"
End If

End Sub