You can use this: of course, you will need to change the file name in the
code... Copy and paste into the ThisWorkbook object's codemodule.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If (Not SaveAsUI) And (ThisWorkbook.Name = "Book4.xls") Then
MsgBox "You must use ""Save As"" to save with another name."
Cancel = True
End If
End Sub
HTH,
Bernie
MS Excel MVP
wrote in message
...
Is it possible to disable the save button and force a user
to use save as? Making the book read only is not an option
due to some calculation.
Thanks in advance
|