XL 2019 excel

diobaz

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

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

Réponses
3
Affichages
224
  • Question
Microsoft 365 Tableau excel
Réponses
15
Affichages
977
Réponses
11
Affichages
414

Statistiques des forums

Discussions
311 724
Messages
2 081 938
Membres
101 844
dernier inscrit
pktla