Disabling Save Button

[Andrew]

Is there a feature of Excel or a macro that I could write
to disable 'save' (both the icon and the drop down
option)?









FYI - The following VBA code works for disabling the Save
As, I just wanted to disable all save capabilities.

Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").FindControl
_
(ID:=748, Recursive:=True).Enabled = False
End Sub

Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").FindControl
_
(ID:=748, Recursive:=True).Enabled = True
End Sub

 

[Ron de Bruin]

Hi Andrew

http://www.rondebruin.com/menuid.htm

See the VBA help for Application.onkey for the shortcut Ctrl-S

Another option is this
You can use this in the Thisworkbook module also (Save and Saveas)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Cancel = True
End Sub