can we prevent user using the "save as" function in excel 97..but they still can use the "save" func

Sub disabl()
This won't save all your problems but...

Application.CommandBars("File").Controls.Item("Save As...").Enabled = False
End Sub

Sub enabl()
Application.CommandBars("File").Controls.Item("Save As...").Enabled = True
End Sub

You should also add;
CommandBars("ToolBar List").Enabled = False

To disable the selection of the Save as icon
available via Right click / Tools / customize.

AND also
commandbars("Tools").controls.item("Customize...").enabled = false

Ivan

thanks david n ivan..but could u guys elaborately the easy way..n where will i have to paste this code?thanks again..

Re: thanks david n ivan..but could u guys elaborately the easy way..n where will i have to paste this code?thanks again..

Newby

Place this code under the Thisworkbook excel module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Enable_SaveAs
End Sub

Private Sub Workbook_Open()
Disable_SaveAs
End Sub

and then this code in a Module;

Sub Enable_SaveAs()
CommandBars("File").Controls.Item("Save As...").Enabled = True

'Disable Right click option on Toolbars
CommandBars("ToolBar List").Enabled = True

'To disable the selection of the Save as icon
'available via Right click / Tools / customize.
CommandBars("Tools").Controls.Item("Customize...").Enabled = True

End Sub

Sub Disable_SaveAs()

CommandBars("File").Controls.Item("Save As...").Enabled = False

'Disable Right click option on Toolbars
CommandBars("ToolBar List").Enabled = False

'To disable the selection of the Save as icon
'available via Right click / Tools / customize.
CommandBars("Tools").Controls.Item("Customize...").Enabled = False

End Sub

Ivan

thanks Ivan..u r the great ....n helpful.regards

Place this code under the Thisworkbook excel module Private Sub Workbook_BeforeClose(Cancel As Boolean)