Protection et utilisation: probléme ?

Pierrot93

XLDnaute Barbatruc

• 23 Février 2008

• #2

Re : Protection et utilisation: probléme ?

Bonjour Proz

pour utiliser le plan sur une feuille protégée, il faut que la protection soirt faite par vba, regarde en utilisant le code ci dessous, à placer dans le module "thisworkbook", macro événementielle, se déclenche à l'ouverture du classeur :

Code:

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

bonne soirée
@+

 

Vote positif 0 Vote négatif

P

Proz

XLDnaute Occasionnel

• 23 Février 2008

• #3

Re : Protection et utilisation: probléme ?

Salut,

j'ai un petit soucis car je ne connais rien en vba. Je suis inculte du vba et pourtant je sais l'importance de cette connaissance.
Peux tu me guider dans mes pas?

 

Vote positif 0 Vote négatif

P

Proz

XLDnaute Occasionnel

• 23 Février 2008

• #4

Re : Protection et utilisation: probléme ?

😱
J'ai réussi.
Par contre j'ai un message qui me dit que je cours un risque et pour préserver le système, il désactive les macro.
J'ai du mettre faible sécurité.
Est ce normal?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Février 2008

• #5

Re : Protection et utilisation: probléme ?

Re

ALT F11 pour ouvrir l'éditeur vba, dans la fenetre vbaproject, developpe l'arborescence du classeur concerné, il y a un module nommé "thisworkbook", double click dessus, tu colles le code dans la fenêtre qui vient de s'ouvrir. tu fermes ton classeur en enregistrant, quand tu l'ouvres le code est opérationnel.

attention à ton niveau de sécurité, il doit
etre réglé sur moyen pour t'avertir si tu veux ou pas activer les macros.

dans Excel = > barre de menu => outils => macro => sécurité => onglet niveau de sécurité.

bonne soirée
@+

 

Vote positif 0 Vote négatif

P

Proz

XLDnaute Occasionnel

• 23 Février 2008

• #6

Re : Protection et utilisation: probléme ?

😀
Comment puis je changer le mot de passe?

 

Vote positif 0 Vote négatif

P

Proz

XLDnaute Occasionnel

• 23 Février 2008

• #7

Re : Protection et utilisation: probléme ?

😕
J'essaye pour plusieurs feuillets mais cela ne fonctionne pas.
Comment peux t-on utiliser les filtres avec ce code. J'ai essayé depuis la selection à protection de la feuille en cliquant sur tri et utiliser le filtre... mais cela ne fonctionne pas.
Faut-il modifier le code?

 

Dernière édition: 23 Février 2008

Vote positif 0 Vote négatif

P

Proz

XLDnaute Occasionnel

• 23 Février 2008

• #8

Re : Protection et utilisation: probléme ?

Comment peux t-on faire pour utiliser ce code avec plusieurs feuillets(+ de 4) en intégrant la possibilité d'utiliser la liste déroulante, le tri et le plan?
Merci de votre patience et de votre aide précieuse.

 

Vote positif 0 Vote négatif

P

Proz

XLDnaute Occasionnel

• 24 Février 2008

• #9

Re : Protection et utilisation: probléme ?

😎

J'ai pu déja étendre aux 3 feuillets avec ce code:

Code:

Private Sub Workbook_Open()
With Sheets("UNITE TERRITORIALE FAC'MOSSON")
    .EnableOutlining = True
    .Protect Password:="toto", contents:=True, userInterfaceOnly:=True
End With
With Sheets("BIBLIOTHEQUE DU GESTIONNAIRE")
    .EnableOutlining = True
    .Protect Password:="toto", contents:=True, userInterfaceOnly:=True
End With
With Sheets("GESTION DES DOUBLONS")
    .EnableOutlining = True
    .Protect Password:="toto", contents:=True, userInterfaceOnly:=True
End With
End Sub

Cliquez pour agrandir...

Maintenant il me reste l'utilisation du filtre et du tri....

 

Dernière édition: 24 Février 2008

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Février 2008

• #10

Re : Protection et utilisation: probléme ?

Bonjour Proz

pour protéger toutes les feuilles, autoriser le filtre auto et le tri :

Code:

Option Explicit
Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In Worksheets
    With sh
        .EnableAutoFilter = True
        .EnableOutlining = True
        .Protect Password:="toto", contents:=True, userInterfaceOnly:=True, AllowSorting:=True
    End With
Next sh
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

P

Proz

XLDnaute Occasionnel

• 24 Février 2008

• #11

Re : Protection et utilisation: probléme ?

🙂

Je crois qu'il y a un probléme car mes filtres ne fonctionnent toujours pas avec ce code.
Besoin d'explications dans la démarche. Merci

PS: sans doute que je me trompe. Dans mes colonnes ce sont des listes déroulantes. Est ce le même code? Car j'ai un filtre, mis autre part que dans les colonnes et cela fonctionne.

 

Dernière édition: 24 Février 2008

Vote positif 0 Vote négatif

P

Proz

XLDnaute Occasionnel

• 24 Février 2008

• #12

Re : Protection et utilisation: probléme ?

🙂

Existe t-il un moyen de protéger sa feuille avec la possibilité de servir du Plan, des listes déroulantes et des filtres?
Je n'y connais pas grand chose en code. Merci de votre aide.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Février 2008

• #13

Re : Protection et utilisation: probléme ?

Re

de quelle liste déroulante parles tu ? si c'est une liste fait avec le menu => données => validation, il te suffit de dévérouiller la cellule sur laquelle la liste se trouve.

bonne soirée
@+

 

Vote positif 0 Vote négatif

P

Proz

XLDnaute Occasionnel

• 24 Février 2008

• #14

Re : Protection et utilisation: probléme ?

🙂

Non il s'agit d'une liste créer ainsi:
Selection de la colonne et clic droit souris puis créer liste.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Février 2008

• #15

Re : Protection et utilisation: probléme ?

Re

dans ce cas dévérouiller la ou les cellules concernées par la liste.

 

Vote positif 0 Vote négatif