Grouper degrouper sur classeur protégé
Jeannedg
-
Jeannedg -
Jeannedg -
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
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
- Imprimer un classeur excel sur mac - Guide
- Comment créer un groupe sur facebook - Guide
- Comment protéger des cellules sur excel - Guide
- Clé usb protégé en écriture ✓ - Forum Matériel & Système
2 réponses
Bonjour.
Un classeur protégé est destiné à ne pas être modifiable ...
Un classeur protégé est destiné à ne pas être modifiable ...
Jeannedg
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.
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"
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"
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
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
