rijen verbergen in beveiligde pagina

Via onderstaande code laat ik rijen automatisch verbergen, werkt prima maar nu wil ik de pagina's beveiligen zodat men geen formules kan overschrijven en dat gaat niet
telkens ik in een cel (toegelaten cel) invul krijg ik de debug popup en dat komt natuurlijk omdat bij elke wijziging op de pagina de macro runt.
Is er een andere oplossing mogelijk ofwel om te voorkomen dat men formules overschrijft?
of kan de beveiliging op de een of andere manier toch ingeschakeld worden?


Private Sub Worksheet_Change(ByVal Target As Range)

If Range("b10") = "2" Then
Rows("10").Hidden = True
End If
If Range("b10") = "1" Then
Rows("10").Hidden = False
End If

If Range("b11") = "2" Then
Rows("11").Hidden = True
End If
If Range("b11") = "1" Then
Rows("11").Hidden = False
End If

Zet on der Private Sub
Activesheet.Unprotect

en boven End Sub

Activesheet.Protect

Mvg

Piet

Danny, plaats onderstaande in ThisWorkbook

Mvg

Rudi

het is soms zo simpel dat ik het gewoon niet zie...
De oplossing van Piet werkt perfect.

Algemene regel in this workbook zou ook gaan maar we zitten hier nog in de middeleeuwen (excel 2000) en in die versie werkt dat niet, daarom dat ik in de knoei zat, thuis heb ik excel 2003 en daar had ik de beveiliging ingesteld met enkele voorwaarden hier werkte dat dus niet.

Bedankt voor de respons alweer een grote stap vooruit.:thumb:

Danny, in versie 2000 zou de algemene regel inThisWorkbook ook moeten werken maar dan met volgende syntax

Mvg

Rudi