Code, that disables save, save as and close commands

Each of the worksheets in my model use A1 as a control cell for any errors and inconsistencies. My aim is to disable save and close commands in case A1 is not equal to 0 in any of the worksheets.

The code I currently use for that purpose is as follows.

Please Login or Register  to view this content.

Something however is not OK and it gives errors. Furthermore, the disabling of close command is not covered.

Please help me update it.

Maybe like this:

Please Login or Register  to view this content.