Sujet Précédent Sujet Suivant

PASSWORD CLASSEUR EXCEL

seb547 Messages postés 3 Date d'inscription vendredi 30 décembre 2005 Statut Membre Dernière intervention 22 décembre 2011 - 21 déc. 2011 à 10:42
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 30 déc. 2011 à 12:49

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/53885-password-classeur-excel

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 137
30 déc. 2011 à 12:49

Ta remarque est justifiée MATHEOS975. Mais toute fois il est recommandé lorsque l'on teste un programme, de l'ouvrir seul et de prendre connaissance de ce programme avant utilisation. Une mise à jour a été faite avec la correction qui s'imposait pour un usage courant.
@+ Le Pivert

Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 1
30 déc. 2011 à 08:01

oki merci et à toi aussi, profitez en bien pour décompresser ;)

cs_matheos975 Messages postés 3 Date d'inscription lundi 2 juin 2008 Statut Membre Dernière intervention 18 janvier 2012
30 déc. 2011 à 01:12

Une chance que j'avais enregistré mon fichier avant de tester le tien (sinon ca aurait été 2h de travail de perdu).
Voilà un bout de code pour éviter le petit désagrément d'avoir tous les classeurs qui se ferment d'un coup.

'test pour connaitre le nombre de classeur ouvert
Dim NombreClasseur As Integer
NombreClasseur = Workbooks.Count
'Quitte excel s'il n'y a qu'un classeur ouvert
If NombreClasseur = 1 Then
Application.Quit
'Autrement ferme seulement ce classeur
Else: ThisWorkbook.Close savechanges:=False
End If

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 137
23 déc. 2011 à 08:39

Pour le stockage des données, comme l'explique MIMIZANZAN, elles sont stockées dans:
Insertion-Nom-Définir tu cliques sur Montableau et tu verras Fait référence à: et le mot de passe est en dessous.
Pour cela il faut que tu supprimes avant dans Private Sub ecriture()
' Names("MonTableau").Visible = False
ensuite tu compiles et tu changes le mot de passe. Comme tu le vois ce n'est pas une manip facile pour l'utilisateur lambda.
Je te souhaites de bonnes fêtes de fin d'année.
@+Le Pivert

Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 1
22 déc. 2011 à 19:13

oups ma gouré de source -_-" navré je parlais bien sur du mergeimage dont je post une correction sur le bon tread... désolé pour la boulette !

Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 1
22 déc. 2011 à 18:36

Tiens pour commencer tu vas corriger les 28 erreurs :D

Option Explicit On ' c'est bien mais il manque :
tadam ^^ => Option Strict On
donc :
un single, une string, un double ne sont pas des integers ;)
attention aussi aux liaisons tardives.
Au boulot poto (^.^)

Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 1
22 déc. 2011 à 18:20

j'ai pas compris comment et ou était stocké le mot de passe ? c'est un tableau visiblement dans la fonction lecture mais je bloque ^^ tu m'expliques coupain XD

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 137
22 déc. 2011 à 12:26

C'était pour punir ceux qui faisaient AltF4 (lol).
Non j'avais oublié de restaurer en cas de fermeture avec AltF4
@+Le Pivert

seb547 Messages postés 3 Date d'inscription vendredi 30 décembre 2005 Statut Membre Dernière intervention 22 décembre 2011
22 déc. 2011 à 10:10

Cela fonctionne mieux effectivement.
Par contre maintenant dés que j'ouvre un fichier excel, je n'ai plus de menu, je ne peux plus rien faire sur le fichier , malgrés que le fichier "Password_classeur.xls" soit fermé.

J'ai l'impression que excel garde en mémoire les paramétres de ThisWorkbook indianque de cacher la barre d'outil et tout le reste.

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 137
22 déc. 2011 à 08:51

Bonjour ADN56, je profite que ton commentaire a bien voulu s'afficher pour te répondre. Le but est d'empêcher l'activation des macros. Ce qui m'a séduit c'est le stockage du mot de passe qui n'est visible nul part avec cette méthode.Ensuite bien entendu si l'on a accès au code tout est modifiable! Il y a plein de sources sur le sujet, cela en fait une de plus.
@+ Le Pivert

Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 1
21 déc. 2011 à 19:39

c'est pas con du tout, mais je dois pas avoir tout compris de l'utilité...si je désactive les macros, puis que je fais ALT+F11, et que je modifie l'userform de démarrage ? (bon ok faut le code) mais du coup c'est quoi que tu veux protéger ? son utilisation ou sa modification ?
parce que si c'est l'utilisation des macros, j'aurais demandé le mot de passe dans une cellule du classeur et puis basta ;)
Nan ? @ te lire pivert.

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 137
21 déc. 2011 à 15:22

Merci pour le commentaire SEB547. Comme quoi on ne pense pas à tout. La correction est faite. J'ai peut-être oublié une autre faille! Je travaille sous Excel 2003, pour les autres je ne sais pas.
@+ Le Pivert

seb547 Messages postés 3 Date d'inscription vendredi 30 décembre 2005 Statut Membre Dernière intervention 22 décembre 2011
21 déc. 2011 à 10:42

Sous Excel 2003 : à l'ouverture de ton fichier, si l'on fait Alt+F4 cela ferme ta fenêtre de login et l'on a accés au classeur.
Sinon dans l'idée c'est pas mal ;)

Discussions similaires

EXCEL, faire l'inverse tangente atan pour avoir une valeur en degré minute

Calcul sur excel de l'inverse tangente en grade

Les fonctions " racines niemmes " et " arctan "et "arccos " et "arcsin"

tangente et arctangente

maudite Arctangente

Votre réponse

Discussions similaires