Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 03:37:25

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

RE : COLLECTION par Orohena

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

RE : COLLECTION par skyla

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par PCPT

+ de logiciels à télécharger

1 329 707 membres
54 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 795 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

OTER LA PROTECTION D'UNE FEUILLE EXCEL AVEC UNE MACRO

Information sur la source

Catégorie :VBA Niveau : Débutant Date de création : 02/07/2002 Date de mise à jour : 02/07/2002 19:57:45 Vu : 54 130

Auteur : granddebutant

Ecrire un message privé

Note :

9,67 / 10

Commentaire sur cette source (13)

Ajouter un commentaire et/ou une note

Description

la macro désactive la protection des feuilles Excel

Source

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

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)

Sources du même auteur

OTER LA PROTECTION D'UNE FEUILLE EXCEL PAR MACRO (TABULATION...

Toutes les sources de granddebutant

Sources de la même categorie

VBA EXCEL, REMPLISSAGE D'UN COMBOBOX OU D'UNE LISTBOX par Joh76

VBA EXCEL FONCTION POUR DÉTERMINER LA DERNIÈRE LIGNE D'UNE C... par Joh76

ASTUCES POUR EXCEL. par piloulac

FONCTION JOURSFÉRIÉS (FIXES ET MOBILES) JUSQU'EN 2030 UTILIS... par nerim

PLANNING POUR AGENT (PROJET) par p_l_b_nantes

Toutes les sources de la catégorie VBA

Commentaires et avis

Commentaire de Marcus94 le 24/12/2003 17:17:04

Je l'ai testé sous excel 2000, voilà ce qu'affiche la compil ?? :
Erreur de compilation , erreur de syntaxe sur les lignes :

ActiveSheet.Unprotect Chr(a) & Chr(b) & Chr(c) &_
Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) &_

Marcus.

Commentaire de NaVince le 03/08/2004 14:42:56

Exact, il y a juste une toute petite erreur de frappe de notre ami granddebutant : lorsque l'on veut retourner à la ligne, il faut mettre un espace entre le "&" et le "_". La ligne correctement écrite donne :

ActiveSheet.Unprotect Chr(a) & Chr(b) & Chr(c) & _
Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & _ ... et ainsi de suite.

Sinon, ça marche particulièrement bien ! Félicitations granddebutant !

Vince.

Commentaire de allo300 le 06/09/2005 13:37:13

j'arrivve pas a trouvé la zone se saisie du code...
ile me demande toujours un mot de passe??????????

Commentaire de salsitawapa le 23/10/2005 22:24:20

Fonctionne très bien une fois les petites fautes corrigé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

Commentaire de salsitawapa le 23/10/2005 22:25:22

Merci à granddebutant et NaVince

Commentaire de nasserb le 03/02/2006 15:16:07

merci camarade du monde genereux dans la transmission de la connaissance

Commentaire de le breton fou le 09/02/2006 00:06:21

Je suis tellement nul que je n'ai pas compris la moitié de ce que vous expliquez. J'ai un classeur excel protégé et je rame pour lui ôter cette sinistre protection y a t'il quelqu'un(e) à qui je peux envoyer par mail ce fichu fichier prévisionnel (qui n'a rien de secret mais il est vital pour moi de pouvoir le modifier) pour qu'il lui vire cette clé? d'avance merci beaucoup de votre aide.