UnProtect ne fonctionne pas

Bonjour

Malgré ce code je n'arrive pas à déprotéger et reprotéger ma feuille

où se trouve mon erreur?

Merci pour votre aide

Private Sub Worksheet_Change(ByVal Target As Range)

Unprotect Password:="0000"

If Range("E47") = 0 Then

Rows("48:82").Select

Selection.EntireRow.Hidden = True

ElseIf Range("E47") = 1 Then

Rows("56:82").Select

Selection.EntireRow.Hidden = True

ElseIf Range("E47") = 2 Then

Rows("65:82").Select

Selection.EntireRow.Hidden = True

ElseIf Range("E47") = 3 Then

Rows("74:82").Select

Selection.EntireRow.Hidden = True

ElseIf Range("E47") = 4 Then

Rows("48:82").Select

Selection.EntireRow.Hidden = False

Protect Password:="0000"

End If

End Sub

Bonjour,

Essaie ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$47" And Target.Count = 1 Then
        Me.Unprotect Password:="0000"
        Select Case Target.Value
            Case 0: Me.Rows("48:82").EntireRow.Hidden = True
            Case 1: Me.Rows("56:82").EntireRow.Hidden = True
            Case 2: Me.Rows("65:82").EntireRow.Hidden = True
            Case 3: Me.Rows("74:82").EntireRow.Hidden = True
            Case 4: Me.Rows("48:82").EntireRow.Hidden = False
        End Select
        Me.Protect Password:="0000", userinterfaceonly:=True
    End If
End Sub

Bonjour

Merci pour ton aide exactement ce que je voulais

cordialement