XL 2019 excel

diobaz

XLDnaute Nouveau
bonjour je voudrai savoir si on peut ouvrir un feuille de protection pour y apporter des modifications
 

Roblochon

XLDnaute Occasionnel
Bonjour,

Si vous avez le mot de passe Oui.
Sinon, demandez au propriétaire du fichier.
Sur xld normalement il n'est pas permis de satisfaire ce genre genre de demande.

Bon week-end
 

David XLD

Administrator
Membre du personnel
Bonjour,
J’ai supprimé la pièce jointe.
Il est interdit de demander de déprotéger des fichiers sur ce forum.
Merci
David
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

David
Je pense que cette macro ne brave pas l'interdit.
Je te laisse la tester afin que tu autorises sa diffusion ;)
VB:
Sub Macro_Trouve_PassWord()
Dim x%, y%, PwD, MyTimer As Double
Z_Vector = Split("66 97 122 105 110 103 97")
    For x = 1 To 256
        MyTimer = Timer
        Do
        Loop While Timer - MyTimer < 0.03
        With Application
        .StatusBar = "Nombre de mots de passe testés: " & x & " : " & _
        Chr(.RandBetween(65, 90)) & "|" & Chr(.RandBetween(127, 201)) & _
        .Rept(Chr(.RandBetween(48, 57)), 3) & .Rept(Chr(.RandBetween(32, 47)), 3)
        End With
        DoEvents
    Next x
Application.StatusBar = False
For y = LBound(Z_Vector) To UBound(Z_Vector)
PassWord_Check = PassWord_Check & Chr(Z_Vector(y))
Next
MsgBox PassWord_Check & "!", vbInformation, "Le mot de passe est:"
End Sub
 

Discussions similaires


Haut Bas