Discussion :

[Drost]

Bonjour,

Depuis aujourd'hui j'ai un problème pour déproteger mes feuilles!
En effet j'ai du créer un fichier avec des feuilles qui sont protéger afin d'empecher la saisie. Ces feuilles sont protégés par un mot de passe.
J'ai une macro pour proteger et deproteger lorsque l'on valide des userforms qui remplis correctement ma feuille.

le problème c'est que je dois faire des modifications sur cette feuille et impossible de la déproteger ( via ma macro ou meme par le menu). Lorsque je passe par le menu, aucun mot de passe est demandé et ca ne deverouille rien mais quand je veux réessayer il me propose de la protéger...

Je ne comprends pas du tout d'ou cela vient surtout que lorsque je saisie des chose dans mes userforms cela incrémente parfaitement mon fichier...

Help Me !


Drost


PS: Je joint mon code des macros au cas ou cela peut aider mais elles me semblent correct.

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
Sub protect1()
Dim w As Worksheet
 
For Each w In ActiveWorkbook.Sheets
w.protect Password:="A", AllowFiltering:=True
Next
 
End Sub
Sub protect2()
Dim w As Worksheet
 
For Each w In ActiveWorkbook.Sheets
w.Unprotect Password:="A"
Next
End Sub

[Drost]

Re^^
J'ai aussi ca comme code sur ma feuille^^

Code :

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

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.EnableAutoFilter = True
ActiveSheet.protect Contents:=True, UserInterfaceOnly:=True
End Sub

[LeForestier]

Dés que tu change de cellule active la feuille se 'reprotége' par le code que tu à dans l'événement

Code :

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

A+
Edit:
et c'est bien comme tu dit, elle est reprotégée sans mot de passe

[CIBOOX]

bonjour

moi j'utilise ce code :

Code :

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

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Protect UserInterfaceOnly:=True
End Sub

comme ça mes feuilles sont protégées
et lorsque que je veux les modifier je rajoute ce code en premiere ligne dans la sub du bouton modifier

Code :

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

ActiveSheet.Protect UserInterfaceOnly:=false

et dans la sub du bouton valider ( les modifications ) je rajoute en derniere ligne ( avant le end sub )

Code :

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

1
2
 
ActiveSheet.Protect UserInterfaceOnly:=True

l' avantage de ce code c'est qu'en appliquant ces lignes je n'ai pas à mettre de mot de passe

[Drost]

Merci beaucoup pour vos réponses!


tchuss
Drost