XL 2019 excel

[diobaz]

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

 

[Hasco]

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

 

[Victor21]

Bonjour.

L'auteur de ce fichier, Moktar F... devrait pouvoir vous renseigner.

 

[David Aubert]

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]

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 😉

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