Ma macro "deprotège classeur" ne fonctionne plus

[nat54]

Bonjour

Je ne comprends j'utilise toujours cette macro dans ce fichier
ca marchait très bien et ce mois-ci en lançant le code suivant
ça me notifie :
erreur d'execution 1004 mot de passe non valide

Sub ProtegeClasseur()
Dim maFeuille As Worksheet
For I = 1 To Worksheets.Count
Set maFeuille = Worksheets(I)
maFeuille.Select
maFeuille.Protect "wxcvbn", True, True, True 'entre guillemets le mdp
Next

For I = 1 To 4
With Sheets(I)
.EnableAutoFilter = True
.Protect "wxcvbn", UserInterfaceOnly:=True
End With
Next
End Sub
Sub DeProtegeClasseur()
Dim maFeuille As Worksheet
For I = 1 To Worksheets.Count
Set maFeuille = Worksheets(I)
maFeuille.Select
maFeuille.Unprotect "wxcvbn" 'entre guillemets le mdp
Next
End Sub

 

[Pierrot93]

Re : Ma macro "deprotège classeur" ne fonctionne plus

Bonjour à tous,

pour déprotéger une feuille, à priori même sous 2007....

Option Explicit
Sub test()
With ActiveSheet
    .Protect vbNullString, , True, , , , , , , , , , , , , True
    .Unprotect vbNullString
End With
End Sub

bon après midi
@+

 

[nat54]

Re : Ma macro "deprotège classeur" ne fonctionne plus

Bon c'est vraiment bizarre
car pour tester tuot à l'heure j'avais mis un autre MdP dans les 2 codes

là j'ai réussi à enregistrer le fichier ENTIEREMENT déprotégé

je le lance à nouveau

je lance la macro de protection
ça fonctionne les feuilles sont protégées
mais pas toutes avec le mdp du code 😱 😕 😱

et du coup quand je lance la macro de déprotection ca bug

là c'était avec les nouvelels macros
je vais reprendre le smiennes du 1er message pour voir


@ pierrot : je n'avais pas vu ton post

 

[nat54]

Re : Ma macro "deprotège classeur" ne fonctionne plus

ALLELUIA !

je suis trop bête de vous avoir pris du temps ..

j'avais un autre code dans this workbook dont je ne me souvenais plus :

Option Explicit
Private Sub Workbook_Open()
Dim I As Byte, w()
w = Array("export_abs", "export_gestor_M", "export_mensus", "export_MAD")
For I = 0 To 3
With Sheets(w(I))
.EnableAutoFilter = True
.Protect "tdb_rh", UserInterfaceOnly:=True
End With
Next I
End Sub


du coup effectivement y'avait 2 mdp différents

encore désolée de vous avoir dérangé !

 

[JNP]

Re : Ma macro "deprotège classeur" ne fonctionne plus

Re 🙂,

je suis trop bête de vous avoir pris du temps ...
j'avais un autre code dans this workbook dont je ne me souvenais plus :

Pas de problème, mais je n'ai pas l'adresse pour envoyer la facture 😛...
Aie aie aie aie...
Comment pourrais-tu te racheter auprès de nous 🙄...
J'ai bien quelques idées, mais 😀...
Bonne soirée 😎