OVH Cloud OVH Cloud

mot de passe dand VBA

2 réponses
Avatar
jean marie
Bonjour

j ai recupérér un programme excel sous vba d'un collegue parti
je dois le modifier mais il y a un mot de passe

y a t il un moyen de faire sauter ce mot de passe

merci pour votre aide

jean marie

2 réponses

Avatar
Francois
Bonjour

j ai recupérér un programme excel sous vba d'un collegue parti
je dois le modifier mais il y a un mot de passe

y a t il un moyen de faire sauter ce mot de passe

merci pour votre aide

jean marie



Bonjour,

Question récurrente qui entraîne généralement des explications sur le
fait qu'il n'est pas dans les habitudes du MPFE de fournir les adresses
où l'on trouve les solutions ... mais qu'il est facile de les trouver
(très facile) grâce à n'importe quel moteur de recherche.

--
François L

Avatar
nospam-Awerel
oui, essaie d'inserer ce pgm dans un module VBA
et lance le; il trouve un algo. compatible...
pb : à relancer sur chaque feuille protégée !

Sub enleve_protection()
Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer
On Error Resume Next
For a = 65 To 66
For b = 65 To 66
For c = 65 To 66
For d = 65 To 66
For e = 65 To 66
For f = 65 To 66
For g = 65 To 66
For h = 65 To 66
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 32 To 126
ActiveSheet.Unprotect Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) &
Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l)
If ActiveSheet.ProtectContents = False Then
MsgBox "La Protection a été enlevée - Un mot de passe
satisfaisant est :" & Chr(a) & Chr(b) & _
Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & _
Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

"jean marie" a écrit dans le message
de news:
Bonjour

j ai recupérér un programme excel sous vba d'un collegue parti
je dois le modifier mais il y a un mot de passe

y a t il un moyen de faire sauter ce mot de passe

merci pour votre aide

jean marie