Discussion :

[steph68b]

salut à tous,

petite question TRES simple pour les spécialistes que vous êtes.

peut-on, via le code VBA, activer/désactiver un mot de passe sur un projet VBA comme on peut le faire manuellement via l'interface?



pour l'explication:
-> je voudrais protéger le code pour éviter que n'importe qui aille y farfouiller au risque de supprimer des trucs et faire planter mon appli...

-> MAIS, comme je génère du code dynamiquement via des fonctions perso, si je protège directement le projet via l'interface, ça plante étant donné que la génération dynamique de code ne marchera pas!

-> l'idée: gérer l'activation/désactivation à la demande d'un password directement via le code source:
* enlever le password AVANT un traitement particulier
* le remettre une fois terminer

maintenant il y a peut être aussi une autre solution que celle-ci.

bref, tout avis sera bon à prendre!

merci.
@+

[Daniel.C]

Bonjour,

J'ai parcouru un peu internet. Apparemment, tu ne peux le faire qu'en utilisant SendKeys. Voici le code que j'ai trouvé (c'est en anglais, fais attention aux références à ajouter) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
'need reference To VBA Extensibility 
'need To make sure that the target project Is the active project 
Sub test() 
    UnprotectVBProject Workbooks("ABook.xls"), "password" 
End Sub 
 
Sub UnprotectVBProject(WB As Workbook, ByVal Password As String) 
    ' 
    ' Bill Manville, 29-Jan-2000 
    ' 
    Dim VBP As VBProject, oWin As VBIDE.Window 
    Dim wbActive As Workbook 
    Dim i As Integer 
 
    Set VBP = WB.VBProject 
    Set wbActive = ActiveWorkbook 
 
    If VBP.Protection <> vbext_pp_locked Then Exit Sub 
 
    Application.ScreenUpdating = False 
 
    ' Close any code windows To ensure we hit the right project 
    For Each oWin In VBP.VBE.Windows 
        If InStr(oWin.Caption, "(") > 0 Then oWin.Close 
    Next oWin 
 
    WB.Activate 
    ' now use lovely SendKeys To unprotect 
    Application.OnKey "%{F11}" 
    SendKeys "%{F11}%TE" & Password & "~~%{F11}", True 
 
    If VBP.Protection = vbext_pp_locked Then 
        ' failed - maybe wrong password 
        SendKeys "%{F11}%TE", True 
    End If 
 
    ' leave no evidence of the password 
    Password = "" 
    ' go back To the previously active workbook 
    wbActive.Activate 
 
End Sub 
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
Sub ProtectVBProject(WB As Workbook, ByVal Password As String) 
 
    Dim VBP As VBProject, oWin As VBIDE.Window 
    Dim wbActive As Workbook 
    Dim i As Integer 
 
    Set VBP = WB.VBProject 
    Set wbActive = ActiveWorkbook 
 
    ' Close any code windows To ensure we hit the right project 
    For Each oWin In VBP.VBE.Windows 
        If InStr(oWin.Caption, "(") > 0 Then oWin.Close 
    Next oWin 
 
    WB.Activate 
    ' now use lovely SendKeys To unprotect 
    Application.OnKey "%{F11}" 
    SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" & Password & "~" 
    Application.VBE.CommandBars(1).FindControl(Id:=2578, recursive:=True).Execute 
    WB.Save 
End Sub 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

[steph68b]

Super, merci je testerai ça demain.

J'ai aussi passé beaucoup de temps à chercher, mais sans résultats probants jusque là.

Dans tous les cas, je mettrai le post à jour, OK ou KO.

[kiki29]

Salut, voir ici

[steph68b]

hello!

ok, grace aux différentes infos trouvées ici, j'ai trouvé quelque chose me convenant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub ProtectVBProject(WB As Workbook, ByVal Password As String)
    Dim vbProj As Object
    Set vbProj = WB.VBProject
 
    If vbProj.Protection = 1 Then Exit Sub
    Set Application.VBE.ActiveVBProject = vbProj
 
    Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
    SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" & Password & "~", True
 
    WB.Save
End Sub

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub UnprotectVBProject(WB As Workbook, ByVal Password As String)
    Dim vbProj As Object
    Set vbProj = WB.VBProject
 
    If vbProj.Protection <> 1 Then Exit Sub
    Set Application.VBE.ActiveVBProject = vbProj
 
    SendKeys Password & "~~"
    Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
End Sub

MAIS, mais mais... ben oui sinon ce ne serait pas drôle...

1.) pourquoi ProtectVBProject nécessite un save, alors que UnprotectVBProject est efficient immédiatement, sans save?
-> d'un point de vue logique d'abord
-> mais surtout aussi parce que le save génère le classique message d'avertissement

-> pas glop en plein milieu des traitements de mon appli...

2.) donc peut-on le trapper?
-> j'ai déjà essayé avec un sendkeys ENTER inefficace (j'ai du me louper dans la syntaxe je suppose!)

[Daniel.C]

Bonjour,

Est-ce que tu as essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = False

A remettre à True après usage.

[steph68b]

nickel pour l'avertissement!

par contre, si la dé-protection fonctionne bien, je viens de me rendre compte que la re-protection elle nécessite la fermeture du fichier pour être prise en compte....

pas gagné...

c'est ça aussi que j'ai du mal à capter, que dans un sens l'effet soit immédiat et pas dans l'autre.....

je ne peux pas fermer le fichier en plein milieu de mes traitements.

[steph68b]

ok, merci pour la modif du code!

par contre LA question maintenant :
-> y a-t-il un moyen de prendre en compte la re-protection sans avoir à fermer le classeur (wb.save & wb.close)?

chaque pas en avant soulève de nouveaux freins/problèmes...

[fring]

Bonjour,

y a-t-il un moyen de prendre en compte la re-protection sans avoir à fermer le classeur (wb.save & wb.close)?

Non, que tu protèges le projet manuellement ou par code, la protection ne sera effective qu'à la réouverture du classeur.