How to Prevent Save or Save As for Excel File by VBA

This code works only one time.

When I close the workbook and open again, the Code is missing in ThisWorkbook - View Code

And it is enables for edit and save changes.

Please advise.