Problème de protection de projet vba

[Itori]

Bonjour,

Désolé pour la mauvaise présentation que je vais faire, je n'arrive pas a poster le message que j'ai réalisé ce qui ne va donc pas être très présentable vu que je l'ai donc coller dans un fichier .txt...


Edit : avec le fichier c'est mieux non ^^ [file name=exceldownloads.zip size=1090]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exceldownloads.zip[/file]

Message édité par: itori, à: 18/05/2006 12:24

 

[coco_lapin]

Bonjour Itori et le forum.

Ton message ne passe pas car il y a des inférieurs et supérieurs dans ton texte.

C'est vrai que le txt est dur à lire.

Maintenant je dois partir, j'avais posé une question sur la protection du projet VBA et j'arrivais à déprotéger puis reprotéger le projet.
Je chercherai et te posterai cela demain.

 

[coco_lapin]

Je l'ai retrouvé.
Vas vers le bas du fil et ouvre le fichier attaché.

Ce lien n'existe plus

 

[Itori]

je regarde de suite

Voici mon post sans les inférieurs et supérieurs :

Bonjour,

Voilà je rencontre un petit soucis avec la protection de mon projet vba. Après diverses recherches sur le forum j'ai trouvé des macros me convenant cependant pour une raison que j'ignore celles ci ne fonctionnent pas...
Mon projet est protégé pour l'affichage et pour les propriétés.
http://img227.imageshack.us/my.php?image=sanstitre3pt.jpg

Lorsque mon programme arrive au moment de déprotéger le projet, nécessaire afin d'ajouter une référence, il me demande le mot de passe, or si j'ai bien compris ce que fait ma macro il devrait entrer automatiquement le mdp et valider.
J'ai aussi parfois, si je rentre le mot de passe manuellement, un problème avec la reprotection qui ne s'effectue pas.


mon code dans une procédure :

 'Enlève la protection
UnprotectVBProject ThisWorkbook, 'monmdp'
    
Call AjouteRéférence2
Call Arisk
Call EnlèveRéférence2
    
ProtectVBProject ThisWorkbook, 'monmdp'

code de UnprotectVBProject :

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

  Set vbProj = WB.VBProject

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

  Set Application.VBE.ActiveVBProject = vbProj

  ' now use lovely SendKeys to quote the project password
  SendKeys Password & '~~'
  Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
End Sub

code de ProtectVBProject :

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 & '~'

  Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute

End Sub

Voilà j'espère avoir été assez précis et que vous pourrez m'aider a résoudre ce problème.

merci d'avance.

 

[Itori]

j'ai la même macro que toi mais celle ci ne fonctionne pas chez moi. Tu possède quelle version d'excel?

 

[mutzik]

Bonjour Itori

Je ne comprends pas pourquoi tu dois déprotéger tes macros. Si le code est bien ficelé, il n'y a aucune raison de devoir faire cela. Il vaut lieux passer par une cellule d'une feuille 'paramètres' et faire ref à cette cellule

 

[coco_lapin]

Re

J'utilise Excel 2000.

Système d'exploitation Windows XP