Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel A
Boolean)
If SaveAsUI Then
MsgBox "You Cannot save a copy of this workbook!"
Cancel = True
End If
End Sub
this goes into a workbook module, search excel help if you need to fin
it
this won't let you save the workbook when you are in excel.....