Foutmelding 1004 bij verbergen rijen dmv VBA

[martijnbos]

Beste allemaal,

Ik zit met onderstaan iets.
In een excel kan gebruiker in cel B1 kiezen voor ja of nee.
Als hij ja kiest, dan komen rijen 24 en 25 ook naar voren om in te vullen.
Deze zijn VBA code verborgen totdat men een "ja" selecteerd
Dit werkt allemaal prima totdat je je werkblad gaat beveiligen. Ik heb in cellen die je als gebruiker mag invullen het vinkje geblokkeerd uitgezet en dit ook voor de complete rij 24 en 25.

Maar toch loopt ie bij een keuze in cel B1 vast en zegt ie: Fout 1004:

Zie bijlage met voorbeeld. Het wachtwoord is mb

Kan iemand mij verder helpen of is er een andere manier om bv cellen te bergen en zichtbaar te maken.

Alvast dank.

Martijn

Bekijk bijlage Map1.xlsm

 

[Cobbe]

Als uw blad beveiligd is kan uw macro daar ook niet tussenkomen indien je de beveiliging er niet afhaalt:

Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
With ActiveSheet
    .Unprotect Password:="mb"
            If [f5].Value = "1" Then
                .Rows("24:25").Hidden = False
    Else
                .Rows("24:25").Hidden = True
    End If
    .Protect Password:="mb"
End With
Application.ScreenUpdating = True
End Sub

 

[martijnbos]

Perfect, dank je voor de snelle reactie.
Mijn dank is weer groot.