Discussion :

[cobra38]

Bonjour le Forum ,


Je souhaitais pouvoir utiliser une variable en lieu et place d'un mot de passe
pour protéger une feuille
le but étant via un userform avoir la possibilité de le changer ,
pour ce faire j'utilise l'expression suivante :

Code :

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

1
2
 
Sheets("TOTO").Unprotect Password:=vPWR

vPWR = [PWR] <= champ d'une autre feuille du même classeur

si globalement cela semble fonctionner , il s'avère que si je modifie
la variable ( donc le contenu du champ [PWR] )
le mot de passe reste identique à l'ancien jusqu'au redemarrage de l'appli
il n'y a donc pas de modification de façon disons "dynamique" du mot de passe

est-ce normal ?

merci de votre éclairage
A+

[casefayere]

bonjour,

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
'dans la feuille ou est le mot de passe
'si ton mot de passe est en "A1" et ta variable déclarée "Public"
If Target.Address = "$A$1" Then vPWR = Range("A1")
End Sub

a +

[cobra38]

Merci Dom

En fait j'ai simplement oublié de réactualiser la feuille où se trouve le MdP ?
c'est çà ?

mon test se contentait de le faire sous Workbook_Open()
ceci explique cela


A+

[casefayere]

avec les codes proposés, c'est la variable qui est actualisée.

a +

[cobra38]

merci casefayere

Pardon , pour la réponse tardive après plusieurs tentatives et essais
je me suis aperçu que j'avais oublié de mettre en variable l'ancien MdP
pour déprotéger la feuille ( remarque judicieuse de jfontaine )
de ce fait , l'appli plantait car elle n'avait pas le bon MdP pour pouvoir déprotéger CQFD

il faut effectivement bien mettre en mémoire l'ancien MDP avant de procéder à son changement ne serait-ce que pour modifier les feuilles associées et çà va beaucoup mieux après ...

merci à tous pour votre aide
A+

[jfontaine]

Bonjour,

Il faut faire une action a chaque modification de la cellule

Le selectionchange mémorise l'ancien mot de passe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public strpwd As String
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" And Target.Value <> strpwd Then
    Me.Unprotect strpwd
    Me.Protect Target.Value
    strpwd = Target.Value
End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then strpwd = Target.Value
End Sub