Force save as

  • Thread starter Thread starter Guest
  • Start date Start date
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
 
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
 
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
 
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.
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

What are the steps to fix damaged MDF files in SQL Server? 0
Save As 9
How can we convert OST to PDF file format? 1
How to Export Gmail Emails to PST Format? 4
Disable the save button 4
Forcing a Read Only Filename 10
Excel 2003 save as .XLSX 10
Outlook Minimizing composed outlook emails without disappearing 1

Back
Top