View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
quartz[_2_] quartz[_2_] is offline
external usenet poster
 
Posts: 441
Default how do I prevent a workbook from being saved?

One way I think would work:

After the paste is done add the following code lines:

ThisWorkbook.Activate
ThisWorkbook.Close SaveChanges:=False

This would cause the "Original" to be destroyed, thus solving your dilemma.
You could put a warning message for the user warning them that once they
elect to create a new book, the "Original" will no longer be available...

HTH.

"crimsonkng" wrote:

At a certain point in my macro, the User can make a decision to create a new
workbook (called "Investment Quotation" as shown below). A small portion of
the macro is shown, below. At that point, the macro performs a
copy-and-paste from the current workbook to a new workbook. When that
happens, I need to prevent the original (first) workbook from being saved. (I
won't know the name of the first workbook.)

The problem is that I want the User to have the right to save/change the
original workbook. It's just that I'm trying to prevent them from saving the
original workbook ONLY if they decide to create a new workbook.

So, I guess my question is: how do I tell Excel to "don't allow a save" to
the first workbook? (Again, the User is allowed to save the file BEFORE
this part of the macro is executed.)

Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Investment Quotation"