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

Grouper/dissocier avec feuille protégée

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Sybille
  • 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 !

S'inscrire

Sybille

XLDnaute Junior
Bonjour,

Je souhaite protéger plusieurs feuilles en gardant la possibilité d'utiliser les groupes.
je sais que plusieurs discussions à ce sujet ont été clôturées, toutefois, après moult essai, je ne peux toujours pas utiliser les groupe que j'ai créé quand ma feuille est protégé. 😕

j'ai trouvé dans les autres posts la macro suivante:

Private Sub Workbook_Open()
With Worksheets("Feuil1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
End With
End Sub

J'ai évidemment essayer d'adapter cette macro à mon fichier (en pièce jointe):
Remplacement de "Feuil 1" par "S01"
Remplacement du mot de passe par un mot de passe de mon choix
enregistrement, fermeture, réouverture de mon fichier...
etc...

Mais rien n'y fait, je n'arrive pas à faire fonctionner cette macro.
ça fait des heures que je dessus...

Pourriez vous m'aider sur ce sujet s'il vous plait?
Quitte à m'expliquer cette macro comme à un bébé de 3 ans!!
(ça serviras bien à d'autres personnes également un jour)

A l'avance merci,

Cordialement,
 

Pièces jointes

Trier par date Trier par votes
Re : Grouper/dissocier avec feuille protégée

Bonjour,

WorkBook_Open doit être dans le module de code de ThisWorkBook et non dans un module général.

Dans le fichier joint tu trouveras deux macro 'Proteger' et 'Deproteger' dans un module général.
La macro 'Proteger' est appelée depuis l'évènement WorkBook_Open dans le module thisWorkbook.

Cela fonctionne chez moi.

A+
 
Vote positif 0 Vote négatif
Re : Grouper/dissocier avec feuille protégée

euh... re-moi,
y a t'il un moyen pour que cette macro fonctionne pour toutes mes feuilles??

Quand on écrit :
Public Sub Proteger()

With Worksheets("S01")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
End With

End Sub

On donne forcément le nom de la feuille à la ligne "With Worksheets("S01")"...
dois je recopier autant de fois ce message que je crée de feuille ou peut on renommer cette phrase pour que ça fonctionne avec toutes mes feuilles?

(Au moins ça pourrait m'éviter de répéter une centaine de fois la même chose quand je fais des macros)

Encore merci, d'avance!
 
Vote positif 0 Vote négatif
Re : Grouper/dissocier avec feuille protégée

Re,

Et qu'as-tu essayer pour résoudre ton problème? Facile de demander, n'est-ce pas?😉

Code: 
Public Sub Proteger()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        sh.EnableAutoFilter = True
        sh.EnableOutlining = True
        sh.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
    Next sh
End Sub

Je te laisse imaginer pour la déprotection.

A+
 
Vote positif 0 Vote négatif
Re : Grouper/dissocier avec feuille protégée

Bonjour,

Alors, pour info, je ne connait personne dans mon entourage qui connaisse les macros, les utilisent, etc...
En fait, je compte déjà sur les doigts de la main les personnes qui utilisent excel avec d'autres formules que "somme", "min", "max" et autres formules courantes.

J'essaye donc d'apprendre toute seule à utiliser excel.
Je commence a bien m'en sortir avec excel (bien évidemment pas autant que vous), et j'aimerais commencer à utiliser les macros... on va dire que je suis au tout début de mon apprentissage, c'est à dire :
- Public Sub "nom de ma macro"... "End Sub"
- le petit ' pour les commentaires (En fait ça aide vachement pour se relire et bien comprendre sa macro!!)
- qu'il existe un bouton "enregistrer une macro" pour créer des macros simple (et surtout qui permettent de voir comment s'écrivent les macro derrières en VBA, toujours dans le but d'apprendre à écrire en vba).
j'ai écrit un petit programme avec ce petit bouton que j'ai réussi a relire en vba, j'y ai mis plein de commentaire pour pouvoir relire la macro, et j'ai appris plein de chose...
a votre niveau vous trouveriez ce petit programme ridicule!!! mais n'oubliez pas qu'un jour, vous avez comme moi débuter!

La j'en suis a essayer de voir quelles sont les principales "fonctions" courante à utiliser.

DONC :
J'ai bien fouillé toutes les discussions à ce sujet, j'y ai trouvé plein "d'hypothèse" pour ce que je souhaite faire, comme "Worksheet_Change" , "_Selections_Change" , "thisworkbook"... apparemment l'idée de thisworkbook est la solution que tu as prise...
La il faut encore que je comprenne pourquoi tu as écrit ThisWorkbook.Worksheets et que tu as ajouter sh devant presque toutes les lignes!!!

J'avoue que ta phrase "Facile de demander, n'est-ce pas?" m'a un peu refroidit!
et que si "tu me laisses imaginer pour la déprotection", ça veux dire que je vais encore tomber sur un os!

Désolé pour le dérangement,

Merci tout de même pour ta réponse qui m'aide quand même à progresser.
 
Vote positif 0 Vote négatif
Re : Grouper/dissocier avec feuille protégée

Bonjour,

Alors re-voici la macro commentée.
Code: 
Public Sub Proteger()
     Dim sh As Worksheet  'Déclarer une variable de type Objet Feuille de classeur
     'Parcourir toute les feuilles de CE classeur (celui qui contient la macro)'
     For Each sh In ThisWorkbook.Worksheets 'Sh fait référence à la feuille en cours dans la boucle for ... Next
         'autoriser les filtres et groupage
         sh.EnableAutoFilter = True
         sh.EnableOutlining = True
         sh.Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
     Next sh
 End Sub

Quant à ma question: 'facile de demander n'est-ce pas?' n'était là que pour t'inciter à chercher par toi même les solutions et nous les présenter. Tant de gens viennent sur ce forum, comme sur un marché au légumes. (et encore attendent-ils, qu'ils soient cuits). Nous ne pouvons faire la différence entre ceux qui chercher réellement à apprendre et ce qui se contentent qu'on leur ponde leur macro.

Si tu veux réellement apprendre, je t'inciterai à acheter un bouquin sur VBA et commencer par de petites choses, les bases et de progresser lentement. Si tu as une difficulté particulière, vient ici nous l'exposer et sans doute quelqu'un t'aidera.

A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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 2019 Lien Hypertexte et Verrouillage Cellule
Réponses
9
Affichages
1 K
fanch55
I
  • Question Question
XL 2016 Grouper avec Protection et Partage
Réponses
1
Affichages
1 K
chris
A
  • Question Question
XL 2010 Correction macro supprimant les lignes avec '' 0 '' en début de tableau
Réponses
2
Affichages
479
Acritas
A
D
  • Résolu(e)
Microsoft 365 VBA bouton pour protégé et déprotégé des feuilles mais doit autorisé le filtrage + grouper et dégrouper
Réponses
3
Affichages
1 K
Diego-Andres
D
R
  • Question Question
XL 2010 Autoriser collage image sur une feuille protégée
Réponses
9
Affichages
3 K
rosabelle
R
XLS : Créer une animation fluide sans Crash (ou presque) !
Réponses
7
Affichages
921
Lu76Fer
C
  • Résolu(e)
XL 2016 Excel VBA - Filtre Automatique et feuille protégée
Réponses
4
Affichages
3 K
sylvanu
M
  • Résolu(e)
XL 2016 Excel plante sur grouper/dissocier
Réponses
10
Affichages
5 K
Maxou2803
M
D
  • Résolu(e)
Microsoft 365 VBA ne fonctionne pas - feuille sécurisée
Réponses
8
Affichages
1 K
Diego-Andres
D
  • Question Question
XL 2019 Autoriser 1,2,3 du plan dans feuille protégée
Réponses
0
Affichages
882
Anthonymctm
  • Question Question
XL 2016 Probleme affichage userform
Réponses
4
Affichages
902
TooFatBoy
  • Question Question
XL 2016 Exécuter macro et Rafraîchir userform
Réponses
6
Affichages
2 K
Staple1600
C
  • Question Question
XL 2010 autoriser le tri sur feuille protégée VBA
Réponses
1
Affichages
2 K
cp4
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
A
  • Résolu(e)
XL 2016 Verrouiller feuille avec création de mot de passe
Réponses
2
Affichages
1 K
AntonG
A
C
  • Question Question
XL 2010 permettre à un utilisateur certaines fonctionnalités malgré la protection de la feuille (XLSM)
Réponses
2
Affichages
1 K
Carine145
C
M
  • Question Question
Verrouillage de la feuille en VBA avec fonction Tri
Réponses
4
Affichages
1 K
Med30
M
  • Question Question
XL 2010 créer une alerte si la feuille n'est pas protégée
Réponses
4
Affichages
1 K
Si...
S
C
  • Question Question
XL 2016 Autorisation du triage des colonnes avec protection de la feuille activé
2
Réponses
24
Affichages
3 K
Charles Sion
C
  • Question Question
XL 2013 VBA : autoriser formatage colonnes & lignes sur plage verrouillée
Réponses
2
Affichages
1 K
BOUQUET
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…