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