Discussion :

[blaiso]

Bonjour,

Ce bout de code permet à un utilisateur à déprotéger une feuille de calcul Excel dont on a oublié le mot de passe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub DeProtect()
 
ActiveSheet.Protect , , , , True
ActiveSheet.Range("a1").Copy ActiveSheet.Range("a1")
End Sub

NB: Coller le code derrière la feuille à déprotéger
Ou alors, mettez le dans un module standard, mais prenez soin d'adapter le code pour faire référence aux feuilles pour lesquelles on veut enlever la protection.
Merci et bonne journée.

[AlainTech]

Testé avec Excel 97.

Ca fonctionne!

[ouskel'n'or]

Affiche la boîte de dialogue "Ôter la protection" dans la version 2003
Et pas question d'avoir oublié le mot de passe

[nono le golfeur]

Si je peux me permettre d'ajouter une réponse malgré mes petites connaissance en VBA...

Voilà ça plusieurs fois ou je souhaitais m'inspirer de certain macro où par curiosité je voulais voir le code... Mais comme souvent, feuille protéger où Module VBA protéger...

Pour déprotéger une feuille par exemple, beaucoup de codes circulent... Ils ne fonctionnent pas tous et très souvent, même avec une macro, Excel vous demande le mot de passe pour déprotéger la feuille ...

Donc j'utilise une solution qui jusqu'à présent à bien fonctionné :

j'ouvre mon document avec Open Office, je déchoche l'option protéger Feuille, je le réenregistre et très souvent sous Excel plus de protection...

Evidemment c'est moins beau que des lignes de code ou qu'un programme qui recherche le code mais bon ça fonctionne ....

[ouskel'n'or]

Tiens, deux codes pour le prix d'un
Pour protéger avec mot de passe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each LaFeuille In ActiveWorkbook.Worksheets
     LaFeuille.Protect Password:="zizou"
Next

Pour déprotéger avec mot de passe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each LaFeuille In ActiveWorkbook.Worksheets
     LaFeuille.Unprotect Password:="zizou"
Next

Pour une seule feuille, protection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil1").Protect Password:="zizou"

Pour une seule feuille, déprotection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil1").UnProtect Password:="zizou"

Zut, ça fait quatre codes. Je devrais me faire payer

[nono le golfeur]

Ouskel'nor,

Merci pour ces quatres codes, mais dans mon cas si j'utilise ces codes sur mon fichier Excel dont les feuilles sont protégées par mot de passe, rien ne se passe, la feuille reste protégée !...

Bon faut que j'avoue que ce classeur Excel est assez bizare et a été fait par un service Info qui a collé 12 000 Macros au M² carré mais quand même !!


Merci, et pour la rémunération pkoi pas , créer une sorte de WikiVBA....

[ouskel'n'or]

Je ne vois pas. Peut-être un niveau de sécurité trop élevé
Dans ce cas-là, faut-il mettre les paramètres de protection lors de la déprotection ? Je pose la question. (provoque un bug si je fais ça)