Grouper degrouper sur classeur protégé

Fermé

Jeannedg - 17 oct. 2016 à 14:27
Jeannedg - 17 oct. 2016 à 15:33

bonjour,

j'ai vu de nombreux forum la dessus, j' ai bien recopié le code VBA. Ca fonctionne direct mais après que je ferme puis ré-ouvre le fichier, plus possible de grouper dégrouper... sauriez-vous me dire où se trouve mon erreur ? merci pour votre aide !

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

A voir également:

Grouper degrouper sur classeur protégé
Comment créer un groupe sur whatsapp - Guide
Degrouper pdf - Guide
Comment créer un groupe sur facebook - Guide
Classeur numérique gratuit - Télécharger - Bureautique
Comment protéger des cellules sur excel - Guide

2 réponses

Réponse 1 / 2

Raymond PENTIER Messages postés 58836 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 janvier 2025 17 276
17 oct. 2016 à 15:13

Bonjour.

Un classeur protégé est destiné à ne pas être modifiable ...

Jeannedg
17 oct. 2016 à 15:19

En effet il s'agit d'un fichier avec beaucoup de formules à protéger, mais aussi avec beaucoup de colonnes car nous devons couvrir des chiffres sur 5 années, pour faciliter l'analyse, il serait justement bien que nous puissions utiliser les commandes grouper/degrouper afin d'avoir des visions par trimestre/année - seulement si nous devons a chaque fois déverrouiller pour grouper, les formules ne sont plus protégées.

Réponse 2 / 2

PHILOU10120 Messages postés 6400 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 17 janvier 2025 812
17 oct. 2016 à 15:20

Bonjour jeannedg

Si le fichier est protégé il faut ôter la protection au début du code
une fois sur la feuille

ActiveSheet.Unprotect Password:="mot de passe"

Puis remettre la protection avant de quitter la feuille

ActiveSheet.Protect "mot de passe"

Jeannedg
17 oct. 2016 à 15:33

Merci Philou10120,
Mais je rencontre le même problème, je rentre le code sur mon fichier Excel, je teste, ca fonctionne, j'enregistre et ferme mon fichier puis ca ne fonctionne plus....

Private Sub Workbook_Open()
With Worksheets("Historical")
ActiveSheet.Unprotect Password:="xx"
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="", UserInterfaceOnly:=True
ActiveSheet.Protect "xx"
End With
End Sub

Discussions similaires

fichier excel pour étiquettes

Pourquoi mse affiche 'votre pc est protégé et sous surveillance?

réseau du groupe

etiquette pour dos classeur

Media protégé en écriture sur windows 10