Mot de passe

Salut dave,

regarde les messages de Ti la semaine dernière vers le 18/03/03 ou avant je ne me rappelle plus. Il a un petit programme qui fonctionne à merveille.

C'est TPAcid.exe

Si c'est un mot de passe plus de 8 lettres c'est foutu..

@+

Phil

Salut Dave et Phil,

ça aussi ça marche

Private Sub Deprotege()
Dim essai
On Error Resume Next
ActiveWorkbook.Protect vbNullString, True, True
ActiveWorkbook.Unprotect vbnulltring
For Each essai In Sheets
essai.Protect vbNullString, , , , True
essai.Range("IV65536").Copy essai.Range("IV65536")
essai.Unprotect vbNullString
Next essai
On Error GoTo 0
End Sub

Attention Cathy, il y a plusieurs types de mots de passes, la macro que tu donnes ne fait sauter que les protections de feuilles, et encore elle ne fonctionne plus avec Excel XP.