多用户登陆权限设置匹配不同的工作表

liw0311041

zjdh 发表于 2018-7-9 21:54

请问密码是多少？

年轻人·老梦

zjdh 发表于 2018-7-8 20:50
帮你修改一下

大神，请帮忙看看，为什么登陆进去后只显示提示工作簿，我对这个vba进行了优化，删除了之前的一部分

年轻人·老梦

zjdh 发表于 2019-6-14 22:04
这个没研究

为啥把登陆权限里的那个   C20  不能修改呢？

年轻人·老梦

zjdh 发表于 2018-7-8 20:50
帮你修改一下

大神，这样的条件函数有其他更简洁的办法么？

zjdh

liw0311041 发表于 2019-9-7 11:36
请问密码是多少？

zjdh

年轻人·老梦 发表于 2019-11-13 23:09
大神，请帮忙看看，为什么登陆进去后只显示提示工作簿，我对这个vba进行了优化，删除了之前的一部分

施工管理系统3.0.rar (215.65 KB, 下载次数: 229)

2019-11-17 12:12 上传

点击文件名下载附件

密码看Access文件

zjdh

年轻人·老梦 发表于 2019-11-16 16:49
大神，这样的条件函数有其他更简洁的办法么？

=IF(AND(C3>D4,C3<E4),B4,IF(AND(C3>D6,C3<E6),B4,IF(AND(C3>D5,C3<E5),B4,“”)))

阿是完全

zjdh 发表于 2018-7-9 21:57
除了修改 ARR = Sheet8.Range("A3:K" & Sheet8.Range("A65536").End(3).Row)   表示数据为 A列至K列，同理 ...

求解

zjdh

阿是完全 发表于 2019-12-20 18:00
求解

说明你列表中所列的工作表不存在！

zjdh

或者你的工作簿中不存在14个表，需要修改：
for j=3 to 14 为你实际存在的表数量。