Code VBA crypter
bonsoir tout, y a t'il un moyen de lire ce code VBA crypter? et Merci
Private Sub CommandButton_exporter_Click()
Application.ScreenUpdating = False
If e4bbb916b768fa62e2edfdc7b2c6ba8fa >= 0 Then
b4585cde2e81e688a446d496f2379a809 = 0
For i = 1 To 30
If Controls("CheckBox" & i).Value Then
b4585cde2e81e688a446d496f2379a809 = b4585cde2e81e688a446d496f2379a809 + 1
End If
Next
If b4585cde2e81e688a446d496f2379a809 = 0 Then
dd = MsgBox("Vous n'avez rien coché ...", 48, "Erreur")
Exit Sub
End If
BD_TEMP.Cells.ClearContents
For b05bb72f6e451cc37b7247f3aca01f69c = -1 To e4bbb916b768fa62e2edfdc7b2c6ba8fa
n6e909625e03d80f0913a1855c7b9e69f = 0
If e4bbb916b768fa62e2edfdc7b2c6ba8fa > xlEntireChart Then Exit For
For bb7a1e2a3fdf57e659da8c898e3737416 = 1 To 30
If Controls("CheckBox" & bb7a1e2a3fdf57e659da8c898e3737416).Value Then
n6e909625e03d80f0913a1855c7b9e69f = n6e909625e03d80f0913a1855c7b9e69f + 1
If b05bb72f6e451cc37b7247f3aca01f69c = -1 Then
w0f72c458a2dd643978e7aff6015d7700 = 1
Else
w0f72c458a2dd643978e7aff6015d7700 = e85c33963b652c33f4b04519aa1c08dc8(b05bb72f6e451cc37b7247f3aca01f69c)
End If
BD_TEMP.Cells(b05bb72f6e451cc37b7247f3aca01f69c + 2, n6e909625e03d80f0913a1855c7b9e69f) = BD_CONTACTS.Cells(w0f72c458a2dd643978e7aff6015d7700, bb7a1e2a3fdf57e659da8c898e3737416)
If IsDate(BD_CONTACTS.Cells(w0f72c458a2dd643978e7aff6015d7700, bb7a1e2a3fdf57e659da8c898e3737416)) Then
BD_TEMP.Cells(b05bb72f6e451cc37b7247f3aca01f69c + 2, n6e909625e03d80f0913a1855c7b9e69f).NumberFormat = "m/d/yyyy"
End If
End If
Next
Next
BD_TEMP.Range("1:" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2).Copy
ba5b1fb13e8879ea12cf0153494604367 = ActiveWorkbook.Name
Dim Classeur_export As Workbook
Set Classeur_export = Workbooks.Add
Classeur_export.ActiveSheet.Paste
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
If Val(Application.Version) >= 12 Then
ActiveSheet.Cells.Select
ActiveSheet.Sort.SortFields.Clear
If Controls("CheckBox1").Value = True Or (Controls("CheckBox1").Value = False And Controls("CheckBox2").Value = False) Then
ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End If
If Controls("CheckBox1").Value = False Or (Controls("CheckBox1").Value = True And Controls("CheckBox2").Value = False) Then
ActiveSheet.Sort.SortFields.Add Key:=Range("B2:B" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End If
ActiveSheet.Sort.SortFields.Add Key:=Range("C2:C" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2 _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:AE" & e4bbb916b768fa62e2edfdc7b2c6ba8fa + 2)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
ActiveSheet.Range("1:1").Font.Bold = True
ActiveSheet.Range("A1").Select
Application.CutCopyMode = False
Unload Me
Unload UserForm_STOCK
Workbooks(ba5b1fb13e8879ea12cf0153494604367).Sheets("BD_TEMP").Cells.ClearContents
Else
Unload Me
End If
End Sub
bonsoir samia89
je pense qu'il vaux mieux demander a l'auteur de ce code de te le décrypter a moins qu'il l'ai crypter pour rentabiliser son travail
et où as tu trouvé un code pareil ? tu le sors de quel classeur
JE L'EST TROUVERVE SUR LE NET. JE TE JOINS LE FICHIER POUR LE MOTS DE PASSE PROJET VBA UTILISE 123
EDIT ADMIN : fichier supprimé
bonsoir samia89 et le forum
c'est tout a fait ce que je t'ai dit dans ma réponse précédente car je connais ce fichier et il a du etre piraté par quelqu'un qui la diffuser par la suite sans remords envers son concepteur et voici dans le code ce qu'il y a
'Le code VBA n'est "lisible" et indenté que dans la version payante qui autorise l'accès au code VBA
et le classeur original se trouve ici https://www.excel-pratique.com/fr/logiciels/gestion-stock.php
Cher samia89,
Merci de vouloir chercher à pirater cette application de gestion de stock que j'ai mis un temps fou à développer et d'oser venir en plus poster cette demande sur ce forum !
Quoiqu'il en soit, je ne vois pas bien ce que tu espères en cherchant à comprendre ce bout de code et tu es bien naïf si tu penses pouvoir "cracker" cette application si facilement (et je ne parle pas de l'accès au code VBA protégé qui ne sert pas à grand chose ici).
Bref, bye bye samia89 (bannissement du forum)
Je verrouille.