Filtre automatique dans feuille protégée

[Hervé]

Comment rendre opérant des filtres automatiques sur une feuille protégée avec mot de passe ? Merci d'utiliser un langage accessible au néophyte que je suis.

 

[Samantha]

Bonjour les Gens, le Forum, Hervé 😉

Cette question a déjà été posée .....

Voici en PJ une copie écran de la case à cocher lors du process de protection de la feuille

A te lire



Samanthta [file name=Filtres_et_protection_20050809124559.zip size=43248]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Filtres_et_protection_20050809124559.zip[/file]

 

[Celeda]

Bonjour,

Bon est-ce que tu sais que c'est la Saint Amour aujourd'hui ?

Donc pas de petit bonjour ou hello et un petit merci un peu poussif!!

non non on va au coin pour moins que cela sur XLD!!

mais comme nous on est des Accros à l'AmourXLDien, des Amours d'OccasesXLDiens, des piqués de nainsd'amourXLDiens, sans oublier les ZOPHop l'AmourXLDien et aussi des Karmad'AmourXLDiens (si j'en ai oublié, corrigez-moi), et bien on te refile des fils à lire, à relire, et à adapter dans ton fichier (tu verras il y en a qui valent vraiment le détour!!!))

Lien supprimé

Lien supprimé

Lien supprimé

Lien supprimé

Lien supprimé

Lien supprimé

Lien supprimé

Lien supprimé


Celeda


ah oui j'ai oublié aussi on est des Roberthinodamor!!!!!!XLD 🙂 🙂

Message édité par: Celeda, à: 09/08/2005 12:55

Message édité par: Celeda, à: 09/08/2005 12:58

 

[nat54]

Re : Filtre automatique dans feuille protégée

bonjour le fil

mince plein de sujets qui auraient pu m'être utiles mais les liens ne fonctionnent plus 🙁

j'ai un classeur protégé
mais pour 4 des 17 onglets je souhaite que l'utilisateur puisse utiliser un filtre automatique

comment faire ?

ma protection se fait par vba

Sub ProtegeClasseur()
Dim maFeuille As Worksheet
For i = 1 To Worksheets.Count
Set maFeuille = Worksheets(i)
maFeuille.Select
maFeuille.Protect "ABC", True, True, True 'entre guillemets le mdp
Next
End Sub


Sub DeProtegeClasseur()
Dim maFeuille As Worksheet
For i = 1 To Worksheets.Count
Set maFeuille = Worksheets(i)
maFeuille.Select
maFeuille.Unprotect "ABC" 'entre guillemets le mdp
Next
End Sub

merci d'avance !

 

[nat54]

Re : Filtre automatique dans feuille protégée

merci mais vu mon niveau en vba quand je l'ai intégré,
l'utilisation de filtre auto n'est autorisée que sur la feuille 'active'

j'aimerai autoriser sur 4 onglets

 

[nat54]

Re : Filtre automatique dans feuille protégée

c'est bon même s'il existe surement mieux comme code vba

Sub ProtegeClasseur()
Dim maFeuille As Worksheet
For i = 1 To Worksheets.Count
Set maFeuille = Worksheets(i)
maFeuille.Select
maFeuille.Protect "MOTDEPASSE", True, True, True 'entre guillemets le mdp
Next

For i = 1 To 4
With Sheets(i)
.EnableAutoFilter = True
.Protect "MOTDEPASSE", UserInterfaceOnly:=True
End With
Next
End Sub

 

[Pierrot93]

Re : Filtre automatique dans feuille protégée

Re

essaye ainsi, à placer dans le module "thisworkbook", procédure événementielle, se déclenche à l'ouverture du classeur...

Option Explicit
Private Sub Workbook_Open()
Dim i As Byte, w()
w = Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")
For i = 0 To 3
    With Sheets(w(i))
        .EnableAutoFilter = True
        .Protect "toto", UserInterfaceOnly:=True
    End With
Next i
End Sub

 

[nat54]

Re : Filtre automatique dans feuille protégée

Mon code ci-dessus marchait mais merci 😉

 

[nat54]

Re : Filtre automatique dans feuille protégée

Bonjour

J'ai voulu essayer sur un de mes autres classeurs

Option Explicit
Private Sub Workbook_Open()
Dim i As Byte, w()
w = Array("Feuil1", "Feuil2")
For i = 0 To 1
With Sheets(w(i))
.EnableAutoFilter = True
.Protect "tdb_rh", UserInterfaceOnly:=True
End With
Next i
End Sub

que 2 onglets concernés
mais à l'ouverture du classeur
ca me met "débogage" : l'indice n'appartient pas à la sélection

j'ai essayé de changer le for i= ...

mais rien n'y fait

 

[Pierrot93]

Re : Filtre automatique dans feuille protégée

Bonjour Nat

il faut que les feuilles soient nommées exactement comme indiqué dans "l'array", attention aux espaces et aux majuscules...

Array("Feuil1", "Feuil2")

bon après midi
@+

 

[nat54]

Re : Filtre automatique dans feuille protégée

Hello pierrot,

la fatigue du jeudi aprèm 😀
je pensais qu'il fallait laisser Feuil1, Feuil2
et non pas mettre les vrais noms d'onglet (je regardais dans la fenêtre vba project)

merci !!

 

[nat54]

Re : Filtre automatique dans feuille protégée

Bonjour,

Je déterre un sujet sur lequel je suis tombée en cherchant sur Google, le hasard fait bien les choses.

Comment modifier le code de Pierrot pour que l'utilisation du filtre auto soit possible sur l'ensemble des onglets du fichier ? Sachant que je serai amenée à rajouter pas mal d'onglets j'aimerai éviter de devoir les ajouter manuellement dans la macro

Merci d'avance,

 

[Pierrot93]

Re : Filtre automatique dans feuille protégée

Bonjour,

modifie comme suit :

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
    With ws
        .EnableAutoFilter = True
        .Protect "toto", UserInterfaceOnly:=True
    End With
Next ws
End Sub

bon après midi
@+

 

[nat54]

Re : Filtre automatique dans feuille protégée

Hello Pierrot, toujours là à ce que je vois et toujours aussi efficace, merci 😉

 

[Pierrot93]

Re : Filtre automatique dans feuille protégée

Re,

AArf Nat🙂 je ne t'avais point reconnu... on te vois plus trop parmi nous... @+