作者jongshianns (tompig)
看板Visual_Basic
标题[VBA ] 隐藏模块错误?
时间Mon Nov 24 18:00:21 2014
我有一个电子签核 用EXCEL VBA 做成的档案
只要该部门主管看完文件後点选按钮 再输入对应文字(密码)下面就会产生"核准"
最近只要是采购部 这台电脑点过的(其他电脑去点采购部输入密码不会) 之後的人完全会
发生
http://ppt.cc/Ds4c
以下讯息：
隐藏模组中发生编译器错误: 模?1
当程式码与这个应用程式的版本、平台或架构不相容时，最常发生这个错误。如需如何修
正这项错误的资讯，请按一下 [说明]。
重点是我在程式码里面找不到任何隐藏的模组...
不知道有没有人碰到类似情况....这个问题很急....
以下是原始程式码
Sub approve1()
in1 = InputBox("输入密码")
If in1 = "pt225" Then
Worksheets("data").TextBox1 = "核准"
Worksheets("data").Unprotect Password:="banana"
Worksheets("data").Range("B2:B3").Locked = True
Worksheets("data").Range("D2:G3").Locked = True
Worksheets("data").Range("A5:E29").Locked = True
Worksheets("data").Range("F36:G36").Locked = True
Worksheets("data").Protect Password:="banana"
Else
MsgBox "输入错误,重新输入ﾌ"
Worksheets("data").TextBox1 = ""
End If
End Sub
Sub approve2()
Dim j As Integer
For j = 5 To 29
If Worksheets("data").Cells(j, "A") <> 0 And Worksheets("data").Cells(j, "D")
<> 0 Then
If Worksheets("data").Range("I35") <> 1 Then
MsgBox "辆叹/伧挂帤幂彻核准"
GoTo finish
End If
End If
Next
in2 = InputBox("输入密码")
If in2 = "wzbc6" Then
in2t = InputBox("茠种窒掘蛁")
Worksheets("data").TextBox2 = "核准"
Worksheets("data").Unprotect Password:="banana"
Worksheets("data").Range("B31") = in2t
Worksheets("data").Range("B2:B3").Locked = True
Worksheets("data").Range("D2:G3").Locked = True
Worksheets("data").Range("A5:E29").Locked = True
Worksheets("data").Range("F36:G36").Locked = True
Worksheets("data").Protect Password:="banana"
Else
MsgBox "输入错误,重新输入ﾌ"
Worksheets("data").TextBox2 = ""
End If
finish:
End Sub
Sub approve3()
Dim i As Integer
For i = 5 To 29
If Worksheets("data").Cells(i, "A") <> 0 And Worksheets("data").Cells(i, "D")
<> 0 Then
If Worksheets("data").Range("I35") <> 1 Then
MsgBox "辆叹/伧挂帤幂彻核准"
GoTo finish
End If
End If
Next
in3 = InputBox("输入密码")
If in3 = "lyy856" Then
in3t = InputBox("茠珛窒掘蛁")
Worksheets("data").TextBox3 = "核准"
Worksheets("data").Unprotect Password:="banana"
Worksheets("data").Range("B30") = in3t
Worksheets("data").Range("B2:B3").Locked = True
Worksheets("data").Range("D2:G3").Locked = True
Worksheets("data").Range("A5:E29").Locked = True
Worksheets("data").Range("F36:G36").Locked = True
Worksheets("data").Protect Password:="banana"
Else
MsgBox "输入错误,重新输入ﾌ"
Worksheets("data").TextBox3 = ""
End If
finish:
End Sub
Sub approve4()
in4 = InputBox("输入密码")
If in4 = "cgb123.." Then
Worksheets("data").TextBox4 = "核准"
Worksheets("data").Unprotect Password:="banana"
Worksheets("data").Range("I35") = 1
Worksheets("data").Range("D5:D29").Locked = True
Worksheets("data").Protect Password:="banana"
Else
MsgBox "输入错误,重新输入ﾌ"
Worksheets("data").TextBox4 = ""
Worksheets("data").Unprotect Password:="banana"
Worksheets("data").Range("I35") = 0
Worksheets("data").Protect Password:="banana"
End If
End Sub
Sub approve5()
in5 = InputBox("输入密码")
If in5 = "design" Then
Worksheets("data").TextBox5 = "核准"
Worksheets("data").Unprotect Password:="banana"
Worksheets("data").Range("I35") = 1
Worksheets("data").Range("D5:D29").Locked = True
Worksheets("data").Protect Password:="banana"
Else
MsgBox "输入错误,重新输入ﾌ"
Worksheets("data").TextBox5 = ""
Worksheets("data").Unprotect Password:="banana"
Worksheets("data").Range("I35") = 0
Worksheets("data").Protect Password:="banana"
End If
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 106.185.31.128
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1416823223.A.53A.html
1F：推 Marty: "应用程式的版本、平台或架构不相容" 这就是解答 11/24 23:29
但是在他没执行过之前，这个档案任何人都可以执行，而且我也去尝试其他版本和
重新安装office了，我想这和版本没有关系。
※ 编辑: jongshianns (106.185.31.128), 11/25/2014 09:01:42
2F：推 Marty: "其他电脑去点采购部输入密码不会" <= 你自己都写了唷~ 11/25 09:29
3F：推 Marty: 应用程式的"版本"、"平台"或"架构"不相容 有三个可能的原因 11/25 09:32
4F：→ Marty: 一一排除吧 11/25 09:32
我已经找到答案了，原因在於采购部使用wps office 而这个软体会夹带一个档案在巨集
里面，只要排除WPS即可。
谢谢Marty指点。
※ 编辑: jongshianns (106.185.31.128), 11/25/2014 10:37:26
5F：推 Marty: 金山的东西还是少碰为妙 XD 11/25 15:12
没办法 我们是台商 加上资讯管理方面没有很好 希望能够逐一改善..
※ 编辑: jongshianns (106.185.31.128), 11/28/2014 10:48:58