disable save

[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

 

[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

 

[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.