Soyez le premier à donner votre avis sur cette source.
Snippet vu 314 729 fois - Téléchargée 43 fois
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
Il faut juste respecter la mise en page des lignes (pas de retour à la ligne...)
Merci, la macro original fonctionne bien.
j'ai ouvert la feuille protégée aller dans "outil, macro, visual basic editor" et sur sur l'écran de droite fait la copie du programme ci-dessus puis retourner dans la feuille. Cependant, en faisant "outil, macro, macro" mais il n'y a pas macro enleve_protection. Pouvez-vous détailler la procédure et où trouver la fonction enleve_protection.
Merci pour votre aide
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.