Un mot de passe pour enregistrer

[La Vouivre]

Bonjour amis exceliens amies exeliennes
Je cherche une macro pour obliger à mettre un mot de passe pour enregistrer toute modification dans un fichier, un userforme demandant un mdp pour enregistrer le document, mais qui fonctionne aussi avec enregistre et enregistrer sous dans les menus des barres d’outils.
Si le mot de passe et bon, enregistrement normal du fichier sinon fermeture sans enregistrement.
J’ai fait une recherche sur le forum sans trouver ce dont je cherche.
Merci par avance pour votre travail

 

[Cousinhub]

Re : Un mot de passe pour enregistrer

Bonsoir,
dans l'évènement du classeur :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
mdp = InputBox("entrez le mot de passe pour enregistrer")
If mdp <> "toto" Then Cancel = True
End Sub

 

[La Vouivre]

Re : Un mot de passe pour enregistrer

Merci bhbh pour la réponse c’est ce que je recherche ,je voudrais en plus si possible pouvoir mettre mon logo dans l’userform , insérer une image , et que le texte du mot de passe soit écrit en étoile « ****** »

 

[Cousinhub]

Re : Un mot de passe pour enregistrer

RE-
dans ce cas, il te faut un userform, car avec un InputBox, mettre des **** à la place des lettres, relève de la gestion des API
Avec un USF, dans un textbox, en mettant une * dans la propriété PasswordChar, les lettres n'apparaissent pas en clair
Et pour le Logo, regarde le dossier joint
Dans le classeur, si tu veux enregistrer : un usf
sur cet usf, une image (incluse dans le dossier, tu peux la changer)
Enregistre le dossier sur ton PC, et essaie

 

[La Vouivre]

Re : Un mot de passe pour enregistrer

J’ai une erreur d’exécution ‘53’ fichier introuvable ,je n’arrive pas à avoir l’userform il semble bloqué ,l’erreur viens du thisworkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
UserForm1.Show
If Not CestBon Then Cancel = True
CestBon = False
End Sub

Ma version d’Excel est une 2003

 

[Cousinhub]

Re : Un mot de passe pour enregistrer

Re,
je pense que l'erreur provient du chargement de l'image
Tu as bien enregistré le dossier sur ton disque dur?

Edit, le fichier modifié

il faut l'enregistrer sur le Disque Dur

 

[La Vouivre]

Re : Un mot de passe pour enregistrer

J’ai bien enregistrer sur mon disque dur le fichier ainsi que l’image ,mais cela n’a pas résolu le problème .
Par contre sans mettre de mot de passe est avec l’erreur le fichier et quand même enregistrer

 

[Cousinhub]

Re : Un mot de passe pour enregistrer

Re-,
Et avec le dernier fichier?

 

[La Vouivre]

Re : Un mot de passe pour enregistrer

escuse moi d'insister mais le fichier n'a pas passer

 

[Cousinhub]

Re : Un mot de passe pour enregistrer

Re,
dans le fichier, on va supprimer l'image...
Tu vas dans le VBE (Alt + F11)
A gauche, tu vois Feuilles
tu doubles-clic dessus, apparait UserForm1
tu doubles-clic dessus, l'userform apparait
Tu doubles clic dessus une partie vide (en bleu)
et tu mets un quote (une apostrophe) devant cette ligne :

Me.Image1.Picture = LoadPicture(monrep & "poisson.jpg")

puis tu retournes sur Excel, et tu essaies d'enregistrer

 

[La Vouivre]

Re : Un mot de passe pour enregistrer

Merci beaucoup pour ce magnifique travail
C’est pile poil ce que je recherchais.
Encore merci et bonne nuit