Blastergeno
XLDnaute Nouveau
Bonjour à tous,
Voilà, j'ai protégé des feuilles de calcul, mais j'aimerais permettre aux utilisateurs de figer / libérer des volets.
J'ai trouvé comment autoriser à Grouper / dégrouper (avec l'instruction
.EnableOutlining = True, ce qui m'es très utile. Mais un utilisateur m'a fait la demande pour figer / libérer les volets.
Et là, je sèche... quelqu'un aurait-il la solution ?
Merci d'avance pour votre aide !
voici la macro mise en place pour la protection :
Sub Workbook_Open()
Sheets(1).Select
For i = 1 To 7
With Sheets(i)
.Protect DrawingObjects:=False, contents:=True, Scenarios:=False, Password:="XXXX", userinterfaceonly:=True
.EnableAutoFilter = True
.EnableOutlining = True
'.Enable c'est là que je seche !
End With
Range("A1").Select
Next i
End Sub
Voilà, j'ai protégé des feuilles de calcul, mais j'aimerais permettre aux utilisateurs de figer / libérer des volets.
J'ai trouvé comment autoriser à Grouper / dégrouper (avec l'instruction
.EnableOutlining = True, ce qui m'es très utile. Mais un utilisateur m'a fait la demande pour figer / libérer les volets.
Et là, je sèche... quelqu'un aurait-il la solution ?
Merci d'avance pour votre aide !
voici la macro mise en place pour la protection :
Sub Workbook_Open()
Sheets(1).Select
For i = 1 To 7
With Sheets(i)
.Protect DrawingObjects:=False, contents:=True, Scenarios:=False, Password:="XXXX", userinterfaceonly:=True
.EnableAutoFilter = True
.EnableOutlining = True
'.Enable c'est là que je seche !
End With
Range("A1").Select
Next i
End Sub