Protection feuille et filtre auto

Bonjour à tous,

Je suis désolé de vous importunez avec cette question déjà posée mais je n'ai pas réussi à traduire en langage VBA la solution.

J'ai une formule VBA qui fonctionne bien.

Cependant, je n'arrive pas à protéger la feuille correctement car le filtre automatique ne fonctionne plus lorsque ma feuille est protégé par un mot de passe.

Si quelqu'un peu me venir en aide, ça serait avec plaisir.

ci dessous mon texte:

Sub Macrotricllient2()

'

' Macrotricllient2 Macro

'

'

Range("A10:L10").Select

Selection.AutoFilter

Range("A10:L38").Select

ActiveWorkbook.Worksheets("Affichage").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Affichage").Sort.SortFields.Add Key:=Range( _

"L11:L38"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

ActiveWorkbook.Worksheets("Affichage").Sort.SortFields.Add Key:=Range( _

"K11:K38"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

xlSortNormal

With ActiveWorkbook.Worksheets("Affichage").Sort

.SetRange Range("A10:L38")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Range("D18").Select

ActiveWindow.SmallScroll Down:=18

Range("A10:L38").Select

Range("L38").Activate

ActiveSheet.Range("$A$10:$L$38").AutoFilter Field:=1, Criteria1:="<>"

Range("B56").Select

ActiveWindow.SmallScroll Down:=-9

End Sub

Bonjour,

Foin de macro enregistrée !!!

Sub Macrotricllient2()
    With ActiveSheet
        .Unprotect "motdepasse"
        If .AutoFilterMode Then
            If .FilterMode Then .ShowAllData
        End If
        .Range("A10:L38").Sort key1:=.Range("L10"), order1:=xlAscending, _
          key2:=.Range("K10"), order2:=xlAscending, Header:=xlYes
        .Range("A10:L10").AutoFilter 1, "<>"
        .Protect "motdepasse", AllowFiltering:=True
    End With
End Sub

NB- En citant du code dans un post, utiliser la balise Code (bien visible au-dessus de la fenêtre de rédaction).

Juste un grand merci!!!

je sais pas comment vous avez fait mais ça fonctionne à merveille!!!!

Pourriez vous me laisser une adresse mail ou un message en privée car je crois que j'ai d'autre macro qui mérite un petit coup d'oeil d'expert même si elle fonctionne...

il faudra que vous m'expliquiez si cela ne vous gêne pas la traduction de votre macro et la différence avec la mienne qui prend une page....

Encore Merci à vous