Bonjour leakim
je vous remercie pour votre aide , j'ai essayé l'obfuscation de code VBA par ligne et ça fonctionne parfaitement avec les variables mais le mots passe ne change pas , je ne sais pas comment fonctionne cette obfuscation pour empêcher de cracker un classeur ou cacher le mot de passe des feuilles protégé ou bien détruire toutes les fonctions vba et les formules de classeur pour rendre ce dernier inutilisable après un cracker.
pouvez-vous m'expliquer plus ?
Et j'ai une autre question aussi, j'ai créer une macro pour cacher toutes les feuilles à l'ouverture de mon classeur seulement une feuille ("Sommaire") je entre mon mot de passe dans un TestBox, si je saisie "1234" toutes les feuilles de mon classeur afficher sauf la feuille "SAISIE" qui contient la base de donner, et quand je saisie le code administrateur "1234567" mon classeur afficher toutes les feuille.
voila la macro qui j'ai créer mais ça fonctionne pas à cause d'une erreur . pouvez-vous m'aider de corrigé cette erreur.
Private Sub workbook_open()
'Déclaration des variables
Dim i As Integer
Dim Monpassword As Variant
'Afficher la feuille Sommaire dès l'ouverture du classeur
Worksheets("Sommaire").Activate
'on faire une boucle permettant de masquer toutes autres feuilles
Sheets("User" & i).Visible = False
Next i
'on va récupérer le code ou mot de passe une boite de inputBox
MonPasseword = InputBox("Veuillez vous entrer votre mot passe pour accéder a PayCom:", "Identification")
'On va realiser les différents teste
If Monpassword = "1234" Then
Worksheets("User" & i).Visible = True
Worksheets("SAISIE").Visible = False
Worksheets("Page d'accueil").Select
Range("a1").Select
'ouvrir toutes les feuilles si mot de passe administrateur
If Monpassword = "1234567" Then
For i = 1 To Sheets.Count
Worksheets("User" & i).Visible = True
Next i
End If
End If
End Sub