How to disable SaveAs feature in Excel ?

[Anek]

hie,

We have many Excel files to work with in our office. I have adviced my colleges to edit the required data in these excel files and not to modify the name of the file. But after modifying, some colleges modify the name of the files as per their choice. I want to disable the Save As feature in Microsoft Excel. How can i do that ? any ideas....

[Macarenas]

For Excel 2003,

After you press ALT+F11, put the following VBA code in "Workbook" object

Private Sub Workbook_Open()
disablesaveas
End Sub

Then Add "Module" and paste this in
Sub disblesaveas()
CommandBars("File").Controls("Save As...").Enabled = False
End Sub

Then close the file and open it again

For Excel 2007 users,

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

[chroma]

Use the following macro code mentioned below. This macro will disable the Save As option in Excel. This macro prevents Saving under a different name or in a different location.

Private Sub Workbook_BeforeSave _

'This macro disables the "Save As" Feature in Excel
'This means that a user will not be able to save this
'workbook(file) under a different name or in a different location
'
'This MUST be placed in "ThisWorkbook" and NOT in a Module.
'
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI = True Then Cancel = True

End Sub

To use this Macro -

• Press Alt + F11 - to open the Visual Basic Window
• Locate the open excel file in the left pane of the window and double click "ThisWorkbook."
• Paste this code In the window that opens.
• Save and close the Visual Basic Window.

Note -
This macro runs in "ThisWorkbook" and not in a Module.

Putting the code there instead of inside a module is what will allow this code to run automatically before excel saves or closes.

[Raine]

Here's a useful code. I use this code for myself on several workbooks.
Note - this code must be placed in the ThisWorkbook object.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox "The 'Save As' function has been disabled." & Chr(10) & "Only 'Save' will work.", vbInformation, "Save As Disabled"
Cancel = True
End If
End Sub