vba et protection de feuilles

[Vilain]

Bonjour à tous,

J'ai un petit problème de protection.
Je souhaiterai que toutes mes feuilles soient protégées et que seuls les filtres auto soient actifs.
Le problème se pose si je les protège manuellement, mes macros ne fonctionnent plus.
Comment faire ?

A plus

Gillus

 

[youky(BJ)]

Re : vba et protection de feuilles

Salut Gillus69,
en macro ajoute ceci 1=l'index ici
Sheets(1).EnableAutoFilter = True
et si tu protèges en manuel Coche [Autoriser les filtres]
Bruno . . . de la région

 

[Pierrot93]

Re : vba et protection de feuilles

Bonjour,

essaye peut être ceci à placer dans le module "thisworkbook" :

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

bonne soirée
@+

 

[Pierrot93]

Re : vba et protection de feuilles

Re, bonjour bruno

A noter également le code proposé permettra au code de s'exécuter sans avoir à protéger / déprotéger les feuilles....

 

[Vilain]

Re : vba et protection de feuilles

Salut à vous et merci de votre aide.

@bruno : Avec ta solution, il faut que j'ajoute ça à toutes mes macros, non ?
@Pierrot : En utilisant ta solution, j'ai une erreur dès l'ouverture du fichier. Comment remédier à ce problème ?

Gillus

 

[Pierrot93]

Re : vba et protection de feuilles

Re,

@Pierrot : En utilisant ta solution, j'ai une erreur dès l'ouverture du fichier. Comment remédier à ce problème ?

quelle erreur ? sur quelle ligne ? tu as déjà des feuilles protégées dans le classeur ?

 

[Pierrot93]

Re : vba et protection de feuilles

Re,

A noter, pas de souci dans le fichier que tu as joint, enfin chez moi sous 2003....

 

[Vilain]

Re : vba et protection de feuilles

Re,

j'avais effectivement des feuilles protégées.
Une fois les protections enlevées, j'ai une erreur sur la ligne : .EnableAutoFilter True
Je suis en xlsm, le problème vient-il de la ?

 

[Vilain]

Re : vba et protection de feuilles

re,

problème identifié, il manquait simplement le signe =
tout semble marché.

Merci beaucoup.

A plus

 

[Pierrot93]

Re : vba et protection de feuilles

Re,

problème identifié, il manquait simplement le signe =

Aarf oui, bien sur, autant pour moi, désolé, bonne soirée
@+

 

[Vilain]

Re : vba et protection de feuilles

Re,

Un petit problème subsiste : mes tableaux croisés dynamiques ne se mettent plus à jour.
Comment régler ce problème ?

 

[_Thierry]

Re : vba et protection de feuilles

Bonsoir Gillus, le Fil, le Forum

Si tu va dans l'aide VBA sous 2007 on peut trouver ceci comme exemple :

Sub ProtectionOptions()
    ActiveSheet.Unprotect
    ' Allow pivot tables to be manipulated on a protected worksheet.
    If ActiveSheet.Protection.AllowUsingPivotTables = False Then
        ActiveSheet.Protect AllowUsingPivotTables:=True
    End If
    MsgBox "Pivot tables can be manipulated on the protected worksheet."
End Sub

Donc on peut aussi manipuler la Protection en laissant les PivotTables (TCD en Français) autorisés.
Juste une remarque, pas sûr que ca passe sous 2003, mais si tu es en XLSM c'est que l'on parle de 2007 ou 2010 au moins...

Bien à toi
@+Thierry

 

[Pierrot93]

Re : vba et protection de feuilles

Bonjour Gillus, Thierry

Juste une remarque, pas sûr que ca passe sous 2003, mais si tu es en XLSM c'est que l'on parle de 2007 ou 2010 au moins...

OK également sous 2003...

de ce fait on pourrait peut être modifier la procédure ainsi :

Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
    With ws
        .EnableAutoFilter = True
        .Protect "toto", userinterfaceonly:=True, AllowUsingPivotTables:=.PivotTables.Count > 0
    End With
Next ws
End Sub

bonne journée
@+

 

[_Thierry]

Re : vba et protection de feuilles

Bonjour Pierrot, Gillus

Merci de cette confirmation pour 2003, en fait par moment on finit par ne plus être sûr de ce que les versions "encaissent" au fur et à mesure des versions, et tout tester sur tous les environnements c'est du taff !

Bonne journée
@+Thierry

 

[Vilain]

Re : vba et protection de feuilles

Bonjour à tous,

J'ai toujours mon problème de mise à jour des TCD malgré votre aide.
Je joins mon fichier tel qu'il est, sachant qu'il est normalement en xlsm et que je suis sous 2007.
Merci d'avance pour votre aide.

Gillus

ps : les mots de passe sont "toto"