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
- Classeur numérique gratuit - Télécharger - Bureautique
- Comment protéger des cellules sur excel - Guide
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
