Ouverture protégée

[Yohan05]

Bonjour ,

J'ai un petit pronlème avec la protection des feuilles.

J'ai transformé cette formule
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim t As Variant, i As Byte
t = Array("toto", "tata", "titi")
For i = 1 To 3
Sheets(i).Protect t(i - 1)
Next i
End Sub

en
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim t As Variant, i As Byte
t = Array("toto", "tata", "titi")
For i = 1 To 7
Sheets(i).Protect t(i - 1)
Next i
End Sub

Seulement, je n'arrivais pas à protégé toutes les feuilles donc j'ai effacer cela de VBA mais il y a encore 2 feuilles de protégée alors que je n'ai plus rien dans VBA.

Comment je peux faire pour enlever toutes les protections car les password ne vont plus....

Je ne comprend pas du tout .....

Merci de votre aide.

 

[phlaurent55]

Re : Ouverture protégée

Bonjour Yohan,

il y a déjà un petit problème dans tes boucles
le première...............For i = 1 To 3
la seconde...............For i = 1 To 7

à+

 

[Yohan05]

Re : Ouverture protégée

Oui j'ai modifié la boucle pour protéger 7 feuilles du classeur au lieu de 3...

Est-ce possible de réinitialiser les protection du classeur parceque je suis vraiment coincé...

Je ne sais plus ôter les protections sur 2 feuilles...

Comment je peux faire

 

[phlaurent55]

Re : Ouverture protégée

Re,

pour déprotéger une feuille manuellement:

si feuille protégée et que tu ne connais pas le mot de passe, sélectionne la totalité de la feuille ( Ctrl + A) ensuite "Copier" et "coller" dans une nouvelle feuille la protection disparaîtra

à+

 

[Yohan05]

Re : Ouverture protégée

Merci beaucoup cela fonctionne, c'est vrai que c'était simple ...

@+