Microsoft 365 Protection et filtres

  • Initiateur de la discussion Initiateur de la discussion JBL07
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JBL07

XLDnaute Occasionnel
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("G2😛2000")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
ActiveSheet.Protect ("11MDP")
End With
Range("G2").Select
End Sub
 
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.
VB:
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
Code:
Sub Tri_clients()
    With Worksheets("parametres")
        .Range("G:G").Sort Key1:=.[g2], Order1:=xlAscending, Header:=xlNo
    End With
End Sub
 
Dernière édition:
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 🙂
 
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
 

Pièces jointes

Dernière édition:
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"
 
Dernière édition:
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 🙂
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 listbox
Réponses
18
Affichages
284
Réponses
17
Affichages
1 K
Réponses
4
Affichages
177
Réponses
11
Affichages
780
Réponses
6
Affichages
1 K
Réponses
1
Affichages
821
Retour