Déverrouiller et verrouiller le code par programmation

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?

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:

---

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

---

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.

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.

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/