Complicated VBA code to protect the entire workbook (in a single step)

Hello friends.

I made a workbook and trying to protect. I was able to find some VBA code similar to what I need, but I fail to put them together (lack of experience).
So what I need.
1. I want to protect existing VBA Code in all worksheets.
2. I want to protect all formulas (to hide) in all existing worksheets.
3. If in any worksheet in cell A1 appears something then, automatically remove all sheets except the first sheet, and automatically save the entire workbook.
4. I want to deny users to change certain cells in certain sheets, but I think it is a little complicated because I have filtered columns, some hidden, and VBA code active in the sheets.
However, if it is possible to put together the first three points, I think it is enough.
It is possible to be done in a single step?
Any help is welcome.
Thanks in advance

PS: My English is still very poor...

A little help ..

Hi, Anka,

I was able to find some VBA code similar to what I need, but I fail to put them together (lack of experience).

Please attach a sample workbook with these codes in order to make it easier for us to answer.

Ciao,
Holger

Thanks for your interest HaHoBe.
I managed to "polish" a bit, but I think is not really ok. I wants this.
3. If in any worksheet in cell A1 appears something then, automatically remove all sheets except the first sheet, and automatically save the entire workbook.
"Mine" macro work just in first sheet...

Thanks again.

Example.xlsm

Hi, Anka,

the procedure Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) should not be located in Module2 but in ThisWorkbook as only there it would get fired from the event.

Code goes into ThisWorkbook (and please use a copy of the workbook to test), code will get fired when any value is entered into any sheet (except Info):

Please Login or Register  to view this content.

Ciao,
Holger

Holger, thanks for your answer, but what I want is;
3. If in any worksheet, including Sheet1 what in my case is called Info, in cell A1 appears something(text or numbers) then, automatically remove all sheets except the first sheet (Info), and automatically save the entire workbook.

Anyway thank you again.

Holger, thanks for your answer, but what I want is;
3. If in any worksheet, including Sheet1 what in my case is called Info, in cell A1 appears something(text or numbers) then, automatically remove all sheets except the first sheet (Info), and automatically save the entire workbook.

Anyway thank you again.

I'm sorry for repeating it ...

Hi, Anka,

I'm sorry for repeating it ...

forum issues.

Maybe try it like this:

Please Login or Register  to view this content.

Ciao,
Holger

I apologize for the delayed response.
Yes HaHoBe, it works.