Hello everybody,
I'm currently facing an issue with the Dropdown-lists.
I managed to allow that each requester in the dropdown list needs to type in there own password to be able to select there names.
But I want the whole sheet to be protected, until you select your name. After which you are allowed to fill in data in a selected area.
I used the following code:
Option Explicit
Const Marc As String = "Marc1"
Const Nina As String = "Nina1"
Const Lars As String = "Lars1"
Const Ibo As String = "Ibo1"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Dim pwd As String
Dim Oops As Boolean
Application.EnableEvents = False
For Each cell In Target
If Not Intersect(cell, Range("B7")) Is Nothing And cell <> "" Then
pwd = Application.InputBox("Password for " & cell & ":", _
"Enter Password", Type:=2)
Select Case cell.Value
Case "Marc"
If pwd <> Marc Then Oops = True
Case "Nina"
If pwd <> Nina Then Oops = True
Case "Lars"
If pwd <> Lars Then Oops = True
Case "Ibo"
If pwd <> Ibo Then Oops = True
End Select
If Oops Then
MsgBox "Bad password"
cell = ""
End If
End If
Next cell
Application.EnableEvents = True
End Sub
Hope that someone can help me
Bookmarks