Discussion :

[gantec]

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 :

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

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 !

[MasterSleepy]

Salut,

Essaye le code suivant :

Code :

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

1
2
3
4
5
Private Sub UserForm1_QueryClose()   
  For Each Declarations In   ActiveWorkbook.Worksheets  
    Declarations.Protect "*********" 
  Next   
End Sub

A+,
MasterSleepy

[gantec]

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

merci encore

[Gamal le Celte]

Ceci marche bien chez moi avec Excel 2003.

Code :

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

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

[gantec]

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

[Gamal le Celte]

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

.