mot de passe VBA

[copayo]

Bonjour,

j'ai crée un message demandant un mot de passe pour faire apparaitre des feuilles excel en fonction du mot de passe saisi.

Par contre si on va voir le code on trouve les mots de passes permettant d'ouvrir toutes les feuilles !! la protection n'est pas complète

est il possible d'interdire l'accés au code VBA ?

 

[Eric C]

Bonjour le forum
Bonjour copayo

Bien sur c'est possible tout comme il est possible de faire 'sauter' cette même protection.

Dans ton cas de figure :
Tu te rends sous VBE: Menu /Outils/ Outilsd de propriétés VBAproject / Onglet Protection - tu coches Verrouiller le projet - Tu entres puis confirmes ton password -
La protection ne prendra effet qu'à la prochaine ouverture de ton fichier

Bonne fin d'A/M à toutes & à tous 😉

 

[copayo]

merci pour l'astuce,

pour faire suater tu utilise acyd.xla ?? ou il y a plus simple ?

c a priori reserve aux avertis

Message édité par: copayo, à: 15/12/2005 15:49

 

[PascalXLD]

Re

Il faut bien savoir qu'une protection ne sera jamais totale (je viens de faire sauter des protections de fichier d'une fille qui est parti en vacances, qui avait protégé son fichier mais avec des erreurs de formules dedans merci Ti 😉 )

Mais pour l'utilisateur lambda mettre un mot de passe sur tes macros suffira pour les protéger. Ils ne connaissent pas tous Acyd l'utilitaire de TI.

 

[copayo]

Je change de sujet, car ca fait plusieurs fois que tu réponds nikel à mes petits soucis.

j'ai appris plein de trucs encore merci.

hier on discutait envoi de mail.

j'ai le code pour attacher une piece jointe mais il ne se passe rien :


vPJ = Range('B62')
.Attachments.Add = vPJ

et dans B62 : C:\\Mon bureau.bmp

Tu as déja rencontre cette question ?

 

[PascalXLD]

RE

En principe ça devrait passer

Dim vPJ as string

vPJ = Range('B62')
.Attachments.Add = vPJ

si tu as bie le chemin dans ta cellule et que ton fichier exite cela devrait passer

Pour voir tu mets un point d'arrêt sur ta ligne
.Attachments.Add = vPJ
et tu verifies la valuer de vPJ

 

[copayo]

la valeur affiche bien le contenu de ma cellule B62 mais dans le mail pas de piece jointe !!

je bug !!

 

[PascalXLD]

Re

envoies ton fichier pour voir

 

[copayo]

je t'envoi le fichier d'origine, le mien est trop gros,
merci pour le temps que tu m'accordes

Message édité par: copayo, à: 15/12/2005 16:18

 

[copayo]

le fichier : [file name=DemoMessagerieO_20051215161922.zip size=13395]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DemoMessagerieO_20051215161922.zip[/file]