Discussion :

[manufer]

Bonjour,

Je souhaite insérer plusieurs mots de passe qui soient fonctions à des valeurs dans les cellules.

Je m'explique: si une cellule par exemple A1 contient la valeur "AAA", alors c'est toute la ligne qui aura comme mot de passe "omega",

si la cellule A40 contient la valeur "BBB", alors c'est encore toute la ligne qui aura comme mot de passe "lambda".

Bien sûr le nombre de mot de passe possible est pré-définit.

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
16
17
18
19
20
21
22
Sub test3()
Dim i As Integer, j As Integer
Dim Cell As Range
 
Application.ScreenUpdating = False
 
    'Récupère le numero de ligne de la dernière cellule
    'non vide dans la colonne A.
    i = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
 
    'boucle de la dernière à la premiere ligne
    For j = i To 1 Step -1
        'Vérifie si les cellules de la colonne A sont vides
        'et les supprime si c'est le cas.
        If Worksheets("Feuil1").Cells(j, 1) = "GOGO" Then _
            Worksheets("Feuil1").Rows(j).Protect Password:="Toto"
 
    Next j
 
Application.ScreenUpdating = True
 
End Sub

Je ne comprend pas alors qu'il parait juste, il ne fonctionne pas au niveau de:

Code :

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

.Rows(j).Protect

Pouvez vous m'aider svp ?

[unparia]

Bonjour
Pouvez vous m'aider svp ?
Bien volontiers --->>
La méthode protect ne saurait s'appliquer qu'à un classeur ou à une feuille de calcul. En aucun cas à un objet Range
Ouvre ton aide VBA à la rubrique Worksheet.Protect, méthode et lis tout.
Le format des cellules à protéger lorsque la méthode protect est utilisée se définit comme il y est indiqué.

[manufer]

Merci, C'est noté,

mais alors est ce qu'il est possible de verrouiller des lignes entière avec un mot de passe

en fonction de la valeur se trouvant dans une cellule colonne 2 ?

ça fait 5 jours que je cherche.

Si vous avez des pistes merci de m'aider svp

[unparia]

ça fait 5 jours que je cherche.

Si vous avez des pistes merci de m'aider svp

Je t'ai pourtant répondu ...
As-tu lu ce que je t'ai demandé de lire ? Apparemment non.
Tu saurais sinon que :
- ce qu'il y a à protéger se définit préalablement par le menu des formats de cellules (format de cellule -->> protection)
- que ce qui est défini est ensuite protégé ou déprotégé par la méthode protect
En d'autres termes : la méthode protect s'applique aux cellules dont le format/protection a été défini

Seule la méthode Protect peut être assortie d'un mot de passe (bien évidemment).

[Patrice740]

Bonjour,

Je souhaite insérer plusieurs mots de passe qui soient fonctions à des valeurs dans les cellules.

Excel n'est pas et ne sera jamais un Coffre fort !

Je n'ai jamais trouvé le moindre intérêt à y mettre un mot de passe, alors un mot de passe pour certaines ligne et plus est, varie en fonction du contenu de certaines cellules ...
Ça me laisse dubitatif !

[eriiic]

Bonjour,

Une possibilité sans protéger la feuille :

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
16
17
18
19
20
21
22
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim dict, motCle As String, i As Long, tmp, ok As Boolean
    Static lig As Long
    If Target.Column = 1 Then Exit Sub
    If Target.Rows.Count > 1 Then Target.Rows(1).Select
    Set dict = CreateObject("Scripting.Dictionary")
    tmp = Split("AAA,alpha,BBB,beta", ",") 'mots clé, mots de passe
    For i = 0 To UBound(tmp) Step 2
        dict(tmp(i)) = tmp(i + 1)
    Next i
    If Target.Row <> lig Then
        lig = Target.Row
        motCle = Cells(Target.Row, 1)
        If dict.exists(motCle) Then
            ok = InputBox("Mot de passe de " & Cells(Target.Row, 1)) = dict(motCle)
        Else
            ok = True
        End If
        If Not ok Then Cells(Target.Row, 1).Select
    End If
    Set dict = Nothing
End Sub

J'ai fait en sorte que le mot de passe ne soit demandé que la 1ère fois sur la ligne. Mais si tu quittes ton poste en laissant le curseur sur cette ligne n'importe qui pourra saisir dessus.
Je réduis d'office à 1 ligne sélectionnée. Tu peux fignoler en ne le faisant que si un mot clé existe dans la sélection.
Pour bien faire il faudrait remplacer InputBox par un formulaire avec un Textbox qui a la propriété passwordChar initialisée, pour masquer la saisie du mot de passe.
Comme dit précédemment, aucune protection sur excel ne tient longtemps avec qq'un de décidé.
eric

[manufer]

Merci pour vos réponses,

Alors si j'ai bien lu ce vers quoi tu m'as orienté mais je n'y ai pas trouvé ce que je cherchais ou du moins, je ne saurais pas l'adapter à ma situation.

Il s'agit d'un fichier qui sera utilisé par plusieurs personne,
sur la colonne 2 il y aura leur nom, et chacun d'eux aura un mot de passe qui lui permettra de modifier les colonnes 5 et 6 de la ligne sur laquelle se trouve son nom.

Mais même si ça se dit facilement, je vous assure qu'a faire c'est ...impossible presque.

[unparia]

je vous assure qu'a faire c'est ...impossible presque

seul l'adverbe "presque" est ici justifié (et encore ...)
Il te suffit de décider dynamiquement :
- des cellules/plages à verrouiller (l'utilisation de l'enregistreur de macros t'en montrera le code)
- d'appliquer ensuite la méthode protect avec mot de passe

J'ai même eu l'occasion (plusieurs fois sur ce forum) de montrer comment, sans utilisation de la méthode Protect, on pouvait envoyer un utilisateur se balader ailleurs que là où cela ne lui est pas autorisé.


En gardant à l'esprit ce que t'a dit Patrice740, à savoir qu'une telle protection serait vite "cassée" par tout curieux connaissant un peu Excel.

[unparia]

Enfin quoi ..
dans l'évènement selectionChange --->>
Si target.column est 5 ou 6 et que username <> de ce qu'il y a en colonne 2, on l'envoie tout simplement se balader sur la colonne 5 ou 6 de la ligne où son propre nom figue en colonne 2