Autres (RESOLU) Protéger la feuille code afficher masquer ne fonctionne pas

[chaelie2015]

Bonsoir Forum
Quand je protége la feuille "Formulaire", le code ci dessous ne fonctionne pas ?

Private Sub Worksheet_Change(ByVal C As Range)
If C.Address = "$E$4" Then
        Select Case C
        Case "": Rows("6:65").Hidden = True
        Case 1: Rows("6:17").Hidden = False
                Rows("18:65").Hidden = True
        
        Case 2: Rows("6:29").Hidden = False
                Rows("30:65").Hidden = True
        
        Case 3: Rows("6:41").Hidden = False
                Rows("42:65").Hidden = True
        
        Case 4: Rows("6:53").Hidden = False
                Rows("54:65").Hidden = True
        
        Case 5: Rows("6:65").Hidden = False
            ' à compléter...
        End Select
        C.Select
    End If
End Sub

Merci

 

[ChTi160]

Bonsoir chaelie2015

Avec ceux-ci peut être !

Private Sub Worksheet_Change(ByVal C As Range)

ActiveSheet.Unprotect 'tu déprotèges

If C.Address = "$E$4" Then
        Select Case C
        Case "": Rows("6:65").Hidden = True
        Case 1: Rows("6:17").Hidden = False
                Rows("18:65").Hidden = True
       
        Case 2: Rows("6:29").Hidden = False
                Rows("30:65").Hidden = True
       
        Case 3: Rows("6:41").Hidden = False
                Rows("42:65").Hidden = True
       
        Case 4: Rows("6:53").Hidden = False
                Rows("54:65").Hidden = True
       
        Case 5: Rows("6:65").Hidden = False
            ' à compléter...
        End Select
        C.Select
    End If
    ActiveSheet.Protect 'Tu protéges

End Sub

Jean marie

 

[TooFatBoy]

Bonjour,

Si tu ne protèges la feuille que pour l'utilisateur, tu ne devrais pas avoir ce problème.

 

[chaelie2015]

Bonjour jean marie, Toofatboy
@ Chti160 : Merci pour la réponse, c'est parfait.
A+