Checkbox disappear lines n chart?

I have a chart with allot of lines. Not all the lines are relevant all the time it depends on the situation.
On the internet i find this.

I changes the name of the chart and the number of the i's. But the macro still not finding the name of the chart. The title of the chart is NTU41 but is this the same as a chart name?

Please Login or Register  to view this content.

I find it. But next problem. When i check or uncheck a box the layout of the chart can be changes even if the sheet is protected. That is not going to end well. Is there a solution?

I made a mess off the question!!

I have two questions. How can i change this macro for two charts with lines and bars. So filling and lines?
Chart 1 = Grafiek 1 with 7 boxes 1 to 7
Chart 2 = Grafiek 2 with 7 boxes 1 to 7

Please Login or Register  to view this content.

Is it even possible?

I tried to separate the boxes and the lines without result. The i is corrupt!

Please Login or Register  to view this content.

I see the problem but i don't know how to solve it.

Box 1 to 7 has to trigger ActiveChart.SeriesCollection(i).Format.Line 1 to 7 of grafiek 1
Box 7 to 14 has to trigger ActiveChart.SeriesCollection(i).Format.Line 1 to 7 of grafiek 2

But i don't know how to change the second macro to setup the boxes like that.
I really like the feature because i can see witch line (flow) is causes the problem. Then i can disable the other lines and make a other chart visible to see what is causing the flow drop.