[已解决]密码保护问题

大灰狼1976

不好意思，我只看了你上面的三行代码，实际上在文件中，三行代码下面还有一行：
Sheets("11").Protect AllowFiltering:=True
它实际上是一个完整的保护工作表代码，相当于重新保护了一次，并且是不加密码的。
你要把两句合并一下：Sheets("11").Protect Password:="1", AllowFiltering:=True

lkk0063

大灰狼1976 发表于 2017-4-6 11:43
不好意思，我只看了你上面的三行代码，实际上在文件中，三行代码下面还有一行：
Sheets("11").Protect All ...

你好，
可以了，当Sheet"11"如果已经秀出所有资料时, 会出现错误,如下图

大灰狼1976

那个错误是由于sheet("11")原本就处于全部显示状态，再让他全部显示就会出错。
If Sheets("11").AutoFilterMode = True Then Sheets("11").ShowAllData
改成
Sheets("11").[a5].AutoFilter field:=1

lkk0063

大灰狼1976 发表于 2017-4-6 12:47
那个错误是由于sheet("11")原本就处于全部显示状态，再让他全部显示就会出错。
If Sheets("11").AutoFilte ...

你好,
改完后, 发现批号无法卡重复批号了

Function twolots() As Boolean
    Dim d, arr, i, lotno, xrr
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("CC").Range("a1:a" & Sheets("CC").[a65536].End(3).Row)
     For i = 5 To UBound(arr)
        d(CStr(arr(i, 1))) = ""
    Next
     xrr = Split(Me.Range("G2").Value, "-")
    '=====================================================
    If [g2] <> "" Then lotno = IIf(UBound(xrr) = 1, xrr(0) & "-" & xrr(1), xrr(0))
    '=====================================================
    If d.exists(lotno) Then MsgBox "twolots, pls check!": twolots = True
End Function

大灰狼1976

我只是有针对性的解决你的问题，并不对你的程序进行全面剖析，所以如果由于修改此处引起其他的问题，
需要自行调试修改，在修改过程中不明白的地方再发贴问，这样比较好。

lkk0063

大灰狼1976 发表于 2017-4-6 13:42
我只是有针对性的解决你的问题，并不对你的程序进行全面剖析，所以如果由于修改此处引起其他的问题，
需要 ...

好的， 谢谢协助