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

 

[wmtsub]

I get a dialog box asking of I want to save the workbook. it will not save so I have to hit cancel to continue. I tried to add more code but it is now giving me issues again when saving.
I open the file with the SHIFT key add code and it will not save. If I rem the cancel line then I can. Reopen and remove the rem and I can not save …..ARG. Is there another way to disable macros when opening the workbook?

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

 

[wmtsub]

Found the solution, I have to open the file from an existing open excel instance, not the actual workbook or shortcut

 

[Yongle]

Glad to hear that