Problème erreur 400 avec la macro

[bobbyfab]

J'ai un petit problème avec ma macro deproteger les feuilles. Il change de nom et me dit qu'il n'existe pas. 😕

Voici à quoi il ressemble:

Sub DeprotectionToutesLesFeuillesMDP()
Dim MyMtPss As String
If ActiveSheet.ProtectContents = False Then Exit Sub
MyMtPss = Application.InputBox("Mot de passe pour continuer")
If MyMtPss <> "mdp" Then Exit Sub
MsgBox "Attention, toutes les feuilles vont être déprotégées"
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Workbooks("fichier d'aide.xls").Sheets
Feuil.Unprotect Password:="mdp"
On Error GoTo Sortie
suite:
Next Feuil
Exit Sub
Sortie:
MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"
GoTo suite
End Sub

Ensuite quand je réussi a résoudre le problème, il me dit erreur 400. Donc merci de m'aider rapidement.

Cordialement Bobby

 

[youky(BJ)]

Re : Problème erreur 400 avec la macro

Bonjou bobbyfab,
Inverse ces 2 lignes
Feuil.Unprotect Password:="mdp"
On Error GoTo Sortie

par comme ceci

On Error GoTo Sortie
Feuil.Unprotect Password:="mdp"
et annule error en...
Sortie:
Err.clear
Msgbox......

A+

 

[ROGER2327]

Re : Problème erreur 400 avec la macro

Bonjour bobbyfab

Essayez ceci :

[COLOR="DarkSlateGray"][B]Sub DeprotectionToutesLesFeuillesMDP()
Dim MyMtPss As String
Dim Feuil As Worksheet
   If ActiveSheet.ProtectContents = False Then Exit Sub
   MyMtPss = Application.InputBox("Mot de passe pour continuer")
   If MyMtPss <> "mdp" Then Exit Sub
   MsgBox "Attention, toutes les feuilles vont être déprotégées"
   Application.ScreenUpdating = False
   For Each Feuil In Workbooks("fichier d'aide.xls").Sheets
      On Error GoTo Sortie
      Feuil.Unprotect Password:="mdp"
      On Error GoTo 0
   Next Feuil
Exit Sub
Sortie:
   MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"
   Resume Next
End Sub[/B][/COLOR]

ROGER2327
#2141

 

[oligui]

Re : Problème erreur 400 avec la macro

Désolé, mais la macro de youky me fait encore error 400 et celle de roger2327 me dit que les feuilles sont encore protégé. J'ai essayer de mélanger les 2 macro mais le résultat est error 400 et que toutes les sont protégé.

Alors je ne sais pas trop quoi faire.

 

[ROGER2327]

Re : Problème erreur 400 avec la macro

Re...

Sans plus d'indication sur le fichier (l'idéal serait de le voir) je suis incapable d'en dire plus. Désolé.​

ROGER2327
#2147

 

[Roland_M]

Re : Problème erreur 400 avec la macro

bonjour à tous

la macro de ROGER2327, que je salut au passage, est correcte !
je ne vois qu'une seule réponse possible, "mdp" n'est pas le bon mot de passe !?