protéger Projet VBA par mot de passe grâce à une macro

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2011

• #2

Re : protéger Projet VBA par mot de passe grâce à une macro

Bonjour,

il faut passer les arguments à la procédure...

Code:

Sub TestProtect()
ProtectVBProject Workbooks("Classeur1.xls"), "motdepasse"
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 15 Juillet 2011

• #3

Bonjour oranger et le forum.

Il faut aller dans le VBA (ALT + F11), puis clic droit sur microsoft excel objet dans fenêtre de gauche puis propriétés de VBAProject
puis prtection et vous y voilà.

A +

Edit bonjour pierrot et encore en retard.

 

Vote positif 0 Vote négatif

Oranger

XLDnaute Occasionnel

• 15 Juillet 2011

• #4

Re : protéger Projet VBA par mot de passe grâce à une macro

Bonjour,

J'ai essayé en passant les arguments à la procédure et il me renvoi l'indice n'appartient pas à la sélection

 

Vote positif 0 Vote négatif

Oranger

XLDnaute Occasionnel

• 15 Juillet 2011

• #5

Re : protéger Projet VBA par mot de passe grâce à une macro

Bonjour,

Je joins mon fichier afin de vous montrer mon code

 

Pièces jointes

• Classeur1.xls

  20.5 KB · Affichages: 270
• Classeur1.xls

  20.5 KB · Affichages: 292
• Classeur1.xls

  20.5 KB · Affichages: 303

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2011

• #6

Re : protéger Projet VBA par mot de passe grâce à une macro

Re, bonjour Stephan

Oranger à dit:

Bonjour,

J'ai essayé en passant les arguments à la procédure et il me renvoi l'indice n'appartient pas à la sélection

Cliquez pour agrandir...

sur quelle ligne ? vérifie peut être le nom du classeur, il doit être ouvert...

 

Vote positif 0 Vote négatif

Oranger

XLDnaute Occasionnel

• 15 Juillet 2011

• #7

Re : protéger Projet VBA par mot de passe grâce à une macro

Sur la ligne suivante:

Call ProtectVBProject(Workbooks("Classeur1.xls"), "motdepasse")

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2011

• #8

Re : protéger Projet VBA par mot de passe grâce à une macro

Re,

dans ta déclaration de procédure, "workbook" sans s

Code:

Sub ProtectVBProject(WB As Workbook, ByVal Password As String)

A noter, ton code serait mieux placer dans un module standard plutôt que dans le module d'une feuille.....

 

Vote positif 0 Vote négatif

Oranger

XLDnaute Occasionnel

• 15 Juillet 2011

• #9

Re : protéger Projet VBA par mot de passe grâce à une macro

Le code ne fonctionne pas. Voilà ce que j'obtiens dans mon code:

Sub ProtectVBProject(WB As Workbook, ByVal Password As String)
Dim vbProj As Object

Set vbProj = WB.VBProject

'can't do it if already locked!
If vbProj.Protection = 1 Then Exit Sub

Set Application.VBE.ActiveVBProject = vbProj

' now use lovely SendKeys to set the project password
SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" & _
Password & "~"

epasse motdepasse
Application.VBE.CommandBars(1).FindControl(ID:=78, recursive:=True).Execute

WB.Save
End Sub

Le sendkey écrit mot de passe dans mon code et mon projet n'est pas protégé :s

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Juillet 2011

• #10

Re : protéger Projet VBA par mot de passe grâce à une macro

Re,

epasse motdepasse

Cliquez pour agrandir...

c'est quoi ceci dans ton code ??

A noter la protection sera visible à la réouverture de classeur, il te demandera le mot de passe lorsque tu voudra accéder au projet vba.....

 

Vote positif 0 Vote négatif