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