saving excel file

[Kevin]

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

 

[Gary''s Student]

Protect the cells that contain formulas and data that you want protected.
Even if a user saves the worksheet after making changes, the changes will not
be to protected material.

 

[Gord Dibben]

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

 

[Earl Kiosterud]

Kevin,

Normally this is done with network permissions. If the users have only read access, they
won't be able to save the file over the original.

 

[Kevin]

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.

 

[Earl Kiosterud]

Could a user not open the workbook with macros disabled, then be able to save his changed
copy?
--
Regards from Virginia Beach,

Earl Kiosterud
www.smokeylake.com
-----------------------------------------------------------------------

 

[Gord Dibben]

Certainly Earl.

That is always an issue with code.

Only workaroiund for that is to render the workbook useless if users disable
macros.


Gord

 

[Gord Dibben]

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

 

[Kevin]

Sorry for the late reply Gord, Actually i don't remember wot i did but the
first code is working fine and the excel file exit without saving. i tried
your suggesstion to disable and enabling its also working fine. since i don't
have much knowledge about codes wot i did i just copied your code and saved
it. anyway thanks a lot. i will try to figure out in a new workbook how your
first code is saved and defnitely i will let you know about this.
thanks a lot.
kevin

 

[Gord Dibben]

Thanks for the feedback.

You must have stumbled onto something I can't figure out but results are what
you wanted.


Gord