Excel VisualBasic Script

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