Désactivation d'accès a la fonction tri => suite

Bonjour

Suite a ce que j'avais demandé hier

https://www.excel-pratique.com/forum/viewtopic.php?t=8624&sid=ac74491671e87a023c1e6020272e88c3

Et apres avoir fait de petits essais, le fait de verouiller la feuille comme cela m'a été suggéré, génère uen erreur au niveau du tri que j'ai programé au travers d'un bouton exécutant une macro:

Range("A2:S1000").Select
    ActiveWindow.SmallScroll Down:=-1374
    Range("A2:T1000").Select
    Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("C2") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom
    ActiveWindow.SmallScroll Down:=-1026

Range("A2").Select

J'ai rajouté une commande deverouillant la feuille au début puis une la verouillant a nouveau a la fin, mais j'obtient un message d'erreur....

Qui a une idée pour me sortir de là ?

Bonjour au forum,

Que dit le message ?

et quel code as-tu mis pour déprotéger ?

Claude.

Le débogger me donne une erreur d'exécution "1004" dans cette partie de ma macro :

Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("C2") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom

Pour déprotéger j'ai mis en début de macro:

Feuil1.Unprotect ""

re,

pour cerner le problème, essaye ce code seul :

Sub tri()
    ActiveSheet.Unprotect
        Range("A2:T1000").Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("C2") _
            , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
            Orientation:=xlTopToBottom
    ActiveSheet.Protect
End Sub

si tu n'a pas mis de mot de passe

sinon, avec mot de passe "dudu"

ActiveSheet.Unprotect Password:="dudu"

Claude.

Avec ca:

 ActiveSheet.Unprotect 
        Range("A2:T1000").Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("C2") _ 
            , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _ 
            Orientation:=xlTopToBottom 
    ActiveSheet.Protect 

J'ai un erreur 1004 sur :

 ActiveSheet.Unprotect

re,

Même en retirant la protection manuellement ?

ré-essaye !

sinon, je ne vois pas

Claude.

édit: tu lance bien la macro à partir de la feuille à trier !

dubois a écrit :

édit: tu lance bien la macro à partir de la feuille à trier !

Oui un bouton sur la feuille a trier

Ce bouton est sur une case verouillée mais lui même ne l'est pas, est ce que ca peut avoir une importance?

Cela dit ca ne marche pas sauf si je deverouille manuellement bien sur

re,

si la feuille est nommée "Feuill1"

essaye avec

Worksheets("Feuil1").Unprotect

mais sans conviction !

sinon, enregistre la manip, on verra

Claude.

Niet....même résultat

Si ce n'est que là j'ai une erreur d'exécution "9"