Feuille protégée et plan groupé

[nat54]

Bonjour,

Voilà je dois protéger une feuille car x formules que je ne voudrais pas que l'utilisateur change
Cependant j'ai crée des plans (données/grouper) et quand la feuille est protégée l'utilisateur ne peut pas utiliser les +/-

Comment faire ?

Merci d'avance

 

[Pierrot93]

Re : Feuille protégée et plan groupé

Bonjour Nat

il faut que la feuille soit protégée par le code, en utilisant l'argument "userInterfaceOnly", en mettant la propriété "EnableOutlining" à "True" comme dans le code ci dessous :

Private Sub Workbook_Open()
Sheets("Feuil1").EnableOutlining = True
Sheets("Feuil1").Protect Password:="roro", userInterfaceOnly:=True
End Sub

bonne journée
@+

 

[nat54]

Re : Feuille protégée et plan groupé

Ok je testerais
car faut que je voie où insérer cela dans VBA


edit : a priori je ne l'ai pas mis au bon endroit

 

[nat54]

Re : Feuille protégée et plan groupé

le fichier complet

 

[Pierrot93]

Re : Feuille protégée et plan groupé

Re

code à placer dans le module "ThisWorkBook", ou se trouve déjà le chargement de ton usf "PageGarde".

@+

 

[nat54]

Re : Feuille protégée et plan groupé

Bonjour

comme ca ou groupé ?

Private Sub Workbook_Open()
PageGarde.Show
End Sub


Private Sub Workbook_Open()
Sheets("CALCULS 2006-2007").EnableOutlining = True
Sheets("CALCULS 2006-2007").Protect Password:="", userInterfaceOnly:=True
End Sub

 

[JCGL]

Re : Feuille protégée et plan groupé

Bonjour à tous,

Je crois que tu ne peux pas avoir deux Private Sub Workbook_Open()

Donc je ferais

Private Sub Workbook_Open()
PageGarde.Show
Sheets("CALCULS 2006-2007").EnableOutlining = True
Sheets("CALCULS 2006-2007").Protect Password:="", userInterfaceOnly:=True
End Sub

A+

 

[nat54]

Re : Feuille protégée et plan groupé

ok
mais ca ne marche pas

c'est bien 2 " pour dire qu'on ne veut pas de MdP ?

 

[Pierrot93]

Re : Feuille protégée et plan groupé

Re, Bonsoir Jean Claude

je viens de tester le code ci dessous dans ton classeur et cela fonctionne :

(protection sans mdp)

Private Sub Workbook_Open()
PageGarde.Show
Sheets("CALCULS 2006-2007").EnableOutlining = True
Sheets("CALCULS 2006-2007").Protect userInterfaceOnly:=True
End Sub

comprends pas ou tu veux mette ton 2...

@+

 

[nat54]

Re : Feuille protégée et plan groupé

Salut

J'ai juste à mettre ce code dans this workbook ?

je l'ai fait
et quand je clique sur les + en haut en grisé ca ne marche pas il me dit que c'est protégé

 

[Pierrot93]

Re : Feuille protégée et plan groupé

Bonjour Nat

oui, à la place de :

Private Sub Workbook_Open()
PageGarde.Show
End Sub

tu mets :

Private Sub Workbook_Open()
PageGarde.Show
Sheets("CALCULS 2006-2007").EnableOutlining = True
Sheets("CALCULS 2006-2007").Protect userInterfaceOnly:=True
End Sub

tu fermes ton classeur, tu le ré ouvres, logiquement cela doit fonctionner, enfin chez moi ca marchait hier (Excel 2003)

@+

 

[nat54]

Re : Feuille protégée et plan groupé

Yes merci, j'suis bête... je ne réouvrais pas le classeur
du coup le workbook.open dans le baba LOL

 

[nat54]

Re : Feuille protégée et plan groupé

Par contre je comprends pas bien le fonctionnement

Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly) Protège une feuille.
Password : Chaîne de caractères spécifiant le mot de passe, respectez la casse (majuscule et/ou minuscule).
DrawingObjects = True pour protéger les formes, False par défaut.
Contents = True pour protéger le contenu, True par défaut.
Scenarios = True pour protéger les scénarios, True par défaut.
UserInterfaceOnly =True pour protéger l'interface utilisateur, mais pas les macros. Par défaut, la protection s'applique à la fois aux macros et à l'interface utilisateur.

 

[nat54]

Re : Feuille protégée et plan groupé

it's good j'ai trouvé

Pour permettre le fonctionnement des boutons de plan, il existe une instruction, qui peut se combiner avec le paramètre UserInterfaceOnly pour que ça puisse fonctionner même en mode protégé, c'est EnableOutlining

 

[Pierrot93]

Re : Feuille protégée et plan groupé

Oui Nat, c'est bien ce que j'avais indiqué dans mon 1er post.

bonne journée
@+