Discussion :

[France31400]

Bonjour à tous,

Je suis nouveau sur le forum. Je viens souvent chercher des informations ici et je remercie donc tous les modos et les participants.

Je viens aujourd'hui vers vous car je recontre un probléme insoluble.

J'ai protégé certaines feuilles d'un classeur excel grace à la macro (ex pour une feuille) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_Open()
 
    ' Rafraichissement des TCD : Mise à 0
    ActiveWorkbook.RefreshAll
 
    'Autoriser l'accés au grouper/dégrouper et à la modification de taille des lignes et colonnes
       With Worksheets("1.2 Check-list prog")
    .EnableAutoFilter = True
    .EnableOutlining = True
    .Protect Contents:=True, Password:="MDP", UserInterfaceOnly:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
    Feuil1.EnableAutoFilter = True
    Feuil1.Protect Contents:=True, UserInterfaceOnly:=True
 
  End With
End Sub

J'ai répété la manipulation de with Worksheets() à end with pour chacune des feuilles et placé le tout dans Thisworkbook / Workbook.

Seulement, aprés manipulations du fichier et déprotection / protection (notamment manuelles par mégarde), à l'ouverture je reçois un message "Erreur 1004 - MDP non valide." Et il est dés lors impossible de déprotéger, ect...

Comme vous pouvez le voir, j'avais prévu la possibilité d'utiliser les filtres et autres dans le code.

Pour info, je suis débutant. Je vous remercie d'avance pour votre aide.

[Kimy_Ire]

Bonjour France31400,

Si j'ai bien compris, tu as protégé une feuille et perdu le MDP que tu as mis ?

Cordialement,
Kimy

[France31400]

Bonjour Kimy,

Absolument pas, je connais le mdp mais je reçois ce message d'erreur à l'ouverture ce qui empeche toute manipulation sur les feuilles concernées.

En gros, la macro fait en sorte qu'a l'ouverture du classeur, les feuilles voulues sont protégées. Mais les utilisateurs touchent la protection de façon manuelle.

Et désormais à l'ouverture, j'ai désormais ce message d'erreur et l'impossibilité de modifier de façon manuelle la protection des feuilles.

Malgré ca le mdp reste inchangé.

Je précise que j'ai mis un mdp au projet vba, le probléme vient peut être de la.

[Kimy_Ire]

France31400,

Sauf erreur de ma part, il est nécessaire de déprotéger tes feuilles avant de rafraîchir tes TCD, les filtrer ou autre chose, non ?

Cordialement,
Kimy

[France31400]

Alors rafraichissement des TCD, je l'ai laissé car il est aussi dans Theworkbook aprés "Private Sub Workbook_Open()". On peut le laisser de coté ici car je ne pense pas qu'il fasse parti du pb.

Pour utiliser filtres et autres je peux le faire même sous protection.

(les utilisateurs déprotégent et reprotégent à la main car ils ne comprennent pas bien la macro mais je ne suis pas sur que le pb vienne de la).

J'éspére être assez clair.

Pour info,

Le but initial etait de pouvoir grouper dégrouper sur feuille excel protégée.