Prb Trie lorsque feuille protégée

Bonjour

J'utilise une macro sur un formulaire qui trie les données quand une autre feuille est sélectionnée.

Le problème est que maintenant que j'ai protégé certaine colonne de ma feuille la macro de marche plus.

Voici la macro en question

Private Sub Worksheet_Deactivate()

Range("A3:AZ101").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

DataOption1:=xlSortNormal

End Sub

Le message d'erreur apparait ici

DataOption1:=xlSortNormal

Ma piste de solution était d'ajouter une désactivation de la protection à ma formule mais je n'y arrive pas.

Est-ce quelqu'un pourrait m'aider ou aurait une meilleure solution a me proposer?

Bonjour,

avec "Unprotect" et "Protect" :

Private Sub Worksheet_Deactivate()

    Dim Fe As Worksheet

    Set Fe = Worksheets("Feuil1") 'adapter le nom de la feuille cible

    Fe.Unprotect "xxxxx" 'déprotège

    Range("A3:AZ101").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

    Fe.Protect "xxxxx" 'protège

End Sub

Bonjour Theze

Merci pour la réponse. J'ai déjà essayé cette avenue et je rencontre toujours le même problème. Je crois que c'est parce que l'activation de la macro se fait au moment de quitter la feuille. J'ai essayé en changeant l'événement pour SelectionChange et la ca marche. Mais j'ai besoin que ca se fasse au moment de quitter la feuille...

Je ne comprends pas le problème d'interaction entre la protection, le tri et l'événement qui déclenche la macro

Ha ben ! Shame on me!

Je travaillais sur une version antérieure du document et l'indication du header n'était pas a jour...

Erreur de débutant!

Merci pour l'aide!

JpLumi