disable save

J

jon

is there any way to disable the save facility on a
program so that even if someone changes the layout of a
shared program or deletes a sheet, there's no way that it
is permanent as it won't save

tia
 
E

eDGAR

Hi

This is not bullet proof but it works for me. Place in
workbook module.

'Code to cancel save on workbook

'Private Sub Workbook_BeforeClose(Cancel As Boolean)
'appplication.EnableEvents = False
'Me.Save
'appplication.EnableEvents = False
'End Sub

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

HTH

Edgar
 
V

Vasant Nanavati

There's no foolproof way. The best thing to do would be to save the file as
read-only with a password, so that it can only be saved under a different
filename.
 
Top