Sabtu, 03 Januari 2015

RE: [ExcelVBA] Re: Stopping calculation and iterations before save.

 

Microsoft Help specifies the following:

Private Sub Workbook_BeforeSave (SaveAsUI, Cancel)

SaveAsUI

Required

Boolean

True if the Save As dialog box will be displayed.

Cancel

Required

Boolean

False when the event occurs. If the event procedure sets this argument to True, the workbook isn't saved when the procedure is finished.

More than once I have to prevent saving a document because some conditions were not met. So If condition is not met then put True as second parameter. If SaveAsUI = True the SaveAs dialog box is shown.

Daniel

From: ExcelVBA@yahoogroups.com [mailto:ExcelVBA@yahoogroups.com]
Sent: Sunday, 4 January 2015 11:32 AM
To: ExcelVBA@yahoogroups.com
Subject: [ExcelVBA] Re: Stopping calculation and iterations before save.

Sorry about the previous code:

I copied it from a previous text that I had written outside of Excel.

Private Sub Workbook_BeforeSave()

provokes an compiling error.

The code that does not work is written in my Workbook as:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _

Cancel as Boolean)

With Application
.Iteration = False
.Calculation = xlManual
.CalculateBeforeSave = False
End With

End Sub

By the way, I do not quite understand why the parameters are required.

[Non-text portions of this message have been removed]

__._,_.___

Posted by: "Daniel Lamarche" <daniel@comboprojects.com>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (3)
----------------------------------
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.

----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA

----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com

----------------------------------

.

__,_._,___

Tidak ada komentar:

Poskan Komentar