Oter la protection d'une feuille excel avec une macro
Contenu du snippet
la macro désactive la protection des feuilles Excel
Tout est dans le code (testé sous excel 97)
Source / Exemple :
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
Conclusion :
Tout est dans le code (testé sous excel 97)
A voir également
- Oter la protection d'une feuille excel avec une macro
- Vba supprimer une feuille ✓ - Forum VBA Office (Excel, Word ...)
- Copier automatiquement une cellule excel dans une autre feuille (vba) ✓ - Forum Visual Basic
- Copier coller valeurs d'une feuille vers une autre feuille à partir de la premiè ✓ - Forum Visual Basic 6
- Copier cellule dans autre feuille (vba) - Forum Visual Basic
- Copier le contenu d'une feuille excel dans une autre - Forum Visual Basic
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.