Excel saving of files

Hi Jon,

Thank you for your question and welcome to the forum.

The following VBA code will disable the Save As feature when Office button Save As is used or the keyboard shortcut Function key F12:

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

You need to copy the code above into the VBA window and paste it into the Workbook before save event. Please use the link below to try this procedure:

1. Copy the Excel VBA code in this response from Private Sub to End Sub.

2. Select the workbook in which you want to store the code.

3.Hold the Alt key, and press the F11 key, to open the Visual Basic Editor.

4. In the Project Explorer, find your workbook, and open the list of Microsoft Excel Objects.

5. Right-click or double click on the ThisWorkbook object, and choose View Code.

6. Where the cursor is flashing, choose Edit | Paste

Everytime someone tries to use the Save As command or F12 it will not allow it and displays a message box to display a message saying only Save is allowed.

I hope this helps and makes sense.

Regards

Simon