BeforeSave

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If SaveAsUI Then

        MsgBox "you cannot save a copy of this workbook!"

        Cancel = True

    End If

End Sub