Discussion :

[Maze0]

Bonjour,

Lors de l'exécution de mon application j'importe et je supprime des UserForm. Puisque je veux protéger mon code, il est vérrouillé avec un mot de passe. Le problème c'est que lors de l'exécution de l'importation ou de la suppression, j'obtien l'erreur suivante:

Erreur d'exécution '50289':

Impossible d'effectuer cette opération tant que le projet est protégé.

Comment est-ce que je peux déverrouiller et verrouiller mon projet par programmation?

[fring]

Bonjour,

Pour déverrouiller le projet VBA tu peux tester la procédure ci-dessous, il faut malheureusement utiliser un SendKeys. Après fermeture du classeur en question, le projet sera à nouveau verrouillé.

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
Sub test()
Dim Classeur As Workbook, MotdePasse As String
 
Set Classeur = ThisWorkbook
MotdePasse = "toto"
 
'déverrouillage du projet VBA
UnprotectVBProject Classeur, MotdePasse
 
End Sub
 
Private Sub UnprotectVBProject(Wbk As Workbook, ByVal Pwd As String)
Dim vbProj As Object
 
Set vbProj = Wbk.VBProject
 
If vbProj.Protection <> 1 Then Exit Sub
Set Application.VBE.ActiveVBProject = vbProj
 
SendKeys Pwd & "~~"
Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
 
End Sub

[Maze0]

Merci pour votre réponse.

Y a t-il un moyen de reverrouiller le code juste apres l'opération? Parce que si il faut attendre que le classeur soit fermé, l'utilisateur aura la possibilitée d'aller voir le code.

[fring]

Non la protection ne prend effet qu'à la fermeture du classeur. Même en le faisant manuellement tu pourras constater qu'après avoir protéger ton Projet VBA celui-ci reste accessible tant que le classeur reste ouvert.

[Maze0]

Merci pour les infos.

Étant donné qu'il est impossible de verrouiller le code une fois déverrouillé, j'ai décider d'importer et de supprimer mes Userforms dans un autre classeur qui n'est pas protégé par mot de passe.

http://www.developpez.net/forums/d11...tion-userform/