Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("D3") = 2 Then
ActiveSheet.Unprotect Password:="toto"
Rows("5:27").Hidden = False
ActiveSheet.Protect Password:="toto"
Else
ActiveSheet.Unprotect Password:="toto"
Rows("5:27").Hidden = True
ActiveSheet.Protect Password:="toto"
End If
End Sub