Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.
In Microsoft Excel 7.0 and later, you can use the
OnSave property to specify a macro that runs after you initiate saving a workbook,
and before Microsoft Excel saves the workbook.
Example of the Problem
The following example demonstrates the use of the OnSave property:
Sub SetOnSaveTrigger()
ActiveWorkbook.OnSave = "WorkbookSaving"
End Sub
Sub WorkbookSaving(Arg As Boolean)
Application.ScreenUpdating = False
MsgBox "Now saving file!"
End Sub
After you run the first macro, Microsoft Excel automatically runs the
second macro each time you save the active workbook.
Turning off Screen Updating
You can turn off screen updating while a macro runs by including the
following line of code in the macro:
Application.ScreenUpdating = False
You can enable screen updating by setting the
ScreenUpdating property to
True. Usually, this step is not necessary: Microsoft Excel automatically enables screen updating when the macro stops running. However, there is one exception to this rule. If a macro that is run by the
OnSave property contains a command to turn off screen updating, Microsoft Excel does not enable screen updating automatically when the macro is finished.
When this behavior occurs, Microsoft Excel appears to stop responding
(hang). However, the program is not "frozen." The program is not redrawn on
the screen correctly, which prevents you from using any part of the
program.
Example of the Resolution
To prevent the problem, enable screen updating by resetting the
ScreenUpdating property to
True before the end of the macro. For example, change the example in the "Example of the Problem" section to the following:
Sub WorkbookSaving(Arg As Boolean)
Application.ScreenUpdating = False
MsgBox "Now saving file!"
Application.ScreenUpdating = True
End Sub