Make impossible to save changes

[Desu Nota from Columbus]

Is there a way through VBA to make a workbook impossible to save changes?

I need the workbook to be changeable, but the end result cannot be allowed to be saved. Is this possible?

 

[VoG]

Try this in the ThisWorkbook module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "You cannot save this workbook", vbExclamation
Cancel = True
End Sub

 

[sous2817]

I'm just curious...once you put something like VoG's suggestion in, how do you save your code so that it's in your sheet the next time you open it?

 

[Desu Nota from Columbus]

Try this in the ThisWorkbook module

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "You cannot save this workbook", vbExclamation
Cancel = True
End Sub

How do I add this to the workbook and make it permanent (save it)?

Kind of a paradox, no?

 

[VoG]

I'm just curious...once you put something like VoG's suggestion in, how do you save your code so that it's in your sheet the next time you open it?

Good point!

Press ALT + G to open the Immediate Window then enter

Application.EnableEvents=False

and press Enter

Then save the file.

Then use

Application.EnableEvents=True

 

[sous2817]

Thanks VoG! I helped someone a week or so back w/ a similar question but didn't think about your suggestion to save it. I'll have to tuck that away for future reference.

 

[VoG]

Press ALT + G to open the Immediate Window

That should be CTRL + G

 

[Desu Nota from Columbus]

Thanks for the fix