Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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.
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
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
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" <jeanmarie@discussions.microsoft.com> a écrit dans le message
de news: 4153C7FA-DF51-48CD-A958-760415D22D1D@microsoft.com...
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
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