VBA in protected sheet unprotects the sheet

[kkyuvaraj]

Hi,

I have below code in a protected worksheet and the sheet automatically become unprotected if i enter value in any cell.

Someone help me to alter the code, if i select "Yes" in Cell No:F50, then the Rows("51:59") need to unhide and allows users to enter data but the sheet should not unprotect.Or else the rows remain Hidden.

Private Sub Worksheet_Change(ByVal Target As Range)
Me.Unprotect Password:="password"
   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
                           
         Me.Protect Password:="password"
        End Select
        [ /Code]

End If
End Sub

 

[VBE313]

are you protecting the sheet only to hide and unhide rows?

 

[Fluff]

Duplicate Protected Excelsheet becomes unprotect if clicked in any cell

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).