Wat doe ik hier fout ?

[S.Teeling]

Hallo, ik probeer middels een code cel A1 leeg te maken als in A2 de waarde "Intern" uit de validatietabel gekozen wordt. Dit lukt opzich wel maar als ik het combineer met mijn overige wensen gaat het fout.
Afhankelijk van de waarde in A2 moet rij 11:14 wel of niet zichtbaar zijn, daarnaast is het een beveiligd sheet en moet de beveiliging er af en weer op.

Onderstaande heb ik in elkaar geknutseld maar ik kom in een soort loop terecht, wat doe ik hier niet goed.

Het bestandje sluit ik als bijlage bij.


Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A2").Value = "Intern" Then
ActiveSheet.Unprotect
Range("A1").ClearContents
Rows("11:14").Select
Selection.EntireRow.Hidden = True
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
Rows("11:14").Select
Selection.EntireRow.Hidden = False
ActiveSheet.Protect
End If

End Sub

 

[LucB]

Werkt deze beter?

 

[S.Teeling]

Bedankt

Luc, bedankt het werkt. Ik kan de code opzich wel volgen maar snap niet waarom er bij module1 onderstaande code staat:

Sub test()
Application.EnableEvents = True
End Sub

 

[LucB]

Dat was even een test.
Hij mag weg,maar mag ook blijven.

 

[S.Teeling]

Oke bedankt

Bedankt, ik zal het eruit halen