password

[gege21]

bonjours

peut t’ont mettre un mot de passe par macro sur VBAproject ??
si oui comment

 

[Dull]

Re : password

Salut gege21, le Forum

Oui on peux

Alt + F11
Onglet Outils/Propriétés de VBAProject...
Onglet Protection
Cocher Verrouiller le projet pour l'affichage
Inscrit ton Mot de Passe et confirmes le

Click sur Ok
Enregistre et Ferme ton Fichier.

à la prochaine ouverture le Projet sera accessible seulement avec le mot de passe (Surtout ne pas l'oublier)

Bonne Journée

 

[gege21]

Re : password

bonjour dull

je voudrai faire sa par macro
mais j'ai essaye l'enregistreur de macro il n'a rien enregistre
comment faire ??

 

[Victor21]

Re : password

Bonjour;

Ce Ce site n'existe plus, qui renvoie vers un code de Laurent Longre, sur le site de Frédéric Sigonneau devrait vous intéresser.

Edit : voir plutôt Ce site n'existe plus

 

[tototiti2008]

Re : password

Bonjour Gege, Bonjour Dull

A priori ce n'est pas possible, en tout cas je n'ai pas trouvé de solution

 

[Victor21]

Re : password

Re, Bonjour, tototiti

Toujours sur le même site, ce code de Bill Manville :
Attention : modifier le nom du fichier à protéger !

Attribute VB_Name = "ProtegerDeprotegerVBAProject"

'Bill Manville, mpep

'================
Sub TestProtect()
  ProtectVBProject Workbooks("Perso.xls"), "zaza"
End Sub

Sub TestUnprotect()
  UnprotectVBProject Workbooks("Perso.xls"), "zaza"
  'pour qu'Excel reconnaisse la nouvelle situation (déprotection)
  DoEvents
  With Workbooks("Perso.xls")
    'ajout d'un module standard
    .VBProject.VBComponents.Add 1
  End With
End Sub

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 <> 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

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

  WB.Save
End Sub
'================

 

[gege21]

Re : password

merci pour les réponse
il aurais fallut que se soit dans un userform

 

[tototiti2008]

Re : password

Bonjour Victor ,
Re,

Oui, c'est vrai, il reste les raccourcis clavier
J'ai regardé dans l'aide VBA, et pour

vbProject.Protection

ils mettent que c'est en lecture seule, pas essayé plus loin

 

[Victor21]

Re : password

Re, tototiti

Je ne suis pas un vbaiste confirmé, et n'ai pas décortiqué le code, mais le fichier joint montre qu'il fonctionne. (Il est nécessaire, bien entendu, de fermer le fichier pour que la protection soit effective).Seul ennui : la création à chaque fois d'un module supplémentaire -vide- dans le projet du fichier.
Mais je pense qu'il ne doit pas être difficile de supprimer un module vide. J'y retourne.

 

[Victor21]

Re : password

Re

Suite :
Un code de silkyroad :

Sub supprimerTousModulesVides()
    Dim vbComp As VBComponent
    Dim i As Integer, j As Integer
    
    For Each vbComp In ActiveWorkbook.VBProject.VBComponents
        If vbComp.Type = 1 Then
            i = vbComp.CodeModule.CountOfDeclarationLines + 1
            j = vbComp.CodeModule.CountOfLines
            If j < i Then ActiveWorkbook.VBProject.VBComponents.Remove vbComp
        End If
    Next
End Sub

 

[gege21]

Re : password

et comment peut t'ont changer le mot de pass par macro

 

[Victor21]

Re : password

Re, gege.

Le mot de passe, ici "zaza" est dans la macro. Quelle est la question ?

 

[gege21]

Re : password

ma question est comment changer le mot de passe par macro

 

[Victor21]

Re : password

Re, gege21

(Eh oui, l'habitude ici est de saluer au début de chaque post !)

Désolé, je pensais que c'était clair : pour changer le mot de passe par macro, il suffit de remplacer le mot de passe actuel "zaza" par ce que vous voulez dans la macro communiquée au #6.

 

[gege21]

Re : password

re,victor21

se que je veut pour être plus précis c pouvoir mettre un nouveaux mot de pass
regarde le ficher