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
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
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
Remplacer "Feuil1" par le nom de ta feuille
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 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 :
Remplacer le Password:="Toto" par Password:="Ton mot de passe"
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
Slts
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager