Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

vba feuille protéger, autoriser tri,filtre,tcd

  • Initiateur de la discussion Initiateur de la discussion slaurent01
  • 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 !

slaurent01

XLDnaute Junior
Bonjour à tous

J'ai un problème concernant une feuille protogée, contenant un filtre,tri et l'uitilisation de tcd.

Au départ je protège ma feuille en cochant les autorisations de filtre,tri, et tcd.

Dans ma feuille, j 'ai une macro de tri. Quand je lance la macro je désactive la protection et la ré-active à la fin.
Cependant je ne peux plus utiliser le filtre,tri,tcd.

J'ai donc besoin de votre aide afin d'écrire en vba ces autorisations. Est ce possible?

Code:
Sub actualiser()
ActiveSheet.Unprotect

Dim plage As Range

Set plage = ActiveSheet.Range("a3:J" & Range("A" & Rows.Count).End(xlUp).Row)
plage.Sort key1:=Range("A4"), order1:=xlAscending, Header:=xlGuess, ordercustom:=1,_ Orientation:=xlTopToBottom,_
 key2:=Range("f4"), order1:=xlAscending, Header:=xlGuess, ordercustom:=2, Orientation:=xlTopToBottom

ThisWorkbook.RefreshAll
ActiveSheet.Protect
End Sub

Par avance merci pour votre aide
Cordialement
stéphane
 
Résolu vba feuille protéger, autoriser tri,filtre,tcd

bonjour à tous,


J'ai trouvé, et j'aurai dû réfléchir un peu....😱

J'ai utiliser l'éditeur de macro qui me donne toute la syntaxe.....

Code:
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:= _
        True, AllowUsingPivotTables:=True

Bonne fin de journée
Stéphane
 
- 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

Réponses
6
Affichages
1 K
Réponses
29
Affichages
3 K
Réponses
8
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…