Conditional save file

[Okoth]

Is there any way to prevent saving a file when a certain condition in the sheet has not been met?

So, let's say A1 should have the word "red" before anyone can save the file.

 

[FDibbins]

You would need VBA for this

 

[Okoth]

You would need VBA for this

Yes I know

 

[Okoth]

Do you know how to do this with VBA?

 

[Fluff]

How about

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

    If Sheets("Details").Range("a1") <> "Red" Then
        MsgBox "Cell A1 does not equal Red, so the workbook has not been saved"
        Cancel = True
    End If

End Sub

It needs to go in the ThisWorkbook module.
Change the Sheet name & range accordingly

 

[Okoth]

Thanks Fluff, that is what I needed.

 

[Fluff]

Glad to help & thanks for the feedback