I have entered several codes and cannot get this to work.
What I need to do is, write a code that will permanantly disable Save and Save As (from menu, shortcuts, etc) on this one workbook. The workbook consists of several formulas that my associates need to be able enter data and tally the answers yet, not be allowed to save anything they edit. This one workbook is used alot and by several people.
What i have done so far is enter this code(one of many that ive tried, yet this was the only one that remotely did anything)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Following line will prevent all saving
Cancel = True
' Following line will prevent the Save As Dialog box from showing
If SaveAsUI Then SaveAsUI = False
End Sub
So this code worked until i exited out of the workbook and went back in. I made a change and clicked save and it saved.
How can i disable these to do what i need them to do?
Bookmarks