Bonjour =E0 tous,
j'ai un probl=E8me avec excel et vba.
J'ai construit des sous totaux pour avoir des tableaux ou=20
les details n'apparaissent que si on clique sur le plus du=20
sous total.
Mais j'ai besion de proteger certaines donn=E9es du tableau=20
mais quand je fais cela je ne peux plus utiliser les=20
fonctionnalit=E9s pour voir le detail.
est ce possible de regler ce pb ?
le pb vient il d'excel ou de VB ?
quelles options faut il choisir dans la protection ?
enfin bref comment faire pour que ca marche ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Pour pouvoir agir sur les niveaux de plan d'une feuille protégée.... En supposant tes sous-totaux dans "Feuil1" de ton classeur A mettre dans le module de ThisWorkbook :
Private Sub Workbook_Open() With Sheets("Feuil1") .Unprotect .EnableOutlining = True .Protect Contents:=True, UserInterfaceOnly:=True End With End Sub
AV
Pour pouvoir agir sur les niveaux de plan d'une feuille protégée....
En supposant tes sous-totaux dans "Feuil1" de ton classeur
A mettre dans le module de ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.Unprotect
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
End Sub
Pour pouvoir agir sur les niveaux de plan d'une feuille protégée.... En supposant tes sous-totaux dans "Feuil1" de ton classeur A mettre dans le module de ThisWorkbook :
Private Sub Workbook_Open() With Sheets("Feuil1") .Unprotect .EnableOutlining = True .Protect Contents:=True, UserInterfaceOnly:=True End With End Sub
AV
Merci beaucoup ca marche super bien Charles
-----Message d'origine----- Pour pouvoir agir sur les niveaux de plan d'une feuille protégée....
En supposant tes sous-totaux dans "Feuil1" de ton classeur A mettre dans le module de ThisWorkbook :
Private Sub Workbook_Open() With Sheets("Feuil1") .Unprotect .EnableOutlining = True .Protect Contents:=True, UserInterfaceOnly:=True End With End Sub
AV
.
Merci beaucoup ca marche super bien
Charles
-----Message d'origine-----
Pour pouvoir agir sur les niveaux de plan d'une feuille
protégée....
En supposant tes sous-totaux dans "Feuil1" de ton classeur
A mettre dans le module de ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.Unprotect
.EnableOutlining = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With
End Sub
