macro sur feuille protégée par un mot de passe

Private Sub Worksheet_Calculate()
With ActiveSheet
.Unprotect "rodge5895"
[f2] = ""
If .AutoFilterMode Then
     With .AutoFilter.Filters(2)
         If .On Then
             x = Mid(.Criteria1, 2, Len(.Criteria1))
             [f2] = Application.VLookup(x, [C2:D4], 2, 0)
         End If
     End With
End If
.EnableAutoFilter = True
.Protect "rodge5895"
End With
End Sub

Private Sub Worksheet_Calculate()    With ActiveSheet
        .Protect UserInterfaceOnly
        [F2] = ""
        If .AutoFilterMode Then
            With .AutoFilter.Filters(2)
                If .On Then
                    x = Mid(.Criteria1, 2, Len(.Criteria1))
                    [F2] = Application.VLookup(x, [C2:D4], 2, 0)
                End If
            End With
        End If
        .Protect Password:="xld", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
    End With
End Sub

Option Explicit

Private Sub Worksheet_Calculate()
    Dim Feuil As Worksheet, Crit$
    For Each Feuil In Worksheets
        Feuil.Unprotect
        If Feuil.Name <> Me.Name Then Feuil.AutoFilterMode = False
    Next
    If Me.AutoFilterMode Then
        If Me.AutoFilter.Range.Column = 1 And _
           Me.AutoFilter.Range.Columns.Count > 1 Then
            If Me.AutoFilter.Filters(2).On Then
                If Me.AutoFilter.Filters(2).Operator = 0 Then
                    Crit = Me.AutoFilter.Filters(2).Criteria1
                    For Each Feuil In Worksheets
                        If Feuil.Name <> Me.Name Then
                            Feuil.Range("A6:D" & Feuil.[B65536].End(xlUp).Row).AutoFilter 2, Crit
                            Feuil.Protect
                            Else
                            Feuil.Unprotect
                        End If
                    Next
                End If
            End If
        End If
    End If
End Sub