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