有谁能搞定这个 “编译错误：找不到工程和库” 复杂的难题

ck1668

各位大侠，

附件的《工厂生产表》里有3个工作表，分别是“工厂进度”、“尾部进度”和“尾部数据”，这3个表都设置了：鼠标所在单元格，横直高亮显示；另外，“工厂进度”设置了变更数据，提示要输入密码。

现在问题有两个：
1，“工厂进度”里的资料变更时，不会出现要输入密码的对话框，反而出现 “编译错误：找不到工程和库”
2，“尾部进度”，当鼠标放在某个单元格时，不会马上高亮显示，而鼠标放到单元格的中间并稍微停顿一下，才会出现高亮显示。

gdw831001

vbe窗口，工具——引用——找到丢失，把钩去掉，ok

ck1668

gdw831001 发表于 2018-7-10 12:10
vbe窗口，工具——引用——找到丢失，把钩去掉，ok

好像不行，“工厂进度”里虽然 变更资料时，会出现要输入密码的对话框，但输入密码后，却提示密码不正确，其实密码是正确的。另外，“尾部进度”里还是不会高亮显示。
补充：“工厂进度”变更资料时，输入正确的密码后，提示“密码不正确，数据不能更改”，其实数据却被更改了，并且刚好是改成了输入的密码。

gdw831001

ck1668 发表于 2018-7-10 12:15
好像不行，“工厂进度”里虽然 变更资料时，会出现要输入密码的对话框，但输入密码后，却提示密码不正确 ...

没见你的密码在哪，还有这个代码是你自己的不

ck1668

gdw831001 发表于 2018-7-10 12:23
没见你的密码在哪，还有这个代码是你自己的不

密码是.  代码是网上大神们帮手做的
我刚才试着把密码. 改为1，或其他，结果在“工厂进度”表里变更资料时，会跳出对话框，说密码不正确，数据不能更改，而实际密码是正确的，并且数据也被更改了，而更改的刚好是输入的密码。你试一下就知道了

ck1668

gdw831001 发表于 2018-7-10 12:23
没见你的密码在哪，还有这个代码是你自己的不

附件VBA的密码更改为123了

gdw831001

If b <> "." Then
        MsgBox "密码错误，数据不能更改!"
        Target = A
    End If


你把这句改成  



  If "." <> "." Then   
     MsgBox "密码错误，数据不能更改!"     
        Target = A
      
         
    End If

ck1668

gdw831001 发表于 2018-7-10 12:36
If b  "." Then
        MsgBox "密码错误，数据不能更改!"
        Target = A

答案也不对，刚特意不输入密码，或输入一个错误的密码，原来的数据也被更改了。

ck1668

高手们都去哪了，真的没办法解决了吗？

ck1668

版主在吗，帮忙看一下，有没有办法可以解决