Bonjour

[jinterdits]

Qui peut me donner l'explication de ce code dans VB?
............................................................................................
Private Sub Worksheet_Change(ByVal Target As Range)
Moncode = Worksheets("Index").Range("d12").Value
Moncode2 = Int(Sqr(Moncode)) * 135
If Moncode2 = 39150 Then
MsgBox "Numéro de série correct Version enregistrée"
Dim SH As Worksheet
For Each SH In ActiveWorkbook.Worksheets
Select Case SH.Visible
Case xlSheetHidden: SH.Visible = xlSheetVisible
End Select
Next SH
Sheets("SOMMAIRE").Select
Else
MsgBox "Impossible de continuez Mauvais mot de passe"
End If
End Sub
.............................................................................................

Merci d'avance

 

[Catrice]

Re : Bonjour

Bonjour,

C'est un code qui verifie un code dans une cellule et affiche des feuilles si le code est OK.


Private Sub Worksheet_Change(ByVal Target As Range) 'A chaque modification de cellule dans la feuille on execute la macro
Moncode = Worksheets("Index").Range("d12").Value 'Moncode = la valeur de D12 dans la feuille Index
Moncode2 = Int(Sqr(Moncode)) * 135 'MonCode2 = racine carrée de Moncode x 35
If Moncode2 = 39150 Then 'Si Moncode2 = 39150
MsgBox "Numéro de série correct Version enregistrée" 'Message Code OK
Dim SH As Worksheet
For Each SH In ActiveWorkbook.Worksheets 'On boucle sur toutes les feuilles
Select Case SH.Visible
Case xlSheetHidden: SH.Visible = xlSheetVisible 'On les affiche
End Select
Next SH
Sheets("SOMMAIRE").Select 'On se met sur SOMMAIRE
Else
MsgBox "Impossible de continuez Mauvais mot de passe" 'Sinon on ne fait rien
End If
End Sub

On peut modifier la boucle comme ceci :
For Each SH In ActiveWorkbook.Worksheets
SH.Visible = xlSheetVisible
Next SH

 

[jeanmiba]

Re : Bonjour

Pourquoi ne pas le demander a son auteur : ROBERT René utilsfr@fr.fm

 

[kjin]

Re : Bonjour

Bonjour,

Pourquoi ne pas le demander a son auteur : ROBERT René utilsfr@fr.fm

Ca au moins c'est une entrée en matière
😕
kjin

 

[coolzero72]

Re : Bonjour

Salut je pense que ce qui t’intéresse réellement c'est le déchiffrage de ce code ci :

Moncode = Worksheets("Index").Range("d12").Value ==> "Moncode" = Valeur de la cellule "D12" sur la feuille "INDEX"
Moncode2 = Int(Sqr(Moncode)) * 135 ==> "Moncode2" = Racine² de "Moncode" Multiplié par "135"
If Moncode2 = 39150 Then

Donc si tu suis ce raisonnement ...

Moncode2/135 = quotient
Moncode = quotient²

Pour ton code:

39150/135=290
290²=84100

Ceci dit il est interdit de s'introduire illégalement dans le code VBA d'un fichier excel sans l'accord express de l'auteur.
Je me doute que si tu as le code source VBA d'un fichier de Mr ROBERT René, c'est que tu as forcé le mot de passe ...

Donc le mieux serait tout de même de le contacter... acheter un allopass pour avoir le code serait à mon sens plus respectueux car il a travailler sur son code source et c'est pas cool...

à bon entendeur.