B
bobbyfab
Guest
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
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