Discussion :

[cdurep]

Bonjour,

Lorsqu'une feuille est protégée, il n'est plus possible d'ouvrir ou fermer les regroupement du plan.
est-il possible de contourner ? si oui comment ?

Merci d'avance

[danixdb]

Bonjour Cdurep, Le Forum,

Un fil de discusion est en cours sur ce sujet, voir
http://www.developpez.net/forums/d14...les-protegees/

mais en substance voici comment on peut contourner ce type de problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Workbook_Open()
  With Worksheets("Feuil1")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="Toto", UserInterfaceOnly:=True
  End With
End Sub

Remplacer "Feuil1" par le nom de ta feuille
Remplacer le Password:="Toto" par Password:="Ton mot de passe"

Pour que cela fonctionne, il te faudra mettre ce code dans l'évenement Open du Workbook.

________________________________________________________________
Pour protéger toutes les feuilles d'un classeur, voici la méthode :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Workbook_Open()
  Dim strSheet As Worksheet
 
  For Each strSheet In ActiveWorkbook.Sheets
    Sheets(strSheet.Name).EnableAutoFilter = True
    Sheets(strSheet.Name).EnableOutlining = True
    Sheets(strSheet.Name).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, Password:="Toto", UserInterfaceOnly:=True
  Next
 
End Sub

Remplacer le Password:="Toto" par Password:="Ton mot de passe"

Slts