Password classeur excel

Soyez le premier à donner votre avis sur cette source.

Vue 6 459 fois - Téléchargée 944 fois

Description

Protéger l'activation des macros d'un classeur facilement. Le principe est simple. Ouvrir un UserForm à l'ouverture qui empêche toutes manipulations. Vous pouvez changer le mot de passe en cochant le checkBox, en entrant le nouveau mot et en cliquant sur "Enregistrer". Si vous entrez un mauvais mot de passe le classeur se ferme. J'ai été obligé de protéger les macros, car l'on pouvez accéder à l'aide d'un autre classeur.Si vous mettez le niveau de sécurité des macros à "Très elevé", vous avez accès au classeur mais pas au macros!
Le mot de passe pour les macros est le même que pour l'ouverture:
vbfrance

Source / Exemple :


Voir zip

Conclusion :


Merci à MIMIZANZAN pour le stockage des données.
Voir les commentaires pour l'explication de stockage:
http://www.vbfrance.com/codes/PARAMETRES-SETTINGS-VBA_53764.aspx

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
6931
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
29 septembre 2020
112
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
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
oki merci et à toi aussi, profitez en bien pour décompresser ;)
Messages postés
3
Date d'inscription
lundi 2 juin 2008
Statut
Membre
Dernière intervention
18 janvier 2012

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
Messages postés
6931
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
29 septembre 2020
112
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
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
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 !
Afficher les 13 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.