Protection blindé pour un fichier Excel
Bonsoir tout le monde, je veux savoir si y'a il une protection blindé d'un fichier excel au mode lecteur seul contre les crackeur.
sachant que j'utilise excel 2007, et merci d'avance
Salut, cela dépend de ce que tu veux protéger.
le contenu, la forme (présentation), le VBA
Sachant que tu peux le faire avec des mots de passe...
Si tu veux protéger du VBA je te conseil cette lecture https://www.blog-excel.com/comment-proteger-un-code-vba-efficacement/
Cordialement,
Leakim
Re,
De rien
leakim
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
Salut,
Pas de solution pour le MDP, désolé.
Private Sub workbook_open()
'Déclaration des variables
Dim i As string
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
For i = 1 To Sheets.Count
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 SubA tester.
Leakim
Bonjour,
tu ne pourras pas empêcher quelqu'un de faire sauter tes protections sur excel qui sont 'légères'.
La seule protection résistante est la protection en lecture du classeur, seulement il faut le mot de passe pour pouvoir le consulter...
Et oublie toute protection/destruction sérieuse passant par une macro, il suffit de les refuser à l'ouverture.
eric
Salut Eriiic
Constat partagé
Leakim
Bonjour ,merci beaucoup leakim le code de vba et résolue mais je pense qu'il faut remplacer le terme "visible=false" par "visible= xlVeryHidden, la protection sera mieu .
bon-journée a toutes et a touts