Excel VBA to Hide rows not working in protected sheet

[kkyuvaraj]

Hi,

I have an excel sheet, where I have beow code to hode a range of rows based on the cell valude in cell F50, however the code is not working and giving error if the sheet is protected.

Pls help to edit the below code to work in protected sheet with password


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Range("F50"), Range(Target.Address)) Is Nothing Then
Select Case Target.Value
Case Is = "Select": Rows("51:59").EntireRow.Hidden = True

Case Is = "No": Rows("51:59").EntireRow.Hidden = True

Case Is = "Yes": Rows("51:59").EntireRow.Hidden = False

End Select

End If
End Sub

 

[mikerickson]

What have you tried?

 

[kkyuvaraj]

i tried to hide a range of rows basd on cell value

 

[mikerickson]

Just wrap your routine in a

Me.Unprotect password:="password"
' your code
Me.Protect password:="password"

 

[kkyuvaraj]

That work's well and thanks a ton