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 Accro
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
 

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas