Bonjour à tous,
Débutante en VBA j'aimerais pouvoir permettre à d'autres utilisateurs de déverrouiller pour modification seulement des lignes rapportées à nom grâce à un mot de passe.
Imaginons que j’ai une feuille appelée «legume »
Que la colonne D comporte le nom du légume et les colonnes E à Z des poids
Imaginons que dans la colonne D il y ait les noms Tomate, Concombre, Poivron
J’aimerai verrouiller la feuille et qu’à l’aide d’un mot de passe on puisse déverouiller que certaines lignes.

Selon cette logique :
Si le mot de passe = « T » alors Dévérouiller toutes les lignes comportant le mot Tomate dans la colonne D
Sinon si le mot de passe = « C » alors Dévérouiller toutes les lignes comportant le mot Concombre dans la colonne D
Sinon
Feuille verouillée


J’ai essayé de cette manière :
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
23
24
Private Sub acces()
Sheets("legume").Select
Dim passe As String
passe = InputBox("Entrez votre mot de passe :")
  If passe = "T" Then
     If Range("D") = "Tomate" Then
        Range("E:Z").Select
       Range("E:Z").Locked = False
    Else
    ActiveSheet.Protect
    End If
 
 
Else if passe = "C" Then
     If Range("D") = "Concombre" Then
      Range("E:Z").Select
     Range("E:Z").Locked = False
   Else
    ActiveSheet.Protect
    End If 
Else 
MsgBox("Erreur")
End if
End Sub
Par avance merci pour vos réponse !