Save and Save As

[mikeymay]

Is there a way of distinguishing between the pressing of Save or Save As buttons?

I have a file that cannot have it's name changed so if a user clicks on the 'Save As' button or 'File' then 'Save As' menu options I want to display a mesaage box. If the user clicks on the 'Save' button, 'File' then 'Save' menu options or Ctrl+s then the file saves.


Thanks

 

[Andrew Poulsom]

Try this in the module for ThisWorkbook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        MsgBox "SaveAs not allowed."
        Cancel = True
    End If
End Sub

 

[mikeymay]

Thanks Andrew, once again so simple :D