How about using a Modify password and setting the Read-only recommended option? See the Excel Help topics for "Set properties to make a workbook read-only", "Protect workbooks and worksheets from changes", and "Require a password to save changes to a workbook".
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then
Cancel = True
MsgBox "Changes to this workbook cannot be saved. Use SaveAs instead."
End Sub This message was edited by Bali on 2002-10-21 18:01