Force save as

G

Guest

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
 
F

Frank Kabel

Hi
not sure why read only is not an option for you. You still can perform
changes you just have to save it to a different name
 
B

Bernie Deitrick

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
 
G

Guest

I have a count that needs to increment everytime the
workbook is opened. I considered using another workbbok
for the count, but would rather not.
 
Top