Prevent re naming of a workbook

[Paul999]

Is it possible to prevent users re naming a work book when saving, I have a work book which many people update recently someone saved it with a slightly different file name there by creating two it was a nightmare to workout which was the most up-to-date.

Is there anyway to prevent this.

Thanks in advance

 

[ADAMC]

Hi something like:

Private Sub Workbook_Open()
Application.CommandBars("File").FindControl(ID:=748).Enabled = False
Application.CommandBars("File").FindControl(ID:=3).Enabled = False
End Sub

this will remove the save as and save options from the 'file menu'

then put them back in a before close event and peform a save...?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("File").FindControl(ID:=748).Enabled = True
Application.CommandBars("File").FindControl(ID:=3).Enabled = True
ActiveWorkbook.Save
End Sub

Edit*

Heres a very good overview of the subject:

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

This also shows you how to disable CTRL + S you could add this to the open event and switch back on in the close event.

 

[Paul999]

thanks

excelent thanks for your help