Prevent saving workbook

[wmtsub]

So I thought if I placed this code into the Workbook Module it would prevent the workbook from being saved or saved as. What did I miss?


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
Application.DisplayAlerts = True

End Sub

 

[Scott T]

You need to stop the saving of the file

[COLOR=#141414][FONT="open sans"]Cancel = True[/FONT][/COLOR]

 

[wmtsub]

Thank you, yes I tried that but I could not save the wb with the code in it....



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub<strike></strike>

 

[Yongle]

You have not actually cancelled the save in your code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Before you become frustrated, remember to disable macros BEFORE trying to save the file with the second procedure above
I am sure you can work out why

 

[Yongle]

yes I tried that but I could not save the wb with the code in it....

Chicken and the egg scenario!!

Close the file
To disable macros hold the SHIFT key down before double clicking on the file name when opening the file
Amend the code
Save the file

 

[wmtsub]

Did not know about the Shift open. Tried that and it did stop running macros but I still could not save the code. Do I need to Shift while saving too?

 

[Yongle]

This is what I do, and it works for me ...

Hold {SHIFT} as the workbook is opened
Amend the macro
Save as normal

 

[wmtsub]

That is what I did but it does not save. Tried holding the shift UNTIL the book was fully open too and still did not work. Any ideas?

 

[wmtsub]

So I tried it with only one statement and it worked. This code is the issue, do I need it?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub​

 

[Yongle]

Maybe not - test it

Specifically what happens after you amend something in the workbook and then try to close the workbook (using X in right corner) ?