Help to Hide rows on password protected worksheet

[ebank23]

Below is the code I'm using to hide rows on my protected worksheet. What I want is all cells in colmn "A" that has "1" will be hidden. This is what I have but it takes forever. Thanks in advance for ANY help.

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="password"
For a = 2 To 5000
If Worksheets("CLIENT SCHEDULE").Cells(a, 1).Value = "1" Then
    Worksheets("CLIENT SCHEDULE").Rows(a).Hidden = True

End If
   
Next
ActiveSheet.Protect Password:="password"
End Sub
Private Sub CommandButton2_Click()
For a = 2 To 5000
If Worksheets("CLIENT SCHEDULE").Cells(a, 1).Value = "1" Then
    Worksheets("CLIENT SCHEDULE").Rows(a).Hidden = False

End If
   
Next

End Sub

 

[Marc L]

As per forum rules, you forgot the code tags via the Insert icon !​

​

For your need, the obvious and fast way is an Excel basics like for example a filter just needing a single codeline …​

​

 

[ebank23]

I do apologize for the improper format (forum rules). Thanks for the correction