Disable Save and Save as in Excel 07

[Casperjo]

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?

[Janos™]

This was written in ExcelXP, but you should get an idea of what you need to do. Each control has a number assigned to it, and you would need to know that number to disable it.

Sub DisableMenuItems()

With CommandBars("File")

            .Controls(4).Enabled = False 'Save Button
            .Controls(5).Enabled = False 'Save As Button
            .Controls(15).Enabled = False 'Print Button
End With
        

End Sub