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
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