[VBA-EXCEL]--Protect lorsqu'on quitte un userform

Hello,

Est-ce que quelqu'un pourrait me dire quelle est mon erreur dans mon code (un peu plus loin, le temps que j'explique ma situation)...
je souhaiterai protégé mon document excel lorsque je ferme mon userform a l'aide de la croix en rouge en haut a droite !

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm1_QueryClose()   For Each Declarations In ActiveWorkbook.Worksheets Declarations.Protect Password:="*********" Next   End Sub

---

merci pour votre aide..a +

ps:merci ousk pour le code !

Salut,

Essaye le code suivant :

Code:

---

1 2 3 4 5

Private Sub UserForm1_QueryClose() For Each Declarations In ActiveWorkbook.Worksheets Declarations.Protect "*********" Next End Sub

---

A+,
MasterSleepy

merci pour ton aide mais ca ne fonctionne pas non plus ta solution !!

merci encore

Ceci marche bien chez moi avec Excel 2003.

Code:

---

1 2	Application.Worksheets("Ma_feuille").Protect ("mon_pass") Application.Worksheets("Ma_feuille").Protect (Contents = True)

---

juste ca comme tel que tu le présente ???

Oui, ca marche juste comme ca.
Mais je ne l'ai pas mis dans le classeur "ThisWorkbook". C'est dans un module.
Dans ThisWorkbook il n'y a qu'un lien vers la fonction.

voir ici

.

QueryClose peut poser pb.
Il est possible que la fermeture de l'userform empêche la protection.
Tu devrais mettre ton code dans une sub placée dans un module standard que tu appelles depuis l'événement Queryclose.

Code:

---

1 2 3

Private Sub UserForm1_QueryClose() VerrouillerTout End Sub

---

et dans le module standard (non dans ThisWorkbook)

Code:

---

1 2 3 4 5 6

Sub VerrouillerTout() Dim declarations as worksheet For Each Declarations In ActiveWorkbook.Worksheets Declarations.Protect Password:="*********" Next End sub

---

Attention, ThisWorkbook dans le code indique le classeur contenant les macros, ce qui n'est pas nécessairement le cas
ActiveWorkbook désigne le classeur actif.
C'est toi qui vois.

Edit
N'oublie-pas de déclarer Dim declarations as worksheet

super merci OUSK :king: ! LoL

merci bocoup ! ciao a plus