Ma macro "deprotège classeur" ne fonctionne plus

J

jetted

XLDnaute Occasionnel

• 26 Mai 2010

• #2

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

Allo
J'apporterais un petit changement
remplace ce code

Code:

For I = 1 To 4

par

Code:

For I = 1 To Worksheets.Count

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 26 Mai 2010

• #3

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

Bonjour

Merci d'avoir regardé mais cela n'a rien changé

la macro deprotège s'arrête à cette ligne
maFeuille.Unprotect "wxcvbn" 'entre guillemets le mdp

 

Vote positif 0 Vote négatif

J

jetted

XLDnaute Occasionnel

• 26 Mai 2010

• #4

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

Est qu'il y d'autres macro?
D'apres microsoft une erreur de code est attribuable a un colle (paste) qui ne fonctionne pas?

Ton code est parfait je continue a regarder si je peux trouver autre chose...

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 26 Mai 2010

• #5

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

Dans mon classeur j'ai 4 macros
- protege classeur
- deportege classeur
- zone nommée
- suppr zone nommée

Sub zoneNommee()
On Error Resume Next

Sheets("formules_nommees").Select
Range("a1").Select ' 1ère cellule avec nom à insérer
While ActiveCell.Value <> "" ' boucle tant que ce n'est pas vide
ActiveWorkbook.Names.Add Name:=Selection.Value, RefersTo:=ActiveCell.Offset(0, 1).Value

If Err.Number = 0 Then
cpt = cpt + 1
Err.Clear
End If

ActiveCell.Offset(1, 0).Select
Wend
MsgBox cpt & " Zones ajoutees."
End Sub

Sub SupprZoneNommee()
For Each Zone In ActiveWorkbook.Names
Zone.Delete
Next
End Sub



malheureusement je ne peux pas poster mon fichier car plein de données nominatives que je ne peux pas supprimer vu que mes onglets sont protégés 😕

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Mai 2010

• #6

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

Bonsoir Nat 54 jetted le forum
teste voir le code ci-dessous
a+
papou 🙂

Allez Nat un petit essai

Code:

Sub DeProtegeClasseur()
Dim ws As Worksheet
For each ws in worksheets
ws.Unprotect password:="wxcvbn" 
Next ws
End Sub

 

Dernière édition: 26 Mai 2010

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Mai 2010

• #7

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

Re Nat54 jetted le forum
et l'inverse
a+
Papou 🙂

Code:

Sub ProtegeClasseur()
Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Protect Password:="wxcvbn"
    Next ws
End Sub

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 27 Mai 2010

• #8

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

Bonjour,

J'ai testé vos 2 codes

Je lance protegeclasseur, ça marche
je lance deprotege, ça ne marche pas

le + bizarre
Je lance protegeclasseur, ça marche
en manuel j'arrive à déprotéger certains onglets avec le MdP mais pas tous 😕
(les 4 premiers je n'y arrive pas, et un en plein milieu sur une vingtaine d'onglets)

 

Dernière édition: 27 Mai 2010

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 27 Mai 2010

• #9

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

Re Nat54,
tu es sur de ton mot de passe?
quand tu essayes de retirer la protection manuellement avec ton mot de passe sur une des feuilles au milieu justement, cela ne marche pas non plus alors?
a te relire
a+
papou 🙂

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 27 Mai 2010

• #10

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

oui j'en suis sûre
vu que le MdP était placé via la macro que j'ai posté
donc wxcvbn

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 27 Mai 2010

• #11

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

Re Nat
tu en es sur mais tu ne réponds pas à la question alors on va reposer :

quand tu essayes de retirer la protection manuellement avec ton mot de passe sur une des feuilles au milieu justement, cela ne marche ?
rayes les mentions inutiles!

"oui".......... ...." non" ................" je ne veux pas te répondre"
a+
Papou 🙂

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 27 Mai 2010

• #12

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

Désolée je pensais que c'était clair dans mon message précédent

donc en manuel, "ôter protection" ne marche pas sur les 5 onglets en question

je sens que je vais devoir cracker le fichier ...

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 27 Mai 2010

• #13

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

Bonjour le fil 🙂,
Je pense qu'effectivement, le plus simple est de cracker les MdP afin de récupérer les feuilles non protégées, puis de repartir.
Mais c'est bizarre, es-tu la seule à utiliser le fichier, ou pourrait-il y a avoir un petit malin qui t'aurait mis un MdP différent 😛?
Comme tu parles toi même de le cracker, je ne te ferai pas un cours sur la quasi impossibilité de protéger correctement un fichier Excel 😀...
Bonne journée 😎

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 27 Mai 2010

• #14

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

Bonjour Jean Noël 🙂, Nat,
oui mais pour craquer avec quoi? acyd sur 2007 ne marche pas ou alors j'ai raté un épisode?
Pour moi le MDP de Nat a été changé c'est pas possible autrement
Et il est sur que si la dé-protection ne marche pas en manuel cela ne marchera pas plus avec une macro, ou alors il y a une subtilité je ne sais ou!!!
a+
papou 🙂

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 27 Mai 2010

• #15

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

Le fichier est sur un répertoire partagé
mais vu le niveau des autres utilisateurs je ne pense pas qu'ils aient changé le mot de passe

je vais chercher sur xld pour le cracker

 

Vote positif 0 Vote négatif