Lock Row for editing

[ecko007]

Hi all,

I saw a thread that was exactly what I needed:

http://www.excelforum.com/excel-gene...down-list.html

It gives a drop down list and a password required for the "name" selected from the list. Each "name" in the drop down list has its own unique password.

I would like to take this further by locking the row, but only a selected range on the row, e.g. A4:S4, not the entire row. The only thing is the drop down list will be on the row as well, e.g. Cell Q4. Therefore, when a "name" is selected from the drop down list in Cell Q4, and IF, and ONLY IF, the correct password is entered, then the row with the selected range will be locked for editing. This will include Cell Q4, therefore, once the password is entered it cannot be changed without "unprotecting" the sheet.

Is there a code that can be added to make the above work to the following code:

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Option Explicit
Const Mike As String = "Mike1"
Const Alan As String = "Alan1"
Const Bob As String = "Bob1"
Const Pete As String = "Pete1"

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 "Mike"
                If pwd <> Mike Then Oops = True
            Case "Bob"
                If pwd <> Bob Then Oops = True
            Case "Alan"
                If pwd <> Alan Then Oops = True
            Case "Pete"
                If pwd <> Pete Then Oops = True
        End Select
        
        If Oops Then
            MsgBox "Bad password"
            cell = ""
        End If
    End If
Next cell

Application.EnableEvents = True
End Sub

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Any help is much appreciated!

Thanks

Ecko