Werkbook beveiligen met toggle button

[Advanm]

Hoi,

Ik heb een knop op in mijn werkblad waarmee ik bepaalde cellen kan verbergen middels onderstaande code.

Private Sub CommandButton1_Click()
  With Rows("6:13")
        .Select
       .EntireRow.Hidden = Not .EntireRow.Hidden
             
    End With

Nu wil ik op het moment dat de cellen zictbaar worden de werkblad beveiliging aanzetten zodat alleen de not locked cellen geselecteerd kunnen worden.

Hoe kan ik bepalen wanneer de cellen niet verborgen zijn en op basis daarvan het werkblad beveiligen?

heb al diverse dingen geporbeerd en googlen leverde me ook niet het juiste antwoord op.

 

[spaarie]

Probeer eens:

Private Sub CommandButton1_Click()
    Set r = Rows("6:13")
    If r.Hidden = True Then
        r.Hidden = False
        Protect "1234"
    ElseIf r.Hidden = False Then
        Unprotect "1234"
        r.Hidden = True
    End If
End Sub