我有一个电子签核 用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