Ôter protection feuille d'un classeur excel & trouver mot de passe fichier

Soyez le premier à donner votre avis sur cette source.

Vue 31 430 fois - Téléchargée 3 526 fois

Description

Version de base
Enlever la protection de toutes les feuilles d'un classeur EXCEL.
le code qui est dans le module1 est à l'origine de grandebutant forum excel,
que j'ai adapté en vb.

mini requis :
- excel installé sur pc
- netframwork 3.5 sp1

Source / Exemple :


voir le zip

Conclusion :


aucune prétention avec ce code.
j'attend votre avis sur la construction et le code, pour progresser.

par ailleurs je pense que ce code pourrais être améliorer dans le sens de la disponibillité de la cpu (avec le code chez moi elle tourne à 100%).

Pour la détection mot de passe VBA je l'es, mais je ne le publierais pas.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

astouz2000k
Messages postés
50
Date d'inscription
samedi 2 juillet 2005
Statut
Membre
Dernière intervention
2 mai 2013
-
Bonjour,

cela ne marche pas chez moi.
stef68600
Messages postés
42
Date d'inscription
vendredi 31 juillet 2009
Statut
Membre
Dernière intervention
26 juillet 2013
-
voila un commentaire bien stérile...

version excel ?
les mini requis ?
qu'elle est l'erreur ?

etc..
astouz2000k
Messages postés
50
Date d'inscription
samedi 2 juillet 2005
Statut
Membre
Dernière intervention
2 mai 2013
-
oui c'est sur mais j'avais pas beaucoup de temps pour en dire plus.

c'est bon cela fonctionne...

par contre les numeros des feuilles sont inversé et l'interface est pas tres clair.

sinon c'est une tres bonne base.
stef68600
Messages postés
42
Date d'inscription
vendredi 31 juillet 2009
Statut
Membre
Dernière intervention
26 juillet 2013
-
ah oui j'ai pas fait attention effectivement les numéros sont inversés.
je vais revoir ça demain et guider au niveau interface.

merci pour les remarques
astouz2000k
Messages postés
50
Date d'inscription
samedi 2 juillet 2005
Statut
Membre
Dernière intervention
2 mai 2013
-
pour le nom des feuilles j'ai modifier ton code pour recuperer le nom de l'onglet comme ceci :

TextBox1.Text = TextBox1.Text & vbCrLf & "feuille : " & oSheet(Nbsheet).Name() & " enlevement clé en cours..."

bonne soirée.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.