求老师们给看一下VBA动态列表问题

yygydong

建了个两列的动态列表VBA，可是有些功能达不到想要的结果，求老师帮助解决一下啊？主要还有这个表还要设置保护工作表，希望能在执行完代码后再对解锁的工作表进行保护。
具体问题在附件里了，麻烦老师们了。

excel玉米

1、这两列的4行以前和26行以后不想出现下拉列表，如何改代码？
If Target.Count = 1 Then
        If Target.Column = 1 And Target.Row > 3 And Target.Row <26 Then
             With Target.Validation
                 .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                  Operator:=xlBetween, Formula1:=Join(d.keys, ",")
            End With
        End If
    End If
5、想在下拉列表代码执行前加入解锁工作表的代码，执行完成后再对工作表进行保护，如何改代码？（两个工作表都要解锁、保护。）
回答：代码开始时放入 .Unprotect Password:="123"      '取消工作表保护
代码结束前放入.Protect Password:="123" '保护工作表
工作表保护密码为123，可以更改为你需要的密码

yygydong

excel玉米 发表于 2018-6-25 21:47
1、这两列的4行以前和26行以后不想出现下拉列表，如何改代码？
If Target.Count = 1 Then
        If Ta ...

刚刚才学这个，还是不太明白呢，能麻烦老师给在VBA里改好吗？谢谢。

yygydong

根据楼上excel玉米朋友的提示，有一些进步，改了下代码，可还是有些不太明白的地，求教啊。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Count > 3 Then Exit Sub
If (Target.Column <> "1" And Target.Column <> "2") Or Target.Row < 2 Then Exit Sub
Dim t, Arr, d
Dim i&, x$, Brr, y$
Set d = CreateObject("Scripting.Dictionary")Sheet2.Unprotect Password:="123"
Sheet4.Unprotect Password:="123"
Arr = Sheet2.[b16].CurrentRegion
For i = 4 To UBound(Arr)
    x = Arr(i, 3): y = Arr(i, 2)
    If d.exists(x) = False Then Set d(x) = CreateObject("Scripting.Dictionary")
    d(x)(y) = y
Next
If Target.Column = 2 Then ’但是这儿怎么改成6行至26行有下拉表，其它行不显示呢？没整明白，麻烦高手给看看
    With Target.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, Formula1:=Join(d.keys, ",")
    End With
Else
    x = Target.Offset(0, 1).Value
    If d.exists(x) Then
        t = d(x).keys
        With Target.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                Operator:=xlBetween, Formula1:=IIf(UBound(t) <> -1, Join(t, ","), t)
        End With
    Else
        'Target = ""
    End If
End If
Sheet2.Protect Password:="123"
Sheet4.Protect Password:="123"
Application.ScreenUpdating = True
End Sub

’要在哪儿改代码才能改成6行至26行有下拉表，其它行不显示呢？没整明白，麻烦高手给看看？求教各位大神给看看。

yygydong

另外还有一个问题想请老师给解决一下哈。