Discussion :

[titi95]

Bonjour à tous

Je crée un fichier Excel en VBA à partir d'une base Access 2010.
Transfert de données, formats, mise en page... tout fonctionne.
Sauf que je souhaite protéger des colonnes de la feuille, mais en laissant la possibilité de filtrer et de trier.
Et là rien ne va plus ! Impossible avec la protection.

J'ai recherché une solution sur différents sites et forums.
J'ai trouvé ce code à placer avant la protection générale de la feuille (?) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With xlSheet.Rows("1")
.AutoFilter
.EnableAutoFilter = True 
.Protect Password:="toto", Contents:=True
End With

mais qui bloque sur EnableAutoFilter : pas reconnu

Existe-t-il une solution ???

Nota : le fichier Excel est produit en version 97 afin d'être lisible par la plupart des utilisateurs.

Merci d'avance.

titi95

[kiki29]

Salut, tiré de l'aide en ligne d'Excel 97 et testé sous 97

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Sub Tst()
    With Feuil1
        .Unprotect Password:="toto"
        .AutoFilterMode = False
        .Range("A1:D1").AutoFilter
        .EnableAutoFilter = True
        .Protect Password:="toto", contents:=True, userInterfaceOnly:=True
    End With
End Sub

Mais attention à la réouverture. Donc à placer dans Workbook_Open().

[titi95]

Bonjour kiki29

J'ai essayé ton code installé dans mon appli Access : Ok pour la protection, mais le tri et le filtre automatique sont toujours verrouillés. (j'avais déjà essayé ce code)

Par ailleurs, je ne peux pas faire d'essais directement sur Excel 97 : depuis la réinstallation de ma suite 97 sous Vista, je ne peux plus accéder à Macro, ni à VBE. (idem sur Word) Personne n'a pu m'aider.

J'ai eu une autre idée pour laquelle je n'ai pas trouvé de solution non plus pour contourner ce pb : créer une macro sur Excel à partir d'Access...

Merci pour ta contribution.

titi95