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

-----Original Message-----
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
.