Microsoft 365 TRIER SUR FEUILLE PROTEGER

dd_76

XLDnaute Nouveau
Bonjour a tous les experts,

j'ai besoin de votre aide :)
J'ai un fichier Excel qui est protégé par un mot de passe : 987
je souhaite pouvoir trier via un bouton sur la colonne N° de dossier (colonne B)
Car il peut y avoir une saisie de numéro de dossier qui ne suis pas la chronologie et je souhaite pouvoir les trier

j'ai essayé plusieurs code VBA mais je n'arrive pas :(

merci de votre aide
a bientôt
 

Pièces jointes

  • trier sur feuille protégé.xlsm
    12.7 KB · Affichages: 5
Solution
Tu n'avais pas préciser ce que tu voulais garder une fois la protection faite
modifie comme ceci pour autoriser le filtre et les tries (voir code de patrick)
.Protect ("987"), AllowSorting:=True, AllowFiltering:=True et plus si nécessaire....

sousou

XLDnaute Barbatruc
bonjour
tu peux mettre ce code
Sub trie()
With Sheets("registre")
.Unprotect ("987")


.ListObjects("Tableau1").Sort.SortFields.Add Key:=Range("Tableau1[[#All],[N° DOSSIER]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With .ListObjects("Tableau1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
.ListObjects("Tableau1").Sort.SortFields.Clear
.Protect ("987")

End With
End Sub
 

patricktoulon

XLDnaute Barbatruc
Bonjour
normalement ce devrait être ça mais ca ne fonctionne pas
VB:
Sub Bttri_Cliquer()

    Sheets("Registre").Unprotect "987"
    DoEvents
    ActiveWorkbook.Worksheets("Registre").ListObjects("Tableau1").Sort.SortFields. _
            Add Key:=Range("Tableau1[[#All],[Date de pose]]"), SortOn:=xlSortOnValues, _
                Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Registre").ListObjects("Tableau1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("Registre").Protect "987", AllowSorting:=True, AllowFiltering:=True
End Sub
 

sousou

XLDnaute Barbatruc
Tu n'avais pas préciser ce que tu voulais garder une fois la protection faite
modifie comme ceci pour autoriser le filtre et les tries (voir code de patrick)
.Protect ("987"), AllowSorting:=True, AllowFiltering:=True et plus si nécessaire....
 

Discussions similaires

Réponses
10
Affichages
336

Statistiques des forums

Discussions
313 201
Messages
2 096 180
Membres
106 517
dernier inscrit
oubourigue