Code to prevent saving preventing me from saving code to prevent saving - LOL

[ktielens]

I am using the following code to prevent users from saving a document. The problem is, I can't save the code in the document either as it's preventing all saving. OMG!!! How funny.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Please don't use the save button"
Cancel = True
End Sub

Please help.

 

[ktielens]

Oh, I see.
I thought you already had that code in a book, and were now trying to add some other code but couldn't because it was preventing save.
I get it now.

I thought there was a simpler way, but you can put a keyword in some designated cell
And add an If to test that cell for a specific value
If that specific value is in the cell, proceed with the save, if Not, then cancel the save.

I used A1 on Sheet1 - adjust as needed.
If you put Go in that cell (Case sensitive) it will allow you to save.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Sheet1").Range("A1").Value = "Go" Then
    Sheets("Sheet1").Range("A1").ClearContents
    Exit Sub
End If
MsgBox "Please don't use the save button"
Cancel = True
End Sub

Thanks. I like how there are multiple ways of doing things. Your expertise is much appreciated!

 

[Jonmo1]

You're welcome.