Microsoft 365 Protection et filtres

[JBL07]

Bonjour à tous,

Malgré toutes mes recherches ( et copiage de codes) , je sèche :
Voici le code associé à un bouton "tri" dans une base de données clients - Il me permet de faire sauter la protection de la feuille et des formules pendant le tri, puis de la remettre automatiquement
Mon souci est que je voudrais laisser cochées 4 options qui se décochent à la reprotection de la feuille :
tri / filtre automatique / modifier des objets / modifier des scénarios

Qui peut m'aider ? Merci beaucoup par avance

Le code :
Sub Tri_clients()
'
' Tri_clients Macro
Columns("G:G").Select
ActiveSheet.Unprotect ("MDP")
ActiveWorkbook.Worksheets("parametres").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("parametres").Sort.SortFields.Add2 Key:=Range("G1") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("parametres").Sort
.SetRange Range("G22000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
ActiveSheet.Protect ("11MDP")
End With
Range("G2").Select
End Sub

 

[Jacky67]

Bonjour à tous,
Mon souci est que je voudrais laisser cochées 4 options qui se décochent à la reprotection de la feuille :
tri / filtre automatique / modifier des objets / modifier des scénarios

Bonjour
Ceci placer dans le Thisworkbook permet de se passer du MDP, exécute le vba et protège la feuille avec MDP à l'ouverture du classeur.

Private Sub Workbook_Open()
Worksheets("parametres").Protect "MDP", DrawingObjects:=False, Scenarios:= _
                          False, AllowSorting:=True, AllowFiltering:=True, userinterfaceonly:=True
End Sub

Pour le tri.
S'il sagit de trier la colonne G, ceci devrait suffir

Sub Tri_clients()
    With Worksheets("parametres")
        .Range("G:G").Sort Key1:=.[g2], Order1:=xlAscending, Header:=xlNo
    End With
End Sub

 

[JBL07]

Bonjour,
Merci de vos retours, mais cela ne fonctionne pas, ou alors je n'ai pas fait les choses correctement, ou encore j'ai mal posé ma question :
- Pour la première macro proposée, Private Sub Workbook_Open(), je l'ai insérée dans le Thisworkbook, mais cela n'empêche, pas après la re-protection automatique de la feuille, que les options soient décochées
- Quant à la proposition pour le tri ( mon tri fonctionnait avec le code installé, je crains d'y retoucher ), ça ne fait que descendre la cellule portant l'en-tête de la colonne en plein milieu de ma colonne G... pas top !

Je me doute fort que le pb vient de moi
Merci de revoir ma copie svp

 

[Jacky67]

Bonjour,
Avec ma proposition, il n'y a plus besoin de " re-protection automatique"
Suprime les lignes avec "Protect" et "unprotect"
Pour le tri, si c'est effectivement que la colonne "G" qu'il faut trier et si elle comporte un entête, modifier
Header:=xlNo
par
Header:=xlYes

Es-tu certain que ton code fonctionne avec
ActiveSheet.Unprotect ("MDP")
et
ActiveSheet.Protect ("11MDP")
????
Sans compter l'émoticône==>

Sinon post un classeur

 

[TooFatBoy]

Bonjour,

Pour la reprotection de ta feuille, as-tu essayé quelque chose comme ça :
ActiveSheet.Protect Contents:=True, AllowSorting:=True, AllowFiltering:=True, DrawingObjects:=True, Scenarios:=True, Password:="MDP"

 

[JBL07]

Bonjour,

Bien vu pour le mot de passe, ActiveSheet.Protect ("11MDP"), le petit 11 est une erreur de frappe, mon protect / unprotect fonctionne.
Par contre ,je n'arrive pas à intégrer les propositions, et la feuille ne se reprotège pas si je ferme le classeur puis le ré ouvre.
Grrrr

 

[Jacky67]

Bonjour,

Bien vu pour le mot de passe, ActiveSheet.Protect ("11MDP"), le petit 11 est une erreur de frappe, mon protect / unprotect fonctionne.
Par contre ,je n'arrive pas à intégrer les propositions, et la feuille ne se reprotège pas si je ferme le classeur puis le ré ouvre.
Grrrr

Re..
Et ma pj fonctionne ??

 

[TooFatBoy]

Par contre ,je n'arrive pas à intégrer les propositions, et la feuille ne se reprotège pas si je ferme le classeur puis le ré ouvre.

Dans ma réponse il fallait comprendre que la ligne de code que je donnais devait remplacer cette ligne :
ActiveSheet.Protect ("11MDP")
parce que j'avais cru comprendre au départ que tu n'arrivais pas à protéger ta feuille avec les bonnes options.

J'avoue que maintenant je ne sais pas quel problème tu as exactement.