Protect/unprotect sheet when I click button

[mare23]

I have a button "-" and "+" which kicks off a VBA method which either hides or unhides rows on a Worksheet.

I'd like to protect the worksheets but if I click 5th time (I have 5 groups of rows, for the firt 4 rows shows that the sheet is protected) on "+" it shows me unprotected sheet but I want to protect sheet, or when I click a button "-" 1st time and all other rows are hidden again it shows an unprotect sheet

I've tried various protection settings but I still get the same error.

Is there one I should have tried?

Any suggestions? Should I have VBA unprotect/protect the sheet?

Sub HideRws()
ActiveSheet.Unprotect 1234
If Rows("94").Hidden = False Then
Rows("94:109").Hidden = True
ActiveSheet.Protect 1234
Exit Sub
ActiveSheet.Unprotect 1234
ElseIf Rows("78").Hidden = False Then
Rows("78:93").Hidden = True
ActiveSheet.Protect 1234
Exit Sub
ActiveSheet.Unprotect 1234
ElseIf Rows("62").Hidden = False Then
Rows("62:77").Hidden = True
ActiveSheet.Protect 1234
Exit Sub
ActiveSheet.Unprotect 1234
ElseIf Rows("46").Hidden = False Then
Rows("46:61").Hidden = True
ActiveSheet.Protect 1234
End If
End Sub
Sub UnHideRws()
ActiveSheet.Unprotect 1234
If Rows("46").Hidden = True Then
Rows("46:61").Hidden = False
ActiveSheet.Protect 1234
Exit Sub
ActiveSheet.Unprotect 1234
ElseIf Rows("62").Hidden = True Then
Rows("62:77").Hidden = False
ActiveSheet.Protect 1234
Exit Sub
ActiveSheet.Unprotect 1234
ElseIf Rows("78").Hidden = True Then
Rows("78:93").Hidden = False
ActiveSheet.Protect 1234
Exit Sub
ActiveSheet.Unprotect 1234
ElseIf Rows("94").Hidden = True Then
Rows("94:109").Hidden = False
ActiveSheet.Protect 1234
End If
End Sub

Thx Mare

 

[AlphaFrog]

Sub HideRws()
    ActiveSheet.Unprotect 1234
    If Rows("94").Hidden = False Then
        Rows("94:109").Hidden = True
    ElseIf Rows("78").Hidden = False Then
        Rows("78:93").Hidden = True
    ElseIf Rows("62").Hidden = False Then
        Rows("62:77").Hidden = True
    ElseIf Rows("46").Hidden = False Then
        Rows("46:61").Hidden = True
    End If
    ActiveSheet.Protect 1234
    
End Sub
 
Sub UnHideRws()
    ActiveSheet.Unprotect 1234
    If Rows("46").Hidden = True Then
        Rows("46:61").Hidden = False
    ElseIf Rows("62").Hidden = True Then
        Rows("62:77").Hidden = False
    ElseIf Rows("78").Hidden = True Then
        Rows("78:93").Hidden = False
    ElseIf Rows("94").Hidden = True Then
        Rows("94:109").Hidden = False
    End If
    ActiveSheet.Protect 1234
End Sub

 

[mare23]

Great thx!