Protection et utilisation: probléme ?

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

Proz

XLDnaute Occasionnel
Bonjour,

Lorsque je protége ma feuille, je ne peux plus développer mes colonnes ou lignes grouppées.
Existe t-il un moyen tout comme les lignes ou cellules, après selection, d'utiliser la fonction et ainsi fermer et développer mes colonnes et lignes.
Merci pour votre aide.
 
Re : Protection et utilisation: probléme ?

Bonjour Proz

pour utiliser le plan sur une feuille protégée, il faut que la protection soirt faite par vba, regarde en utilisant le code ci dessous, à placer dans le module "thisworkbook", macro événementielle, se déclenche à l'ouverture du classeur :

Code:
Private Sub Workbook_Open()
With Sheets("Feuil1")
    .EnableOutlining = True
    .Protect Password:="toto", contents:=True, userInterfaceOnly:=True
End With
End Sub

bonne soirée
@+
 
Re : Protection et utilisation: probléme ?

Re

ALT F11 pour ouvrir l'éditeur vba, dans la fenetre vbaproject, developpe l'arborescence du classeur concerné, il y a un module nommé "thisworkbook", double click dessus, tu colles le code dans la fenêtre qui vient de s'ouvrir. tu fermes ton classeur en enregistrant, quand tu l'ouvres le code est opérationnel.

attention à ton niveau de sécurité, il doit
etre réglé sur moyen pour t'avertir si tu veux ou pas activer les macros.

dans Excel = > barre de menu => outils => macro => sécurité => onglet niveau de sécurité.

bonne soirée
@+
 
Re : Protection et utilisation: probléme ?

😕
J'essaye pour plusieurs feuillets mais cela ne fonctionne pas.
Comment peux t-on utiliser les filtres avec ce code. J'ai essayé depuis la selection à protection de la feuille en cliquant sur tri et utiliser le filtre... mais cela ne fonctionne pas.
Faut-il modifier le code?
 
Dernière édition:
Re : Protection et utilisation: probléme ?

Comment peux t-on faire pour utiliser ce code avec plusieurs feuillets(+ de 4) en intégrant la possibilité d'utiliser la liste déroulante, le tri et le plan?
Merci de votre patience et de votre aide précieuse.
 
Re : Protection et utilisation: probléme ?

😎

J'ai pu déja étendre aux 3 feuillets avec ce code:

Code:
Private Sub Workbook_Open()
With Sheets("UNITE TERRITORIALE FAC'MOSSON")
    .EnableOutlining = True
    .Protect Password:="toto", contents:=True, userInterfaceOnly:=True
End With
With Sheets("BIBLIOTHEQUE DU GESTIONNAIRE")
    .EnableOutlining = True
    .Protect Password:="toto", contents:=True, userInterfaceOnly:=True
End With
With Sheets("GESTION DES DOUBLONS")
    .EnableOutlining = True
    .Protect Password:="toto", contents:=True, userInterfaceOnly:=True
End With
End Sub

Maintenant il me reste l'utilisation du filtre et du tri....
 
Dernière édition:
Re : Protection et utilisation: probléme ?

Bonjour Proz

pour protéger toutes les feuilles, autoriser le filtre auto et le tri :

Code:
Option Explicit
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
    With sh
        .EnableAutoFilter = True
        .EnableOutlining = True
        .Protect Password:="toto", contents:=True, userInterfaceOnly:=True, AllowSorting:=True
    End With
Next sh
End Sub

bonne journée
@+
 
Re : Protection et utilisation: probléme ?

🙂

Je crois qu'il y a un probléme car mes filtres ne fonctionnent toujours pas avec ce code.
Besoin d'explications dans la démarche. Merci

PS: sans doute que je me trompe. Dans mes colonnes ce sont des listes déroulantes. Est ce le même code? Car j'ai un filtre, mis autre part que dans les colonnes et cela fonctionne.
 
Dernière édition:
- 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
3
Affichages
401
Retour