Disable Save/SaveAs in 2007

Im currently using this code, however theres multiple ways of doing this.

However, it doesn't encompass the Save feature. Just save as. I need both disabled. Either by BeforeSave event or by disabling them from the menu. The latter would be even better.

Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox "The 'Saving' functions have been disabled." & Chr(10) & "Please save via the 'Save Button' provided in the Grid", vbInformation, "Save As Disabled"
Cancel = True
End If
End Sub