I don't know how the code is working fine if you did not disable events before
saving after entering the code in Thisworkbook.

How did you save the workbook so's the code is saved?

In order to save the workbook with the code you added to Thisworkbook, you have
to disable events the one time.

The disable and enable Subs would go into a General module.

Run the disable sub then save the workbook.

Run the enable Sub.


Gord

On Sun, 11 May 2008 22:30:01 -0700, Kevin
wrote:

Thank u Gord,
The first code is working fine, I am little confused about disabling &
enabling of events. Where to enable this pls help. Thanks in advance.
Kevin.

"Gord Dibben" wrote:

Stick these in Thisworkbook module.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

To save the workbook with this code you must disable events then save.

Sub disable()
Application.EnableEvents = False
End Sub

Save workbook at this point.

Re-enable events and no further saving will take place.

Sub enable()
Application.EnableEvents = True
End Sub


Gord Dibben MS Excel MVP


On Sat, 10 May 2008 22:54:01 -0700, Kevin
wrote:

Hi,
I have some formulas and data which is shared for the users to get their
answers instantly. Is there any way not to allow users to save the excel
shared file if they make any changes. Is it possible if the users close the
file with some changes excel exit without prompting or saving??. i tried read
only, protect sheet etc. its of no use.
Thanks
Kevin