Block from workbook saving from personal workbook macro

Hi,

i have code in personal workbook.
When i am running the code from quick access toolbar:

Screenshot_6.png

Please Login or Register  to view this content.

(personal macro code)

it is working ok.
the code is creating new worksheet. (this is for test purposes so please do not ask what is a purpose, i am reviewing csv data in prefered format but code is not important but idea).

And i would like to prevent user from saving the changes in active workbook (not personal).
So macro is in personal workbook and i am opening other workbooks to use it.

I could create somehow workbook_beforesave event from personal sub into activeworkbook.thisworkbook object and block user from saving workbook (??)

How can i do this?
Do you have any idea?

i am not attaching personal workbook because still you would have copy code to your personal workbook

Best,
Please help,
Jacek

In other ways,

how can i pass this code (not allowing to save workbook) from personal workbook macro sub into currently used activeworkbook?

Please Login or Register  to view this content.

Wow thank you,

seems better than approach what i figured out:

Please Login or Register  to view this content.

Best,
Jacek

rorya,

it can be harmful for project ?

Best,
Jacek

thank you rorya,

you have great knowledge!

Jacek

Ok,

i am reopening the topic because this is not working.

To personal workbook i added:

1. ThisWorkbook:

Please Login or Register  to view this content.

2. Module:

Please Login or Register  to view this content.

3. Class Module (CExcelEvents - name)

Please Login or Register  to view this content.

4. ThisWorkbook (also in personal) - i added code:

Please Login or Register  to view this content.

but this is not working. Not triggered.

Why this is not working?

Best,
Jacek

Hi rorya,

You realise that would stop you saving any workbook?

Ups i didnt realize. thank you. I think i can in personal workbook during opening any Excel i can set up entire app event to cancel = false to avoid this.

----

i am running macro from button (adding new worksheet) and after that i want to prevent user (me! from saving.
And this code :

Please Login or Register  to view this content.

i thought it should be triggered automatically before save event.

Best,
Jacek

Please Login or Register  to view this content.

when i am restarting Excel (closing all opened instances) the workbook_open code in personal workbook is running and this is setting up event listener.

But how to trigger it?

Jacek

Not working.

this code is not working:

Please Login or Register  to view this content.

i put it in personal workbook in ThisWorkbook module.

Best,
Jacek

Hi rorya, this is not working. I do not know what i am doing wrong.

In personal i added in ThisWorkbook object:

Screenshot_13.png

Code in Module1 to run from quick access toolbar in module in personal (to have the macro in all Excels):

Screenshot_14.png

In class module:

Screenshot_15.png

And now i want to run the code :

Please Login or Register  to view this content.

for each workbook after personal macro run.
If ReadCSV macro was run i should show msgbox before workbook saving.

How can i achieve this?

Best,
Jacek

thank you rorya,

ok i do not know why this has started working !

thank you, great approach !

One more question:

Please Login or Register  to view this content.

i have to add beforesave app event in class because i have in class App declared?

Best,
Jacek

thank you rorya!